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内 容 简 介 


Excel 2007 与 以 前 版 本 相 比 ， 从 操作 界面 到 对 和 象 模 型 的 变化 都 很 大 ， 例如， 取消 了 菜单 和 工具 栏 ， 新 
增 了 功能 区 。 本 书 在 介绍 通过 VBA 操作 Excel 对 象 的 基础 上 ， 使 用 了 大 量 篇 幅 介 绍 用 VBA 操作 这 些 新 
增 对 象 的 方法 。 

本 书 共 分 7 部 分 31 章 , 分 别 介绍 了 Excel 2007 开发 平台 概述 、 使 用 宏 、Excel VBA 的 开发 环境 、VBA 
基础 、 程 序 控制 结构 、 使 用 数组 、 使 用 过 程 、 管 理 模块 处 理 字符 串 和 日 期 ` Excel 对 象 概述 、 使 用 Application 
对 象 、 使 用 Workbook 对 象 、 使 用 Worksheet 对 象 、 使 用 Range 对 象 、 使 用 其 他 常用 Excel 对 象 、 使 用 Excel 
内 置 对 话 框 \ 创建 自 定义 对 话 框 、 使 用 标准 控件 、 使 用 ActiveX 控件 、 使 用 RibbonX、 使 用 CommandBars、 
控制 其 他 Office 程序 、 处 理 文件 、 使 用 ADO 访问 数据 库 、Excel 2007 与 Intemet、 使 用 Excel 加 载 宏 、 使 
用 类 模块 、 操 作 VBE、 使 用 Windows API、 制 作 应 用 程序 的 帮助 等 内 容 。 最 后 详细 介绍 了 一 个 进 销 存 管 
理 系统 的 开发 过 程 。 

本 书 知识 全 面 ， 结 构 由 浅 入 深 ， 每 个 知识 点 以 实例 代码 进行 介绍 ， 使 读者 可 快速 入 门 。 适 合 需要 用 
Excel 解决 复杂 问题 ， 或 准备 利用 Excel VBA 技术 开发 Excel 应 用 程序 的 读者 ， 也 适合 大 中 专 院 校 的 学 生 
阅读 ， 还 可 作为 VBA 的 培训 教材 。 
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Excel 2007 是 Microsoft Office 2007 的 组 件 之 一 ,该 软件 主要 用 来 对 表格 数据 进行 管理 、 
分 析 、 统 计 等 ， 是 办 公 人 员 最 常用 的 软件 之 一 。 为 了 让 Excel 2007 发 挥 最 大 功效 ， 可 以 借 
助 于 VBA 开发 各 种 电子 表格 应 用 程序 。 

使 用 VBA 可 以 为 Excel 2007 应 用 程序 提供 新 的 功能 或 增强 现 有 的 功能 ， 从 而 减少 用 
户 在 Excel 中 的 操作 步骤 ， 提 高 工作 效率 。 如 果 要 以 Excel 2007 为 平台 , 使 用 VBA 进行 二 
次 开发 ， 则 需要 读者 能 熟练 地 操作 Excel 软件 ， 并 具有 一 定 的 程序 设计 能 力 。 


本 书 特色 


口 


适用 于 多 个 版 本 : 本 书 除 第 20 章 介绍 Excel 2007 新 增 RibbonX 功能 的 内 容 外 ,其 
余 章节 的 内 容 都 可 应 用 到 Excel 2000/XP/2003/2007 的 各 版 本 中 。 使 用 各 版 本 的 用 
户 都 可 以 通过 本 书 学 习 VBA 知识 。 

内 容 全 面 : 市 场 上 大 多 数 介 绍 VBA 类 的 书籍 ， 都 只 是 详细 介绍 了 Excel 对 象 模 型 
的 使 用 ， 没 有 程序 设计 基础 的 读者 需要 参考 其 他 书籍 来 学 习 VB 程序 设计 方面 的 
知识 。 本 书 除了 详细 介绍 Excel 对 象 模型 的 使 用 外 , 还 详细 介绍 了 VB 程序 设计 基 
础 ， 使 初学 者 通过 本 书 就 可 学 习 到 完整 的 Excel VBA 程序 设计 的 相关 知识 。 

专业 性 强 : 本 书 除了 介绍 VBA 相关 知识 外 ,还 介绍 了 在 Excel 中 调用 Windows API、 
使 用 ADO 访问 数据 库 、 控 制 其 他 Office 应 用 程序 、 使 用 类 模块 、 制 作 帮助 系统 等 
应 用 程序 开发 中 的 高 级 内 容 ， 使 读者 开发 的 Excel 应 用 程序 更 专业 。 
知识 点 和 实例 相 结合 : 本 书 每 个 知识 点 都 以 实例 代码 来 讲解 。 在 本 书 最 后 以 一 个 
完整 的 进 销 存 管理 系统 的 开发 过 程 为 例 ， 使 读者 能 够 通过 实例 进一步 巩固 前 面 各 
章 所 学 的 知识 。 


本 书 对 Excel 2007 的 新 增 功能 ， 以 及 实际 开发 应 用 程序 中 经 常 要 用 到 、 而 其 他 书籍 很 
少 介绍 的 功能 也 进行 了 详细 的 介绍 。 例 如 : 
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使 用 RibbonX， 在 第 20 章 中 详细 介绍 了 使 用 XML 自 定义 Excel 2007 新 增 功能 区 
的 方法 。 

制作 COM 加 载 宏 ， 在 第 26 章 中 介绍 了 用 VB 开发 COM 加 载 宏 的 方法 。 

操作 VBE， 在 第 28 章 中 介绍 了 用 VBA 代码 控制 Excel VBE 开发 环境 的 方法 。 
制作 帮助 系统 。 在 第 30 章 中 介绍 了 为 Excel 应 用 程序 制作 帮助 文件 的 方法 。 
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本 书 内 容 


本 书 共 分 7 部 分 31 章 。 

第 1 部 分 Excel 2007 应 用 程序 开发 简介 ， 包 括 1 一 3 章 ， 分 别 介绍 了 Excel 开发 平台 
概述 、 使 用 宏 、Excel VBA 的 开发 环境 等 内 容 。 

第 2 部 分 VBA 基础 知识 ， 包 括 4 一 9 章 ， 分 别 介绍 了 VBA 基础 、 程 序 控制 结构 、 使 
用 数组 、 使 用 过 程 、 管 理 模块 等 程序 设计 的 基本 知识 ， 第 9 章 还 详细 介绍 了 字符 串 和 日 期 
的 处 理 方法 。 

第 3 部 分 掌握 Excel 对 象 模型 ， 包 括 10 一 15 章 ， 详 细 介绍 了 Excel 中 常用 对 象 的 属 
性 、 方 法 和 事件 的 使 用 方法 (包括 Application 对 象 、Workbook 对 象 、Worksheet 对 象 、 Range 
对 象 、Chart 对 象 等 常用 对 象 的 使 用 )。 

第 4 部 分 用 户 界面 设计 ， 包 括 16 一 21 章 ， 分 别 介绍 了 使 用 Excel 内 置 对 话 框 、 创 建 
自 定 义 对 话 框 、 使 用 标准 控件 、 使 用 ActiveX 控件 、 使 用 RibbonX 界面 、 使 用 CommandBars 
等 内 容 。 

第 5 部 分 使 用 外 部 数据 ， 包 括 22 一 25 章 ， 分 别 介绍 了 控制 其 他 Office 程序 、 处 理 文 
件 、 使 用 ADO 访问 数据 库 、Excel 2007 与 Internet 等 内 容 。 

第 6 部 分 VBA 高 级 应 用 ， 包 括 26 一 30 章 ， 分 别 介绍 了 使 用 Excel 加 载 宏 、 使 用 类 模 
块 、 操 作 VBE、 使 用 Windows API、 制 作 应 用 程序 的 帮助 等 内 容 。 

第 7 部 分 综合 应 用 程序 设计 ， 第 31 章 为 一 个 实例 一 一 进 销 存 管理 系统 ， 本 章 详 细 介 
绍 了 该 实例 的 开发 过 程 ， 通 过 该 实例 的 开发 ， 进 一 步 巩 固 前 面 各 章 所 学 的 知识 。 


读者 对 象 


本 书 要 求 读者 已 经 能 熟练 使 用 Excel 2007， 并 对 Excel 2007 的 新 增 功能 有 一 定 的 使 用 
经 验 。 在 阅读 本 书 前 ， 读 者 至 少 已 经 掌握 了 以 下 的 Excel 操作 技能 : 
格式 化 工作 表 ; 
命令 单元 格 区 域 ; 
使 用 公式 和 函数 ; 
创建 图 表 ; 
管理 工作 敌 ; 
管理 工作 表 。 
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Excel 作为 专业 的 电子 表格 软件 ， 被 各 行 各 业 大 量 应 用 于 表格 制作 、 数 据 统计 分 析 。 
了 Excel 内 嵌 VBA 程序 开发 语言 ， 从 而 为 程序 开发 者 提供 了 一 个 开发 平台 ， 可 使 有 经 验 的 用 
户 对 Excel 进行 定制 。 本 章 简单 介绍 用 Excel 2007 开发 应 用 程序 的 基础 知识 和 开发 过 程 。 


1.1 Excel 2007 新 增 功能 


2006 年 ， 微 软 推出 了 Office 2007 套装 软件 ， 与 以 前 版 本 相 比 ，Office 2007 的 变动 非 
常 大 ， 采 用 了 全 新 的 界面 。 本 节 简 单 介绍 Excel 的 发 展 过 程 及 Excel 2007 的 新 增 功能 。 


1.1.1 Excel 版 本 简介 


1993 年 , 微软 正式 推出 了 Excel 5.0, 该 产品 确立 了 微软 在 电子 表格 软件 领域 的 重要 地 
位 。Excel 5.0 是 一 款 里 程 碑 级 的 软件 ， 其 所 蕴涵 的 设计 思想 和 先进 技术 深 深 地 影响 着 所 有 
的 后 继 版 本 。Excel 5.0 运行 于 微软 的 视窗 操作 系统 中 ， 是 16 位 的 应 用 程序 ， 运 行 在 早期 
的 Windows 3x 操作 系统 中 。 

随 着 Windows 95 操作 系统 的 推出 ， 微 软 在 Excel 5.0 的 基础 上 不 断 推 出 新 的 Excel 版 
本 ， 例 如 ，Excel 7.0、Excel 97、Excel 2000、Excel 2002、Excel 2003 等 。 

2006 年 11 月 30 日 ， 微 软 正 式 推出 Office 2007 (包括 Excel 2007 等 ) 。 在 Excel 2007 
中 ,取消 了 传统 的 菜单 加 工具 栏 的 操作 方式 , 采用 新 的 面向 结果 的 用 户 界面 。 在 新 界面 中 ， 
Excel 2007 提供 了 强大 的 工具 和 功能 ， 可 以 通过 应 用 主题 和 使 用 特定 样式 在 工作 表 中 快速 
设置 数据 格式 。 


1.1.2 ”Excel 2007 的 特点 


Excel 历来 是 需要 分 析 信息 的 员工 经 常 使 用 的 一 种 工具 。Excel 2007 成 为 功能 强大 的 商 
业 智 能 工具 ， 可 用 于 更 安全 地 访问 、 分 析 及 共享 来 自 数据 仓库 和 企业 应 用 的 信息 。 与 以 前 
版 本 相 比 ，Excel 2007 主要 改进 和 增强 了 以 下 几 方面 的 功能 。 
口 基本 电子 表格 功能 。 Excel 2007 可 帮助 人 们 更 迅速 地 构建 专业 级 别 的 电子 表格 , 并 
且 大 大 扩 增 了 行列 方面 的 处 理 能 力 ， 计 算 速度 更 快 ， 改 进 了 公式 创建 功能 ， 并 且 
增加 了 新 的 图 库 和 样式 模板 。 
口 商业 智能 分 析 功 能 。Excel 2007 可 以 连接 到 企业 数据 ,并 且 保 持 电 子 表格 和 后 台数 
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据 源 之 间 的 持久 连接 。 这 样 不 仅 便于 利用 最 新 信息 来 更 新 Excel 工作 表 , 而 且 能 够 
在 Excel 里 深入 分 析 更 详细 的 信息 ， 查 出 异常 和 趋势 。 

口 增强 的 制图 和 打印 输出 。 Excel 2007 利用 了 新 的 制图 引擎 , 让 人 们 能 够 制作 专业 外 
观 的 图 表 和 图 形 。 这 些 改进 加 上 大 大 改善 的 打印 效果 ， 可 以 让 人 们 共享 重要 报表 
里 面 的 分 析 结 果 。 

口 “页 面 版 式 ” 视 图 。 通 过 该 视图 可 以 让 用 户 轻 松 查 看 每 页 工作 表 怎 样 打印 以 及 分 
页 符 在 哪里 。 用 户 给 工作 表 添 加 了 一 行 或 者 一 列 后 ，Excel 就 会 自动 把 文档 的 样式 
元 素 应 用 到 新 添 的 行 或 列 上 ， 而 使 用 以 前 版 本 的 Excel， 必 须 手 动 才能 完成 。 

口 更 醒目 的 条 件 格 式 。 在 Excel 中 可 设置 条 件 格 式 , 让 符合 条 件 的 单元 格 以 用 户 提前 
设 定 的 格式 进行 显示 ， 例如， 大 于 某 值 的 单元 格 显 示 为 红色 等 。 在 Excel 2007 中 ， 
这 一 功能 得 到 了 大 大 的 加 强 。 

口 更 方便 的 公式 输入 。 在 复杂 的 Excel 工作 表 里 ， 有 时 定义 的 公式 涉及 同一 工作 禾 里 
的 几 个 工作 表 ， 或 不 同 工 作 短 中 的 工作 表 。 在 一 个 工作 表 里 要 想 观 察 其 相同 工作 
簿 下 的 其 他 工作 表 , 或 不 同 工 作 敌 的 其 他 工作 表 ， 是 件 很 麻烦 的 事 。 在 Excel 2007 
中 ， 这 一 问题 得 到 了 解决 ， 将 要 关注 的 单元 格 放 在 监视 窗口 中 即 可 。 不 管 当前 编 
辑 位 置 在 哪里 ， 监 视窗 口 将 始终 显示 。 

口 更 真实 的 打印 预览 。 


1.1.3 ”Excel 2007 的 界面 


启动 Excel 2007 后 ， 将 出 现 如 图 1-1 所 示 的 界面 。Excel 2007 的 窗口 主要 包括 标题 栏 、 
功能 区 、 表 格 操作 区 、 状 态 栏 等 部 分 。 


Office 按钮 快速 访问 工具 栏 标题 栏 


血 一 个 表格 xsx i "Et 


状态 栏 


图 1-1 Excel 2007 操作 界面 
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与 以 前 版 本 相 比 ，Excel 2007 的 界面 有 了 非常 大 的 改变 。Excel 2007 采用 全 新 的 外 观 ， 
新 的 用 户 界 面 用 简单 明了 的 单一 机 制 取代 了 Excel 早期 版 本 中 的 菜单 、 工 具 栏 和 大 部 分 任 
务 窗 格 。 

使 用 过 以 前 版 本 的 Excel 读者 可 能 不 太 习 惯 Excel 2007 的 操作 界面 ， 因 为 在 常见 的 
Windows 系统 中 ， 不 管 是 Office 应 用 程序 ， 还 是 其 他 应 用 软件 ， 基 本 上 都 是 菜单 和 工具 栏 
的 形式 。 但 进一步 熟悉 和 使 用 Excel 2007 后 , 才能 体会 到 这 种 命令 组 织 的 独特 和 方便 之 处 ， 
这 种 方式 将 众多 的 命令 巧妙 地 组 合 在 一 起 ， 并 使 常用 的 命令 一 目 了 然 地 出 现在 界面 中 。 下 
面 简单 介绍 Excel 2007 界面 中 各 组 成 部 件 的 使 用 。 


1. Office 按 钮 


2007 版 的 Microsoft Office System 程序 的 用 户 界 面 已 经 全 面 重 新 设计 。【Office 按钮 】 
取代 了 原 有 版 本 中 的 【文件 】 菜 单 ， 它 位 于 Excel 2007 界面 的 左上 角 ， 如 图 1-2 所 示 。 

单 击 【Office 按钮 】 时 ， 将 看 到 与 Excel 早期 版 本 相同 的 【打开 】、【 保 存 】 和 【 打 
印 】 等 基本 命令 ， 还 新 增 了 【发 布 】 等 菜单 命令 ， 另 外 在 【Ofice 按钮 】 的 下 拉 菜 单 右 侧 ， 
还 显示 出 了 最 近 使 用 的 文档 。【Office 按钮 】 的 下 拉 菜 单 如 图 1-3 所 示 。 
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1-2 【Office 按钮 】 图 1-3 【Office 按钮 】 的 下 拉 菜 单 


2. 标题 栏 


Excel 2007 的 标题 栏 与 以 前 版 本 也 不 同 。 默 认 状态 下 ， 标 题 栏 左 侧 显示 “ 快 速 访问 工 
具 栏 ”， 在 标题 栏 中 间 显 示 当 前 编辑 表格 的 文件 名 称 。 启 动 Excel 时 ， 将 创建 一 个 空白 的 
工作 短文 件 ， 默 认 的 文件 名 为 Book1。 若 按 下 快捷 键 Ctrl+N 将 继续 创建 新 的 工作 短文 件 ， 
Excel 将 分 别 以 Book2、Book3 等 作为 新 文件 的 文件 名 。 


3. 快速 访问 工具 栏 


该 工具 栏 可 能 是 Excel 2007 中 与 以 前 版 本 的 工具 栏 最 相似 的 部 分 了 。 在 该 工具 栏 中 可 
以 放置 常用 的 命令 按钮 ， 以 方便 快速 调用 对 应 的 功能 。 

通常 ，“ 快 速 访问 工具 栏 ” 在 Excel 工作 短 界 面 的 左上 方 ， 也 可 以 在 “Excel 选项 ”对 
话 框 的 【 自 定 义 】 页 面 中 选中 【在 功能 区 下 方 显 示 快 速 访问 工具 栏 】 复 选 框 ， 将 其 放置 在 
功能 区 下 方 。 右 击 任何 命令 按钮 ， 从 弹出 的 快捷 菜单 中 选择 【添加 到 快速 访问 工具 栏 】 命 
4. 
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令 ， 将 该 命令 按钮 添加 到 其 中 ， 也 可 右 击 【快速 访问 工具 栏 】 命 令 ， 在 弹出 的 快捷 菜单 中 
选择 【从 快速 访问 工具 栏 中 删除 】 命 令 ， 将 该 命令 按钮 从 工具 栏 中 删除 。 
4. 功能 区 
在 Excel 2007 中 ， 功 能 区 是 菜单 和 工具 栏 的 主要 替代 控件 。 为 了 便于 浏览 ， 功 能 区 包 
含 多 个 围绕 特定 方案 或 对 象 进行 组 织 的 选项 卡 .每 个 选项 卡 上 的 控件 进一步 组 织 成 多 个 组 。 


功能 区 可 比 菜单 和 工具 栏 承载 更 加 丰富 的 内 容 ， 包 括 按钮 、 图 片 库 和 对 话 框 内 容 。 
功能 区 的 常规 选项 卡 如 图 1-4 所 示 。 


选项 卡 


命令 按钮 
| i 2 训 加 ja 机 


4 -nl a | ma -" 括 坟 易 
大 用 ”单元 格 到 
彬 式 


ed 和 SESE HED EW EEE 


图 1-4 功能 区 


口 选项 卡 : 是 面向 任务 设计 的 。 

口 组 : 每 个 选项 卡 中 的 组 都 将 一 个 任务 分 成 多 个 子 任务 ， 如 图 1-4 所 示 。 

口 命令 按钮 : 每 个 组 中 的 命令 按钮 执行 一 个 命令 或 显示 一 个 命令 菜单 。 

除了 图 1-4 显示 的 选项 卡 外 ， 还 会 在 界面 中 看 到 对 目前 正在 执行 的 任务 类 型 有 所 帮助 

的 另外 两 种 选项 卡 。 

口 上 下 文 工 具 选项 卡 : 使 用 户 能 够 操作 在 页 面 上 选择 的 对 象 ， 如 表 、 图 片 或 绘图 。 
单 击 对 象 时 ， 相 关 的 上 下 文选 项 卡 集 以 强调 文字 颜色 出 现在 标准 选项 卡 的 旁边 。 
如 图 1-5 所 示 为 选中 图 表 时 显示 的 选项 卡 。 


上 下 文 工 具 选项 卡 
多 i 经 六 CL 和 | 4 
司 = 
EF | | 旺 引 起 本 下 国 lls n 由] | | 人 
尖 二 严 雪 布局 人 至 


1-5 上 下 文 工 具 选项 卡 


口 程序 选项 卡 : 当 切 换 到 某 些 创作 模式 或 视图 [es Tr 
(包括 打印 预览 ) 时 ， 程 序 选项 卡 会 替换 标准 选项 卡 | 


集 ， 如 图 1-6 所 示 。 a FE ~ 访 下 责 
、 有 村 BB ee 
5. 对话 框 启动 器 | © sw 


= 


在 功能 区 的 某 些 组 中 ， 还 显示 有 一 个 小 的 图 标 ， | 
如 图 1-7 所 示 。 这 个 图 标 称 为 对 话 框 启动 器 。 单 击 对 图 1-6 程序 选项 卡 
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话 框 启动 器 将 打开 相关 的 对 话 框 或 任务 窗 格 ， 其 中 提供 与 该 组 相关 的 更 多 选项 。 单 击 如 
图 1-7 所 示 的 对 话 框 启动 器 ， 并 打开 如 图 1-8 所 示 的 【设置 单元 格格 式 】 对 话 框 ， 在 打开 
的 对 话 框 中 ， 将 根据 对 话 框 启动 器 所 在 组 自动 调 出 相应 的 选项 组 。 


图 1-8 【设置 单元 格格 式 】 对 话 框 


Excel 2007 的 状态 栏 如 图 1-9 所 示 。 在 状态 栏 中 ， 可 显示 各 种 状态 ， 也 可 进行 很 多 快 
捷 操 作 ， 例 如 ， 显 示 单 元 格 中 的 统计 数据 、 设 置 表格 的 视图 方式 、 调 整 表格 的 显示 比例 、 


录制 宏 统计 数据 视图 方式 显示 比例 
图 1-9 ”状态 栏 


右 击 状态 栏 ， 将 弹出 如 图 1-10 所 示 的 【 自 定义 状态 栏 】 菜 单 ， 单 击 对 应 的 菜单 项 ， 可 
在 状态 栏 中 显示 或 隐藏 对 应 的 项 目 。 


司 辐 回回 


图 1-10 【 自 定义 状态 栏 】 菜 单 
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1.1.4 ”使 用 功能 区 


当 首 次 启动 Excel 2007 时 ， 用 户 将 会 发 现 ，Excel 以 前 版 本 的 菜单 栏 和 工具 栏 都 不 见 
了 ， 取 而 代 之 的 是 “功能 区 ”这 个 全 新 的 用 户 交 互 界面 。 本 节 将 详细 介绍 功能 区 的 相关 
内 容 。 

1. 功能 区 的 组 成 


功能 区 可 以 帮助 用 户 快速 找到 完成 某 一 任务 所 需 的 命令 。 命 令 被 组 织 在 逻辑 组 中 ， 风 
辑 组 集中 在 选项 卡 下 。 每 个 选项 卡 都 与 一 种 类 型 的 活动 (例如 为 页 面 编写 内 容 或 设计 布局 ) 
相关 。 为 了 减少 混乱 ， 某 些 选项 卡 只 在 需要 时 才 显 示 。 例 如 ， 仅 选择 图 片 时 ， 才 显示 【图 
片 工具 】 选 项 卡 。 功 能 区 有 3 个 基本 组 成 部 分 ， 如 图 1-11 所 示 。 


选项 卡 命令 按钮 


) 3 各 插入 - 


图 1-11 功能 区 


口 选项 卡 : 默认 情况 下 ， 功 能 区 项 部 有 8 个 选项 卡 。 每 个 选项 卡 代表 在 Excel 中 执行 
的 一 组 核心 任务 。 

口 组 : 每 个 选项 卡 都 包含 一 些 组 ， 这 些 组 将 相关 命令 项 显示 在 一 起 。 

口 命令 : 命令 是 指 按钮 及 用 于 输入 信息 的 输入 框 或 命令 列表 等 。 


2. 智能 显示 命令 


功能 区 上 的 命令 是 最 常用 的 命令 。Excel 2007 根据 执行 的 操作 显示 一 些 可 能 用 到 的 命 
令 ， 而 不 是 一 直 显 示 所 有 命令 。 例 如 ， 如 果 工 作 表 中 没有 图 表 ， 则 不 会 显示 用 于 图 表 的 命 
令 。 但 在 创建 图 表 之 后 ， 就 会 出 现 【 图 表 工 具 】 标 签 ， 其 中 包含 3 个 选项 卡 ， 分 别 是 【 设 
计 】、【 布 局 】 和 【格式 】。 在 这 些 选项 卡 上 ， 可 看 到 处 理 图 表 所 需 的 命令 ,如 图 1-12 所 
示 。 这 说 明 功 能 区 对 操作 做 出 了 响应 。 

使 用 【设计 】 选 项 卡 可 以 更 改 图 表 类 型 或 移动 图 表 位 置 ， 使 用 【布局 】 选 项 卡 可 以 更 
改 图 表 标 题 或 其 他 图 表 元 素 ; 使 用 【格式 】 选 项 卡 可 以 添加 填充 颜色 或 更 改线 型 。 在 完成 
图 表 后 ， 单 击 图 表 区 域外 部 ，【 图 表 工 具 】 标 签 会 消失 。 要 想 让 它们 重新 显示 ， 需 单 击 图 
表 内 部 ， 这 些 选 项 卡 就 会 重新 显示 。 
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全 可 下 
至 二 局 


bi 


图 1-12 根据 需要 显示 命令 


3. 最 小 化 功能 区 


Excel 2007 的 功能 区 是 不 能 被 删除 的 , 也 不 能 用 早期 版 本 的 工具 栏 和 菜单 替换 功能 区 。 
但 是 ， 可 以 最 小 化 功能 区 以 增 大 屏幕 中 可 用 的 空间 。 最 小 化 功能 区 有 两 种 方式 ， 一 种 是 使 
功能 区 一 直 处 于 最 小 化 状态 ， 另 一 种 是 暂时 最 小 化 功能 区 。 

口 始终 使 功能 区 最 小 化 。 

始终 使 功能 区 最 小 化 的 步骤 如 下 : _ 

(1) 单 击 自 定义 快速 访问 工具 栏 右 侧 的 国 按 钮 ， 弹 出 如 图 1-13 所 示 的 菜单 。 


\ Booky = Microsott Fxcel 


| 打印 预 失 
} 坪 写 位 二 
E20 
次 复 
升 后 浴 季 
放声 挫 率 
县 他 会 令 (MD).- 
在 功能 区 下 方 旺 示 (S) 


T 
四 加 


图 1-13 快速 访问 工具 栏 菜单 


(2) 在 菜单 列表 中 ， 选 择 【 功 能 区 最 小 化 】 菜 单 命令 。 


外 技巧 : 要 在 功能 区 最 小 化 的 情况 下 使 用 功能 区 ， 首 先 需 单 击 要 使 用 的 选项 卡 ， 在 弹出 对 
应 的 功能 区 内 单 击 要 使 用 的 选项 或 命令 即 可 。 使 用 完 对 应 的 命令 后 ， 功 能 区 将 返 

回 到 最 小 化 状态 。 

口 暂时 最 小 化 功能 区 。 
当 需 要 和 暂时 将 功能 区 最 小 化 时 ， 直 接 双击 活动 选项 卡 的 名 称 即 可 。 再 次 双击 此 选项 卡 
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内 


可 还 原 功能 
县 技巧， 按 Ctrl+F1 组 合 键 可 快速 最 小 化 或 还 原 功能 区 。 


4. 使 用 键盘 操作 功能 区 


Excel 2007 为 功能 区 的 每 个 命令 都 提供 了 访问 键 ， 通 过 按键 盘 上 的 几 个 键 就 可 快速 使 
用 相关 命令 。 一 般 只 需 单 击 2 一 4 个 键 就 可 以 访问 到 大 多 数 命令 。 使 用 键盘 操作 功能 区 的 步 
又 如 下 : 

(1) 按 下 并 释放 Alt 键 。 在 当前 视图 中 每 个 可 用 功能 的 上 方 都 显示 访问 键 提示 。 

(2) 按 下 要 使 用 的 功能 上 方 的 访问 键 上 所 显示 的 字母 。 

(3) 根据 所 按 下 的 字母 ， 可 显示 其 他 键 提示 。 

(4) 继续 按 对 应 的 访问 键 字 母 ， 直 到 按 下 了 要 使 用 的 特定 命令 或 选项 所 对 应 的 字母 
为 止 。 


全 注意 : 在 某 些 情况 下 ， 必 须 先 按 下 包含 该 命令 的 组 所 对 应 的 字母 。 


例如 ， 使 用 键盘 操作 功能 区 来 设置 活动 单元 格 的 字体 为 楷体 。 有 具体 操作 步骤 如 下 : 
(1) 在 Excel 中 按 下 并 释放 Alt 键 ， 功 能 区 上 方 各 选项 卡 中 将 显示 出 对 应 的 访问 键 提 
示 ， 如 图 1-14 所 示 。 


图 1-14 显示 访问 键 提 示 


(2) 使 用 开始 选项 卡 中 的 命令 ， 按 下 键盘 上 的 瑟 键 ， 则 【开始 】 选 项 卡 中 各 命令 的 访 
问 键 将 显示 出 来 ， 如 图 1-15 所 示 。 


1-15 【开始 】 选 项 卡 的 访问 键 提示 


(3) 要 选中 字体 下 拉 框 ， 按 下 键盘 上 的 FF 键 〈 按 两 次 F 键 )， 则 字体 下 拉 框 被 选中 ， 
再 按 下 键盘 中 的 下 方向 光标 键 1 ， 找 到 字体 为 楷体 后 按 Enter 键 ， 即 可 将 活动 单元 格 的 字 
体 设 置 为 楷体 ， 如 图 1-16 所 示 。 
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1-16 选择 字体 


全 技巧 为 了 和 Excel 以 前 版 本 兼容 ，Excel 以 前 版 本 的 快捷 键 仍然 可 用 。 


5. 不 同 分 辩 率 下 的 功能 区 


在 Excel 2007 中 , 根据 屏幕 分 辩 率 不 同 , 功能 区 的 显示 状态 也 不 一 样 , 具体 情况 如 下 。 

如 果 屏 幕 设置 为 低 分 辨 率 ， 例 如 800X 600 像素 ， 则 功能 区 上 会 有 一 些 组 会 改变 命令 
的 排列 方式 ， 有 一 些 组 仅 显 示 组 名 称 ， 而 不 显示 该 组 中 的 命令 。 这 时 需要 单 击 组 按钮 上 的 
箭头 才能 显示 命令 。 

例如 ， 在 【开始 】 选 项 卡 上 , 【数字 】 组 中 有 几 个 命令 。 在 较 高 分 辩 率 下 ， 会 看 到 【 数 
字 】 组 中 的 所 有 命令 排 为 两 行 ， 如 图 1-17 (a) 所 示 。 而 在 800X 600 的 分 辨 率 下 ， 将 会 看 
到 【数字 】 组 中 的 命令 按钮 排列 成 三 行 了 ， 如 图 1-17 (b) 所 示 。 将 Excel 窗口 缩小 后 的 功 
能 区 如 图 1-17 (ce) 所 示 ， 这 时 【数字 】 组 中 的 命令 不 见 了 ， 单 击 【数字 】 组 按钮 上 的 箭 
头 ， 将 在 下 方 显 示 出 该 组 的 命令 。 


Ce) 缩小 窗口 状态 下 的 功能 区 
图 1-17 不 同 分 辩 素 下 的 功能 区 


。10 。 


第 1 章 ”Excel 2007 开发 平台 概述 


1.2 用 Excel 开发 应 用 程序 的 优势 


微软 公司 的 Excel 电子 表格 现在 已 成 为 最 流行 的 软件 包 之 一 。 大 量 的 商务 人 员 都 在 使 
用 Excel 来 管理 他 们 的 商务 数据 ， 因 此 ， 大 多 数 人 员 都 接受 过 Excel 的 使 用 培训 。 

大 多 数 用 户 使 用 Excel 时 ， 仅 仅 是 将 数据 键入 到 工作 表 的 单元 格 中 ， 然 后 经 过 计算 把 

果 显 示 在 不 同 的 单元 格 或 图 表 中 。 工 作 表 是 一 个 数据 输入 和 输出 的 用 户 界 面 ， 通 过 它 来 
ei 些 日 常 工作 非常 容易 。 其 实 ，Excel 内 部 为 数据 的 录入 提供 了 极其 丰富 和 完备 的 功 
能 ， 其 中 包括 对 单元 格 中 数据 的 编辑 、 有 效 性 检查 和 格式 的 设置 等 。 同 时 ， 利 用 图 表 和 单 
元 格格 式 的 设置 以 及 各 种 绘图 工具 可 以 很 好 地 控制 数据 的 输出 形式 。 

Excel 不 仅仅 是 一 种 电子 表格 ,程序 设计 人 员 还 可 对 其 进行 二 次 开发 ,微软 公司 在 Excel 
中 引入 了 VBA (Visual Basic for Applications， 通 常 称 为 VBA， 是 一 种 应 用 程序 自动 化 语 
言 ) ， 使 Excel 成 为 一 个 引 人 注 目的 开发 平台 。 用 Excel 开发 的 应 用 程序 与 用 VB (Visual 
Basic， 简 称 VB) 、C++、Java、.NET 等 语言 开发 的 应 用 程序 - 样 ， 成 了 许多 公司 重要 商 
业 软 件 的 核心 组 成 部 分 。 

使 用 Excel 开发 应 用 程序 具有 以 下 几 方 面 的 优势 。 

口 节省 用 户 培训 费用 : Excel 作为 最 基本 的 一 种 办 公 自 动 化 软件 ， 普 及 程度 高 ， 用 户 
对 其 操作 界面 和 操作 方式 都 很 熟悉 ， 基 于 Excel 平台 开发 的 系统 可 让 用 户 快速 
上 和 手 。 

口 加 快 开发 速度 : 在 其 他 程序 语言 开发 环境 中 ,要 设计 类 似 于 Excel 的 窗 体 界面 ， 所 
需要 的 代码 是 难以 想象 的 ， 而 开发 基于 Excel 的 应 用 程序 则 要 简单 得 多 。 

口 方便 地 控制 Excel: Excel 提供 了 完善 的 对 象 模型 。 几 乎 每 种 在 Excel 用 户 界 面 中 能 
够 完成 的 功能 ， 都 能 通过 使 用 Excel 对 象 模型 中 的 对 象 进行 编程 实现 。 

口 提高 开发 效率 : Excel 提供 了 应 用 系统 基本 模块 ， 例 如 ， 文 件 处 理 、 打 印 和 文本 编 
辑 等 功能 ， 用 其 他 程序 设计 语言 开发 应 用 程序 时 ， 这 些 基 本 模块 的 开发 就 要 占用 
很 多 的 时 间 ， 所 以 使 用 Excel 开发 应 用 程序 能 提高 开发 的 效率 。 

口 简化 应 用 程序 ，Excel 内 甘 大 量 函 数 ， 直 接 调用 Excel 的 函数 可 简化 程序 ， 提 高 

口 方便 地 处 理 大 量 数据 : Excel 作为 电子 表格 软件 ， 其 本 身 就 可 以 处 理 大 量 的 数据 ， 
对 于 数据 量 非常 大 的 系统 ，Excel 还 可 连接 到 各 种 数据 库 中 获取 数据 ， 然 后 在 表格 
中 进行 分 析 处 理 。 

口 快速 创建 动态 的 分 析 图 表 : 使 用 Excel 可 方便 、 快 速 地 创建 图 表 ， 对 工作 表 中 的 数 
据 进行 分 析 。 使 用 VBA 代码 可 创建 、 控 制 这 些 图 表 。 


1.3 ”Excel 应 用 程序 结构 


使 用 Excel 可 开发 各 种 应 用 程序 ， 例 如 ， 简 易 财 务 系统 、 工 资 管理 、 固 定 资产 管理 、 
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工程 预算 、 客 户 管理 等 OA 系统 。 在 Excel 中 使 用 VBA 创建 这 些 应 用 程序 时 ， 一 般 没 有 一 
个 固定 的 结构 ,但 大 多 数 情 况 下 ， 都 有 一 些 通用 的 构成 模块 ， 本 节 将 简单 介绍 常见 的 Excel 
应 用 程序 的 构成 。 


1.3.1 ”Excel 应 用 程序 的 构成 


一 般 情况 下 ， 二 级 开发 的 Excel 应 用 程序 都 是 以 Excel 工作 短 的 形式 发 布 的 。 从 用 户 
角度 看 ， 与 打开 其 他 Excel 工作 敌 的 操作 类 似 ， 不 同 之 处 在 于 ， 二 次 开发 的 Excel 应 用 程 
序 具有 更 多 的 智能 性 ， 能 提高 用 户 的 操作 效率 。 

而 从 开发 者 角度 看 ， 二 次 开发 的 Excel 应 用 程序 一 般 由 用 户 窗 体 、 工 作 表 、 模 块 和 类 
模块 等 部 分 构成 。 

口 用 户 窗 体 : 在 Excel VBA 应 用 程序 中 ， 用 户 窗 体 作为 最 常用 的 用 户 界 面 被 大 量 使 
用 。 使 用 用 户 窗 体 可 将 用 户 与 工作 表 中 的 数据 进行 隔离 ， 防 止 数 据 被 意外 修改 并 
隐藏 工作 表 中 的 敏感 数据 ， 使 限制 权限 的 用 户 只 看 到 应 该 操作 的 数据 。 一 般 系统 
中 ， 常 见 的 用 户 窗 体 有 登录 窗 体 、 数 据 录 入 窗 体 、 图 表 显 示 窗 体 等 。 

口 工作 表 : 工作 表 是 Excel 用 户 最 熟悉 的 工作 界面 ,用 于 保存 和 显示 程序 的 数据 ， 是 
程序 的 主体 部 分 。 在 开发 Excel 应 用 程序 时 , 一 般 先 在 工作 表 中 制作 出 表格 的 格式 ， 
并 设置 好 样式 ， 再 通过 VBA 代码 获取 表格 中 的 数据 ， 经 过 加 工 处 理 后 将 其 填 入 相 
应 的 单元 格 ， 供 用 户 进行 查看 、 打 印 输出 等 操作 。 

口 模块 : 模块 是 保存 VBA 代码 的 地 方 ， 可 保存 程序 的 通用 过 程 ， 供 其 他 过 程 调用 。 
例如 ， 录 制 宏 的 代码 就 保存 在 模块 中 ， 开 发 人 员 大 部 分 时 间 都 在 模块 中 编写 VBA 
代码 。 

口 类 模块 : 类 模块 用 来 保存 自 定义 对 象 的 VBA 代码 。 在 Excel VBA 中 , 除了 可 以 使 
用 系统 提供 的 对 象 外 ， 还 可 以 通过 自 定义 类 来 创建 自 定义 的 对 象 ， 自 定义 的 类 必 
须 保 存在 类 模块 中 。 大 多 数 应 用 程序 都 不 使 用 类 模块 。 


1.3.2 面向 对 象 编程 机 制 


VB 是 面向 对 象 的 编程 语言 ， 而 Excel 中 的 VBA 是 VB 的 一 个 子 集 ， 也 支持 面向 对 象 
的 编程 机 制 。 

在 面向 对 象 的 编程 机 制 中 , 程序 中 的 每 个 部 件 都 是 一 个 对 象 。 如 窗 体 、 按 钮 、 工 作 表 、 
单元 格 等 都 是 对 象 ， 开 发 人 员 通 过 编写 代码 操作 这 些 对 象 ， 即 可 完成 对 Excel 的 控制 。 

在 Excel VBA 中 ,通过 事件 驱动 提供 开发 人 员 与 系统 之 间 的 接口 ， 开 发 人 员 通 过 编写 
事件 过 程 来 处 理 产 生 该 事件 时 希望 系统 完成 的 工作 例如， 单 击 鼠 标 就 打开 一 个 窗口 )。 

在 传统 的 或 过 程 化 的 应 用 程序 中 ， 应 用 程序 自身 控制 了 执行 哪 一 部 分 代码 和 按 何 种 顺 
序 执行 代码 。 从 第 一 行 代码 执行 程序 并 按 应 用 程序 中 预定 的 路 径 执 行 ， 必 要 时 调用 过 程 。 
在 事件 驱动 的 应 用 程序 中 ， 代 码 不 是 按照 预定 的 路 径 执 行 ， 而 是 在 响应 不 同 的 事件 时 执行 
不 同 的 代码 片段 。 事 件 可 以 由 用 户 操 作 触发 ， 也 可 以 由 操作 系统 或 其 他 应 用 程序 的 消息 触 
发 ， 甚 至 由 应 用 程序 本 身 的 消息 触发 。 这 些 事件 的 顺序 决定 了 代码 执行 的 顺序 ， 因 此 ， 应 
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用 程序 每 次 运行 时 所 经 过 的 代码 路 径 都 是 不 同 的 。 

因为 事件 的 顺序 是 无 法 预测 的 ， 所 以 在 代码 中 必须 对 执行 时 的 各 种 状态 作 一 定 的 假 
设 。 当 作出 某 些 假设 时 例如， 假设 在 运行 时 处 理 某 一 输入 字段 的 过 程 之 前 ， 该 输入 字段 
必须 包含 确定 的 值 ) ， 应 该 组 织 好 应 用 程序 的 结构 ， 以 确保 该 假设 始终 有 效 〈 例 如 ， 在 输 
入 字段 中 有 值 之 前 ， 禁 止 使 用 启动 该 处 理 过 程 的 命令 按钮 ) 。 

在 Excel 中 使 用 VBA 开发 应 用 程序 , 实质 就 是 编写 程序 中 各 对 象 不 同事 件 的 代码 。 事 
件 是 对 象 识别 的 动作 ， 例 如 ， 打 开 Excel 工作 敌 、 切 换 当 前 工作 表 等 都 将 产生 相关 事件 。 
VBA 的 对 象 有 一 个 预定 义 的 事件 集 , 对 每 个 事件 都 可 编写 一 个 事件 处 理 过 程 。 如 果 其 中 有 
一 个 事件 发 生 ， 而 且 在 关联 的 事件 过 程 中 存在 代码 ， 则 VBA 调用 该 代码 。 例 如 ， 在 工作 
短 的 Open 事件 中 编写 有 代码 ， 则 打开 Excel 工作 短 时 将 执行 该 事件 中 的 代码 。Excel 定义 
的 事件 很 多 ， 常 见 的 事件 有 : 

口 鼠标 单 击 事件 (Click》; 

口 工作 簿 打开 事件 (Open)》; 

口 工作 表 激 活 事件 〈Activate) ; 

口 单元 格 改 变 事 件 Change) 。 

启动 Excel 应 用 程序 后 ， 工 作 夭 、 工 作 表 或 单元 格 等 对 象 就 准备 接收 事件 。 事 件 可 由 
用 户 引 发 (例如 键盘 操作 ) ， 可 由 系统 引发 (例如 定时 器 事件 ) ， 也 可 由 代码 间接 引发 ( 例 
如 当代 码 激活 其 他 工作 表 产 生 的 事件 ) 。 


1.4 Excel 应 用 程序 开发 流程 


与 使 用 其 他 程序 设计 语言 开发 应 用 程序 相同 ， 在 进行 Excel 应 用 程序 二 次 开发 时 ， 也 
可 以 使 用 成 熟 的 程序 开发 方法 ， 以 提高 其 开发 效率 。 开 发 人 员 必 须 掌 握 正 确 的 开发 手段 ， 
了 解 软 件 开发 的 主要 过 程 , 这 样 对 软件 项 目 才能 有 清醒 的 认识 , 才能 达到 事半功倍 的 效果 。 
本 节 就 Excel 应 用 程序 开发 过 程 中 的 一 些 方法 进行 简单 的 介绍 。 


1.4.1 开发 前 的 准备 工作 


在 进行 Excel 应 用 程序 开发 时 ， 首 先 要 编写 系统 任务 书 ， 主 要 规定 应 用 程序 的 开发 目 
标 、 主 要 任务 、 功 能 、 性 能 指标 及 开发 人 员 和 经 费 、 进 度 等 安排 ， 以 作为 系统 设计 开发 和 
检验 的 基本 依据 。 

针对 具体 情况 ， 对 应 用 程序 的 细节 进行 具体 分 析 ， 必 要 时 还 要 进行 实地 调研 ， 与 客户 
进行 沟通 ， 然 后 编写 出 需求 分 析 文 稿 。 

需求 分 析 的 任务 不 是 确定 应 用 程序 怎样 做 的 问题 ， 而 是 确定 需要 完成 哪些 工作 的 问 
题 。 需 求 分 析 阶段 的 主要 任务 包括 以 下 几 个 方面 。 

口 功能 需求 : 给 出 应 用 程序 必须 完成 的 所 有 功能 。 

口 环境 需求 : 用 户 的 计算 机 硬件 环境 、 软 件 环境 和 Excel 的 版 本 等 。 

口 界面 需求 : 应 用 程序 的 用 户 界面 是 直接 面 对 用 户 的 ， 所 以 界面 设计 是 用 户 能 否 方 
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便 、 快 捷 地 操作 应 用 程序 的 关键 之 一 。 在 需求 分 析 阶 段 ， 应 提出 界面 的 需求 。 

口 安全 保密 需求 : 对 客户 信息 的 保密 要 求 应 在 本 阶段 开始 计划 。 

口 用 户 技术 层次 : 在 需求 分 析 阶 段 ， 了 解 用 户 的 技术 层次 ， 可 为 应 用 程序 的 开发 提 
供 一 些 辅助 信息 。 


1.4.2 ”应 用 程序 开发 过 程 


有 了 系统 任务 书 和 需求 分 析 报 告 后 ， 开 发 人 员 就 可 以 对 Excel 应 用 程序 的 实现 进行 系 
统 分 析 ， 然 后 按照 分 析 进 行 相应 的 程序 设计 、 编 写 代码 工 作 。 


1. 系统 设计 


系统 设计 阶段 是 通过 对 用 户 需 求 进行 调查 分 析 ， 得 出 应 用 程序 的 功能 、 性 能 及 数据 要 
求 ， 以 确定 Excel 应 用 程序 所 需 的 工作 表 及 表 中 的 列 数据 、 窗 体 等 模块 。 


2. 设计 用 户 交 互 界面 


一 个 良好 的 应 用 程序 必须 有 一 个 良好 的 界面 。 用 户 通过 界面 与 应 用 程序 进行 交互 。 开 
发 人 员 在 设计 界面 时 ， -证 要 牢 把 握 方便 用 户 操作 这 一 观点 ， 并 贯穿 到 设计 界面 中 。 

与 以 往 版 本 不 同 的 是 ，Excel 2007 中 取消 了 菜单 和 工具 栏 〈 以 往 版 本 设计 的 工具 栏 和 
菜单 将 放 在 【加 载 项 ] 选 项 卡 的 【 自 定义 工具 栏 ] 和 【 自 定义 菜单 栏 ] 组 中 )。 在 Excel 2007 
中 进行 界面 设计 的 方式 主要 有 以 下 3 种 。 

口 在 工作 表 中 添加 控件 ; 

口 用 户 窗 体 ; 

口 自 定义 功能 区 。 

3. 代码 设计 

将 用 户 界面 设计 好 以 后 ， 接 下 来 就 需要 编写 界面 中 各 部 分 的 事件 代码 如 用 户 窗 体 中 
的 按钮 、 功 能 区 中 的 按钮 等 ) 了 。 

在 Excel 中 设计 VBA 应 用 程序 时 , 界面 设计 和 代码 设计 一 般 是 交替 进行 的 , 即 设计 好 
一 个 界面 后 就 编写 相应 的 代码 。 有 时 也 可 先 录 制 修改 好 宏 代 码 ， 再 与 工作 表 或 用 户 窗 体 中 
的 按钮 进行 绑 定 。 本 书后 面 的 章节 都 是 介绍 界面 设计 和 代码 设计 知识 的 ， 这 是 应 用 程序 的 
核心 部 分 。 


1.4.3 ”系统 测试 


在 创建 了 应 用 程序 之 后 ， 必 须 对 其 进行 测试 ， 这 是 非常 重要 的 一 个 步骤 。 测 试 和 调试 
应 用 程序 所 花费 的 时 间 可 能 与 开发 系统 的 时 间 同 样 多 。 

对 于 一 个 开发 完成 的 应 用 程序 ， 在 设计 测试 数据 时 ， 应 尽 可 能 多 地 考虑 到 各 种 不 同 的 
情况 ， 不 但 要 使 用 正常 的 合乎 逻辑 的 数据 测试 应 用 程序 的 功能 性 ， 还 应 使 用 一 些 可 能 导致 
应 用 程序 出 错 的 数据 测试 应 用 程序 的 健壮 性 。 
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在 设计 测试 数据 的 同时 ， 应 编写 出 测试 数据 的 结果 ， 并 与 应 用 程序 进行 实测 时 得 到 的 
数据 进行 对 比 ， 如 果 结 果 相 同 ， 则 通过 测试 ， 否则， 应 检查 并 修改 应 用 程序 。 


1.4.4 ”应 用 程序 发 布 


通过 测试 后 的 应 用 程序 就 可 发 布 给 最 终 用 户 使 用 了 .在 发 布 时 需要 注意 以 下 3 个 问题 。 

口 Excel 版 本 : 如 果 是 在 Excel 2007 环境 下 开发 的 应 用 程序 ， 并 使 用 了 Excel 2007 的 
一 些 新 功能 (如 自 定义 功能 区 ) ， 就 需要 用 户 使 用 Excel 2007 版 本 。 如 果 用 户 使 
用 Excel 2007 之 前 的 版 本 ， 则 需要 将 使 用 Excel 2007 新 功能 部 分 的 代码 进行 修改 ， 
并 发 布 为 以 往 的 版 本 。 

口 动态 链接 库 ， 如果 应 用 程序 中 使 用 了 _ ActiveX 控件 ， 则 需要 考虑 是 否 要 将 包含 该 
ActiveX 控件 的 DLL 文件 (或 OCX 文件) 包含 在 应 用 程序 中 予以 发 布 。 

口 辅助 文件 : 在 一 个 大 型 的 应 用 程序 中 , 不 可 能 只 包括 一 个 Excel 工作 短文 件 ， 有 时 
可 能 还 需要 使 用 其 他 辅助 文件 〈 如 图 片 文 件 、 数 据 库 文 件 、 帮 助 文件 等 ) ， 需 要 
将 这 些 文件 包括 在 发 布 文件 中 ， 并 且 最 好 将 其 发 布 到 其 他 盘 符 中 进行 测试 ， 以 检 
查 在 VBA 代码 中 是 否 使 用 了 绝对 路 径 来 引用 相关 的 文件 。 
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创建 和 使 用 宏 是 Excel 最 强大 的 功能 之 一 。 宏 是 可 用 于 自动 执行 任务 的 一 项 或 一 组 操 
作 。 通 过 VBA 编写 的 宏 可 控制 Excel 应 用 程序 ， 对 Excel 的 功能 进行 扩充 。 

要 自动 执行 重复 任务 , 可 以 在 Excel 中 快速 录制 宏 。 也 可 以 在 VBE(Visual Basic Editor， 
是 编写 VBA 代码 的 工具 ) 中 编写 自己 的 宏 脚 本 ， 或 将 所 有 或 部 分 宏 复 制 到 新 宏 中 来 创建 
一 个 宏 。 在 创建 宏 之 后 ， 用 户 可 以 将 宏 分 配给 对 象 ( 如 工具 栏 按 钮 、 图 形 或 控件 ) ， 以 便 
能 够 通过 单 击 该 对 象 来 运行 宏 。 本 章 将 介绍 创建 和 管理 宏 的 方法 。 


2.1 宏 简 介 


在 使 用 Excel 的 过 程 中 ， 用 户 可 能 经 常 需要 在 Excel 中 进行 重复 的 操作 ， 并 且 这 些 重 
复 任 务 将 占用 很 多 的 时 间 。 这 时 ， 有 没有 想 过 可 能 有 更 好 的 办 法 ? 如 果 经 常 需要 执行 一 些 
重复 操作 ， 那 么 有 必要 了 解 一 下 有 关 宏 的 知识 。 


全 提示 : 用户 在 打开 Excel 工作 簿 时 ， 可 能 看 到 过 宏 警 告 ， 因 此 ， 说 到 宏 可 能 会 联想 到 诸 
如 病毒 或 编程 等 可 怕 的 字眼 。 事实 上 ， 多 数 宏 不 仅 无 害 ， 而 且 可 以 为 用 户 节省 大 
量 的 时 间 。 宏 的 创建 和 使 用 非常 简单 。 


2.1.1 什么 是 宏 


宏 是 通过 一 次 单 击 就 可 以 应 用 的 命令 集 。 它 们 几乎 可 以 自动 完成 用 户 在 Excel 中 进行 
的 各 种 操作 。 通 过 VBA 代码 对 宏 进行 编辑 修改 ， 使 宏 还 可 以 执行 许多 高 级 的 、 普 通用 户 
不 能 完成 的 任务 。 

宏 是 一 种 程序 代码 ， 即 使 用 户 不 是 开发 人 员 也 可 以 使 用 它们 ， 甚 至 不 需要 知道 任何 编 
程 知识 。 在 Excel 中 可 以 创建 的 多 数 宏 都 是 用 VBA 的 语言 编写 的 。VBA 宏 就 是 本 书 所 要 
详细 介绍 的 内 容 。 


2.1.2 ”使 用 宏 的 优点 
宏 可 以 节省 时 间 ， 并 可 以 扩展 日 常 使 用 的 程序 的 功能 。 使 用 宏 可 以 自动 执行 重复 的 文 


档 制 作 任 务 ， 简 化 繁 元 的 操作 ， 还 可 以 创建 解决 方案 例如， 自动 创建 用 户 要 定期 使 用 的 
文档 ) 。 精 通 VBA 编程 的 开发 人 员 可 以 使 用 宏 创 建 包括 模板 、 对 话 框 在 内 的 自 定义 外 接 
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程序 ， 甚 至 可 以 存储 信息 以 便 重复 使 用 。 

例如 ， 在 一 个 具有 几 十 个 甚至 上 百 个 工作 表 的 Excel 工作 短 中 ， 要 分 别 设置 每 个 工作 
表 的 表 头 部 分 和 数据 部 分 的 格式 。 如 果 在 Excel 中 手工 操作 ， 假 设 每 个 工作 表 需 要 1 分 钟 
时 间 ， 则 整个 工作 敌 的 格式 设置 也 需要 一 两 个 小 时 才能 完成 ， 并 且 该 项 工作 非常 乏味 。 如 
果 对 其 中 的 一 个 工作 表 设 秆 格式 ， 并 将 该 操作 录制 为 宏 ， 然 后 编辑 该 宏 ， 使 之 在 整个 工作 
矢 中 重复 执行 格式 的 设置 ， 那 么 完成 这 项 任务 就 不 是 几 个 小 时 了 ， 只 需 几 分 钟 就 足够 了 。 


2.1.3 ”创建 宏 的 方法 


在 Excel 中 可 使 用 两 种 方法 来 创建 宏 ， 一 种 方法 是 利用 Excel 操作 环境 中 的 宏 录 制 器 

录制 用 户 的 操作 ; 另 一 种 方法 是 使 用 VB 编辑 器 编写 自己 的 宏 代 码 。 

口 利用 宏 录制 器 可 记录 用 户 在 Excel 中 的 操作 动作 ,以 便 自动 创建 需要 的 宏 。 对 于 初 
学 者 ， 因 为 不 熟悉 VBA 指令 ， 使 用 该 方法 将 非常 方便 。 这 也 是 初学 者 学 习 VBA 
指令 的 一 种 好 方法 。 

口 使 用 VB 编辑 器 可 以 打开 已 录制 的 宏 , 修改 其 中 的 命令 , 也 可 以 在 VB 编辑 器 中 直 
接 输 入 命令 创建 宏 。 对 于 很 多 无 法 录制 的 命令 (如 创建 新 的 窗 体 等 ) ， 使 用 VB 
编辑 器 创建 宏 是 唯一 的 方法 。 

在 创建 宏 之 后 ， 可 以 将 宏 分 配给 对 象 〈《 如 按钮 、 图 形 、 控 件 、 快 捷 键 等 ) ， 这 样 执行 

宏 就 像 单 击 按钮 ， 或 按 快 捷 键 一 样 简单 。 正 是 由 于 这 种 操作 方便 的 特性 ， 使 用 宏 可 以 方便 
地 扩展 Excel 的 功能 。 如 果 不 需要 再 使 用 宏 ， 可 以 将 其 删除 。 


2.2 创建 宏 


可 以 通过 录制 宏和 在 VBE 环境 中 编写 代码 这 两 种 方式 创建 宏 。Excel 2007 及 Excel 以 
前 版 本 的 宏 使 用 相同 的 VBA 代码 。 但是， 在 录制 宏 时 ，Excel 2007 与 Excel 以 前 版 本 有 所 
不 同 。 


2.2.1 在 Excel 2003 中 录制 宏 


录制 宏 是 创建 宏 的 最 简单 、 最 常用 的 方法 。 宏 录制 类 似 于 “记忆 ”用 户 在 Excel 环境 
中 执行 的 操作 ， 其 方法 与 在 盒 式 磁 带 上 录制 音乐 类 似 。 当 按 下 录音 键 时 ， 所 有 声音 都 存储 
在 磁带 上 ， 直 到 按 下 停止 键 。 录 制 宏 的 过 程 与 此 基本 相同 。 按 下 【录制 】 按 钮 时 ， 所 执行 
的 任务 、 使 用 的 窗口 和 工具 等 都 作为 宏 代 码 录制 下 来 。 

Excel 2003 及 以 前 版 本 都 使 用 菜单 和 工具 栏 方式 执行 相关 操作 。 录 制 宏 时 通过 单 击 主 
菜单 【工具 】|【 宏 】| 【录制 新 宏 】 命 令 ， 即 可 将 Excel 中 进行 的 操作 用 VBA 代码 记录 
下 来 。 


全 技巧 : 因 VBA 中 的 对 象 、 属 性 非常 多 ， 对 于 初学 者 来 说 ， 确 实 不 易 记 忆 。 通 过 录制 宏 ， 
然后 分 析 Excel 自动 记录 的 VBA 代码 ， 是 学 习 VBA 的 一 个 有 效 方法 。 
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下 面 以 设置 工作 表 表 头 格式 为 例 ， 介 绍 录制 宏 的 方法 ， 具 体操 作 步 骤 如 下 : 
(1) 启动 Excel 2003， 打 开工 作 短 “销售 管理 .xls”， 并 选中 单元 格 区 域 “Al:JI”， 
如 图 2-1 所 示 。 


图 2-1 选中 单元 格 区 域 


(2) 单 击 主 菜单 【工具 】|【 宏 】| 【录制 新 宏 】 命 令 ， 打 开 如 图 2-2 所 示 【 录 制 新 宏 】 
对 话 框 。 在 【 宏 名 】 文 本 框 中 输入 名 称 “ 设 置 表 头 格式 ”， 并 设置 宏 的 快捷 键 为 Ctrl+t， 
然后 选择 好 宏 的 保存 位 置 。Excel 自动 在 【说 明 】 文 本 框 中 填充 备注 信息 《默认 情况 下 将 
由 Excel 生成 包括 文稿 作者 、 录 制 时 间 等 信息 ) ， 用 户 可 在 该 文本 框 中 输入 宏 的 备注 信息 。 


全 注意 : 宏 的 保存 位 置 有 3 种 : 当前 工作 薄 一 一 宏 只 对 当前 工作 簿 有 效 ; 个 人 宏 工 作 
簿 一 一 宏 对 所 有 工作 簿 都 无 效 ; 新 工作 簿 一 一 录制 的 宏 保存 在 一 个 新 建 工 作 薄 中 ， 
对 该 工作 簿 有 效 。 


(3) 单 击 【确定 】 按 钮 ， 将 显示 如 图 2-3 所 示 的 【停止 录制 】 工 具 栏 。 


DD: 存在 UL); 
Ctrl+ | | 当前 工作 短 


加 ): AS 
国 合 远 高 录制 ,时间 2000-2-1d 


CC 陶 | 2 
图 2-2 【录制 新 宏 】 对 话 框 2-3 【停止 录制 】 工 具 栏 


(4) 接 下 来 可 以 在 Excel 中 进行 操作 ， 设 置 工作 表 的 表格 格式 。 单 击 主 菜单 【格式 】| 
【单元 格 】 命 令 ， 打 开 【 单 元 格格 式 】 对 话 框 。 

(5) 在 该 对 话 框 中 单 击 【 对 齐 】 选 项 卡 ， 选 中 【水 平 对 齐 】 列 表 框 中 【 跨 列 居中 】 选 
项 ， 如 图 2-4 所 示 。 

(6) 在 该 对 话 框 中 单 击 【 字 体 】 选 项 卡 ， 在 【字形 】 列 表 框 中 选择 “加 粗 ”， 在 【 字 
号 】 列 表 框 中 选中 20， 如 图 2-5 所 示 。 

(7) 单 击 【确定 】 按 钮 完成 格式 的 设置 。 

(8) 单 击 【停止 录制 〗】 工 具 栏 中 的 【停止 录制 〗】 按 钮 ， 完 成 宏 的 录制 。 工 作 表 设 置 表 
头 格式 后 如 图 2-6 所 示 。 
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设置 跨 列 居 中 


民 


8occcocoaso 


Soo0oo0o58oo8RS 
”局 莘 生 呵 吓 呈 币 呈 喇 呈 种 ; 


图 2-6 设置 表 头 后 的 格式 
(9) 按 快 捷 键 AlttF11 打开 VBE， 可 看 到 录制 的 宏 代码 ， 如 图 2-7 所 示 。 


计量 表 接 式 wr。 
7 过 由 全 还 高 录制 ， 时 间 : 2008-2-10 
“二 掺 健 cultt 


Activegindow WindowState = zlHornal 
Actiyagindog Windonstae = LNoraal 
Wth Seleeti on 
orizentalAli emaeat = xlCenterkerossSelection 
Vertical Migaent = xlCenter 
apText = Felse 
= 


se 


Readinz0rdsr = xlentext 
Nergetells = 了 False 

Ena ith 

Wth Seloction Font 
Yonts 得” 
Size = 20 


Strikethroush = Fulse 


一 | 


2-7 录制 宏 生 成 的 代码 
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2.2.2 ”打开 Excel 2007 的 录制 宏 功 能 


和 以 前 版 本 的 Excel 相 比 ，Excel 2007 采用 了 全 新 的 面向 结果 的 用 户 界面 。 以 前 版 本 
中 熟悉 的 菜单 栏 和 工具 栏 消失 了 ， 被 称 为 功能 区 (Ribbon) 的 面板 取代 。 在 功能 区 中 ， 命 
令 被 组 织 在 逻辑 组 中 ， 罗 和 辑 组 集中 在 选项 卡 下 。 每 个 选项 卡 都 与 一 种 类 型 的 活动 〈 例 如 为 
页 面 编辑 内 容 或 设计 布局 ) 相关 。 

要 在 Excel 2007 中 录制 宏 ， 需 使 用 【开发 工具 】 功 能 区 中 的 相关 命令 。 在 Excel 2007 
的 默认 环境 中 ,【 开 发 工具 】 选 项 卡 是 隐藏 的 ， 如 果 要 编写 宏 、 运 行 以 前 录制 的 宏 或 创建 
与 Office 程序 一 起 使 用 的 应 用 程序 ， 需 要 将 【开发 工具 】 选 项 卡 显 示 出 来 。 具 体操 作 步 又 
如 下 : 

(1) 启动 Excel 2007。 

(2) 在 Excel 操作 界面 上 单 击 左上 角 的 Office 按钮 ， 打 开 下 拉 菜 单 ， 如 图 2-8 所 示 。 

(3) 单 击 下 方 的 【Excel 选项 】 按 钮 打开 【Excel 选项 】 对 话 框 ， 如 图 2-9 所 示 。 

(4) 在 该 对 话 框 中 选择 左 侧 的 【常用 】 选 项 卡 。 在 【使 用 Excel 时 采用 的 首选 项 】 区 
域 中 选中 【在 功能 区 显示 “开发 工具 ”选项 卡 】 复 选 框 。 


回国 
| 本 回 
| 入 时 ee | 
使 用 Excel 时 及 用 的 首选 鸭 
wy [5 
DD ra es mm) 
ea 
蕊 sro 回 Sa OeypeD 
wb messO: |ze 同 
|] RO) 大 提示 区 (有 ): | 五 刺 胡 再 寺 中 三 示 Wiam ”六 | 


局 see 人 时 风 于 持 序 和 填充 计 出 的 列 要 | 如 二 呈 坟 列 雪 (O) 
工作 第 
[Ee . 
合用 的 字 你 (N) Ess 恬 
乱 mE) SD: 所 国 
py Da | 
Ei | 
| 图 so ，' 对 Microscft office 进行 个 性 化 澡 轩 
证 sw ， nln 
这 近 用 于 Microsoft Office 的 雪 言 : 
9) 本 四 
Gea) em] 
图 2-8 ”Office 按钮 的 下 拉 菜 单 图 2-9 【Excel 选 项】 对 话 框 


(5) 单 击 【确定 】 按 钮 返回 Excel 2007 操作 界面 ， 可 以 看 到 【功能 区 】 中 新 增加 了 一 
个 【开发 工具 】 选 项 卡 ， 如 图 2-10 所 示 。 

(6) 单 击 该 选项 卡 ， 将 显示 如 图 2-10 所 示 的 【开发 工具 】 功 能 区 。 在 该 选项 卡 的 【 代 
码 】 组 中 ， 有 录制 宏 及 对 宏 的 设置 等 相关 命令 按钮 。 
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[TT = Book =- Microsoft Excel er 
Th 入 Em 同 。 公式 。 和 光 括 。 二 网 。 视图 | 元 发 IT 只 | Wm @-? x 


条 扩大 色 ”了 sd 


ME 


图 2-10 【开发 工具 】 选 项 卡 


(7) 在 Excel 2007 的 状态 栏 中 也 提供 了 一 个 【录制 宏 】 按 钮 ， 在 默认 状态 下 ， 该 按钮 
未 显示 出 来 。 要 显示 该 按钮 ， 右 击 状态 栏 将 显示 如 图 2-11 所 示 的 快捷 菜单 。 


国 
中 
G 
冲 六 六 六 六 六 六 区 


图 2-11 【 自 定义 状态 栏 】 快 捷 菜 单 


(8) 单 击 【 宏 录制 】 命 令 ， 将 在 状态 栏 中 显示 如 图 2-12 所 示 的 【录制 宏 】 按 钮 。 在 录 
制 宏 的 过 程 中 ， 该 按钮 将 变 为 【停止 录制 宏 】 按 钮 。 


录制 宏 


图 2-12 ”状态 栏 


2.2.3 在 Excel 2007 中 录制 宏 


在 Excel 2007 中 录制 宏 的 操作 与 在 Excel 2003 中 录制 宏 类 似 ， 下 面 演示 在 Excel 2007 
中 录制 宏 ， 以 了 解 两 个 版 本 中 录制 宏 的 相同 和 不 同 之 处 。 

(1) 启动 Excel 2007， 打 开 如 图 2-1 所 示 的 工作 敌 。 

(2) 若 Excel 2007 的 功能 区 中 无 【开发 工具 】 选 项 卡 ， 需 要 使 用 2.2.2 节 介 绍 的 方法 
将 【开发 工具 】 选 项 卡 显示 出 来 。 

(3) 在 工作 表 中 选中 单元 格 区 域 “Al:JI”。 

(4) 在 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【录制 宏 】 按 钮 ， 如 图 2-13 所 示 。 

(5) 打开 【录制 新 宏 】 对 话 框 ， 如 图 2-14 所 示 。 在 【 宏 名 】 文 本 框 中 输入 名 称 ， 并 设 
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秆 好 快捷 键 及 保存 位 置 等 信息 ， 单 击 【 确 定 】 按 钮 开始 录制 宏 。 此 时 状态 栏 中 的 【录制 宏 】 
按钮 图 变 为 了 【停止 录制 】 按 钮 时 。 


@ 加 -ez Microsoft Excal x 
站 


代码 


图 2-13 【录制 宏 】 按钮 图 2-14 【录制 新 宏 】 对 话 框 


(6) 在 功能 区 中 单 击 【开始 】 选 项 卡 ， 在 该 选项 卡 的 【对 齐 方 式 】 组 中 ， 单 击 【 合 并 
居中 】 按 钮 ， 将 单元 格 区 域 “A1:J1” 合 并 居中 。 

(7) 在 【开始 】 选 项 卡 的 【字体 】 组 中 ， 单 击 【 加 粗 】 按 钮 屿 ， 在 【字号 】 列 表 框 中 
选中 20。 

(8) 在 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 停 止 录制 】 按 钮 ， 完 成 宏 的 录制 
操作 。 


外 提示: 单 击 状态 栏 中 的 【停止 录制 〗 命 令 按钮 ， 也 可 完成 宏 的 录制 。 
(9) 按 快捷 键 Altt+F11 打开 VBE， 可 看 到 录制 的 宏 代码 ， 如 图 2-15 所 示 。 


销售 管理 (2007)- xls - | 模块! 《代码 )1 


2-15 录制 宏 的 代码 


2.2.4 使 用 VB 创建 宏 


使 用 宏 录 制 器 可 在 Excel 中 记录 按 顺 序 完成 的 操作 。 在 实际 使 用 时 ， 经 常 需 要 在 宏 中 
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循环 执行 某 一 部 分 操作 ， 使 用 宏 录 制 器 来 创建 这 类 宏 是 不 可 能 的 。 这 时 就 需要 使 用 VB 编 
辑 器 。 在 该 编辑 器 中 使 用 VBA 代码 可 完成 各 种 复杂 的 操作 。 

(1) 启动 Excel 2007， 如 果 软 件 已 经 启动 ， 则 新 建 一 个 工作 敌 。 

(2) 在 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 Visual Basic 按钮 ， 打 开 如 图 2-16 
所 示 的 VB 编辑 器 窗口 。 


图 2-16 VB 编辑 器 


名 技巧: 按键 盘 上 的 组 合 键 AlttF11 也 可 打开 VB 编辑 器 . 有 关 VBE 编辑 器 的 使 用 将 在 第 
3 章 中 进行 介绍 。 


(3) 在 VBE 编辑 器 中 ， 单 击 主 菜单 【插入 】|【 模 块 】 命 令 ， 向 工程 中 增加 一 个 名 为 
“模块 1” 的 模块 。 

(4) 单 击 主 菜单 【插入 】| 【过程 】 命 令 ， 打开 【添加 过 程 】 对 话 框 ， 在 【名 称 】 文 本 
框 中 输入 相应 内 容 ， 并 在 【类 型 】、【 范 围 】 选 项 区 域 中 选择 相应 的 选项 ， 如 图 2-17 所 示 。 

(5) 在 【添加 过 程 】 对 话 框 中 单 击 【 确 定 】 按 钮 ， 将 在 【模块 1】 代 码 窗 口中 添加 一 
个 名 为 “欢迎 ”的 过 程 结构 ， 如 图 2-18 所 示 。 


图 2-17 【添加 过 程 】 对 话 框 图 2-18 添加 的 过 程 结构 
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外 提示 : 有 关 过 程 的 相关 知识 ， 参 见 本 书 第 2 部 分 中 的 介绍 。 


(6) 在 图 2-18 所 示 的 过 程 结构 中 输入 以 下 代码 : 


Public sub 欢迎 () 
Dim strl 
str1l = "欢迎 您 使 用 Visual Basic! " 
MsgBox strl, vbOoKOnly, "欢迎 " 
End Sub 


(7) 关闭 VB 编辑 器 ， 返 回 到 Excel 操作 环境 中 。 按 快捷 键 Ctrl+S 保存 工作 短 ， 完 成 
宏 的 创建 。 


名 技巧 : 也 可 先 通过 宏 录 制 器 生成 部 分 宏 代码 ， 再 通过 VB 编辑 器 对 生成 的 代码 进行 
修改 。 


在 Excel 2007 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 如 
图 2-19 所 示 对 话 框 ， 通 过 该 对 话 框 对 Excel 中 的 宏 进行 管理 。 


2-19 【 宏 】 对 话 框 


2.3.1 设置 宏 选 项 


用 户 在 录制 宏 时 ， 可 为 宏 设 置 一 个 快捷 键 ， 在 需要 执行 宏 时 可 以 快速 调用 。 而 用 VB 
代码 直接 编写 的 宏 则 没有 快捷 方式 ， 此 时 用 户 也 可 通过 【 宏 选 项 】 对 话 框 设置 其 快捷 键 ， 
有 具体 操作 步骤 如 下 : 

(1) 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 如 图 2-19 
所 示 的 对 话 框 。 

(2) 在 【 宏 名 】 列 表 框 中 选择 需要 设置 选项 的 宏 ， 单 击 对 话 框 右 侧 的 【选项 】 按 钮 ， 
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打开 【 宏 选 项 】 对 话 框 ， 如 图 2-20 所 示 。 


(3) 在 【 宏 选 项 】 对 话 框 中 可 以 设置 快捷 键 和 宏 的 说 
明 ， 设 置 完 成 后 单 击 【 确 定 】 按 钮 即 可 。 


2.3.2 ”删除 宏 


对 于 工作 德 中 不 需要 的 宏 ， 也 可 将 其 删除 。 删 除 宏 的 
步骤 如 下 : 图 2-20 【 宏 选 项 】 对 话 框 
01) 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 如 图 2-19 
所 示 的 对 话 框 。 
(2) 在 【 宏 名 】 列 表 框 中 选择 需要 设置 选项 的 宏 ， 单 击 
对 话 框 右 侧 的 【删除 】 按 钮 ， 将 打开 如 图 2-21 所 示 的 提示 
信息 ， 单 击 【是 】 按 钮 完成 宏 的 删除 ， 单 击 【 香 】 按 钮 不 删 


除 宏 。 图 2-21 提示 信息 

全 提示 : 在 Excel 中 按 快捷 键 AlttF11 进入 VBE， 选 中 需要 删除 的 宏 代码 ， 按 Del 键 也 可 
快速 删除 宏 。 

2.3.3 ”编辑 宏 


本 章 前 面 演示 了 在 Excel 2003 和 Excel 2007 中 录制 宏 的 方法 ， 录 制 的 宏 可 对 当前 工作 
表 的 选 定单 元 格 区 域 设置 格式 。 如 果 要 对 当前 工作 簿 中 的 每 个 工作 表 都 执行 这 些 操作 ， 则 
需要 对 宏 代 码 进 行 编辑 ， 使 录制 的 代码 循环 执行 。 下 面 介绍 编辑 宏 代码 的 操作 : 

(1) 在 Excel 2007 中 打开 “销售 管理 (2007〉.xls” 工 作 敌 。 

(2) 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 如 图 2-19 
所 示 的 对 话 框 。 

(3) 在 【 宏 名 】 列 表 框 中 选择 “设置 表 头 格式 ”， 单 击 对 话 框 右 侧 的 【编辑 】 按 钮 ， 
将 打开 如 图 2-22 所 示 的 VBE 窗口 。 


销售 管理 (2007) .zls - 模块 ! (代码) 


2-22 ” 宏 代码 
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(4) 在 VBE 窗口 中 可 看 到 “设置 表 头 格式 ”的 VBA 代码 如 下 : 


Sub 设置 表 头 格式 () 
' 设置 表 头 格式 Macro 
' 快捷 键 : ctrl+t 


ActiveWindow.Windowstate = xlNormal 


With Selection 
.HorizontalAlignment = xlCenter 


.VerticalAlignment = xlCenter 
-WrapText = False 
-Orientation = 0 
-RddIndent = False 
:IndentLevel = 0 
.ShrinkToFit = False 
.ReadingOrder = xlContext 
.MergeCells = False 

End With 

Selection.Merge 

With Selection.Font 
.Name = "宋体 " 
-Size = 20 
.Strikethrough = False 
.Superscript = False 
.Subscript = False 
OutlineFont = False 
“Shadow = False 
.Underline = xlUnderlinestyleNone 


-ColorIndex = xlAutomatic 
.TintAndshade = 0 
.ThemeFont = xlThemeFontNone 
End With 
Selection.Font.Bold = True 
ActiveWindow.Windowstate = xlNormal 
End Sub 


(5) 从 上 面 的 宏 代 码 中 可 以 看 出 ， 按 要 求 只 


要 设置 所 选单 元 格 区 域 的 字体 、 字 号 和 


粗 体 即 可 ， 但 Excel 录制 宏 时 记录 了 其 他 有 关 字 体 设置 的 状态 例如， 删除 线 、 阴 影 和 下 
划 线 等 。 可 以 对 上 面 的 代码 进行 优化 ， 删 除 多 余 的 代码 ， 最 后 得 到 如 下 所 示 的 代码 。 


Sub 设置 表 头 格式 _ 修 改 () 


ActiveWindow.Windowstate = xlNormal 
With Selection 
.HorizontalAlignment = xlCenter 
.VerticalAlignment = xlCenter 
End With 


Selection.Merge 
With Selection.Font 


.Name = "宋体 " 


"设置 水 平 居中 
"设置 垂直 居中 


"合并 单元 格 
"设置 字体 


-Size = 20 "设置 字号 
End With 
Selection.Font.Bold = True ' 设 置 粗 体 
ActiveWindow.WindowsState = xlNormal 
End Sub 


全 提示 : 为 了 和 未 修改 的 代码 进行 对 比 ， 将 宏 “ 设 置 表 头 格式 ”的 代码 复制 一 份 ， 并 改名 
为 “设置 表 头 格式 修改 ”。 

(6) 以 上 代码 中 删除 了 不 需要 的 VBA 代码 ， 执 行 该 宏 

格式 。 如 果 需 要 该 宏 对 当前 工作 短 中 所 有 工作 表 的 第 1 行 


只 能 对 选中 的 单元 格 区 域 设置 
进行 设置 ， 则 还 需 添加 代码 。 修 


改 后 的 代码 如 下 : 
Sub 设置 表 头 格式 _ 修 改 1() 
Dim sh As Worksheet，c Rs Long ' 声 明 变量 
ActiveWindow.Windowstate = xlNormal 
For Each sh In Worksheets ! 循 环 处 理 所 有 工 
作 表 
sh.Activate 
c = sh.Range ("A2") .End (xlToRight) .Column ' 查 找 第 2 行 最 右 
侧 单元 格 的 列 号 


IE cC < 255 Then 
sh.Range (sh.Cells (1, 1)，sh.Cells(1，c)) .Select ' 选 中 与 第 2 行 数 


据 等 宽 的 区 域 
With Selection 
.HorizontalAlignment = xlCenter ' 设 置 水 平 居中 
.VerticalAlignment = xlCenter ' 设 置 垂直 居中 
End With 
Selection.Merge ' 合 并 单元 格 
With Selection.Font 
.Name = "宋体 " ' 设 置 字体 
.Size = 20 ' 设 置 字号 
End With 
Selection.Font.Bold = True ' 设 置 粗 体 
End If 
Next 
ActiveWindow.Windowstate = xlNormal 
End Sub 


以 上 代码 对 工作 敌 中 的 每 张 工 作 表 进行 相同 的 操作 ， 即 查找 第 2 列 最 右 侧 的 数据 列 ， 
得 到 第 1 行 需 要 合并 的 单元 格 区 域 ， 接 着 选中 第 1 行 需要 合并 的 区 域 ， 最 后 执行 合并 、 设 
置 字体 等 操作 。 


外 提示 : 有 关 VBA 各 命令 的 意义 ， 这 里 不 做 详细 介绍 ， 读 者 学 习 完 本 书后 面 的 内 容 后 ， 
就 可 理解 以 上 代码 的 含义 。 


(7) 执行 以 上 宏 ， 即 可 将 当前 工作 短 中 所 有 工作 表 的 第 1 行 都 进行 表 头 格式 设置 。 
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创建 一 个 宏 之 后 ， 就 可 以 在 工作 敌 中 反复 调用 宏 进 行 重复 的 工作 。 在 Excel 2007 中 ， 
运行 宏 的 方法 有 很 多 。 本 节 介 绍 几 种 常用 的 运行 宏 的 方法 。 


2.4.1 使 用 快捷 键 运行 宏 


在 录制 宏 时 ， 用 户 可 以 为 每 个 宏 指定 一 个 快捷 键 。 如 果 是 在 VBE 环境 中 用 VBA 代码 
编写 的 宏 ， 也 可 通过 【 宏 选 项 】 对 话 框 为 其 指定 一 个 快捷 键 。 

快捷 键 一 般 由 Ctrl 键 加 上 一 个 字母 组 成 。 通 过 快捷 键 运行 宏 是 最 方便 的 方法 ， 具 体操 
作 步 骤 如 下 : 

(1) 打开 包含 宏 的 工作 短 。 

(2) 做 好 执行 宏 之 前 的 准备 工作 〈 如 选择 单元 格 区 域 等 ) ， 按 快捷 键 Ctrl+ 字 母 便 可 运 
行 对 应 的 宏 。 


2.4.2 ”使 用 【 宏 】 对 话 框 运行 宏 


在 【 宏 】 对 话 框 有 一 个 【执行 】 按 钮 ， 通 过 该 按钮 可 运行 宏 ， 具 体 的 操作 步 又 如 下 : 

(1) 在 Excel 2007 中 打开 包含 宏 的 工作 禾 。 

(2) 在 工作 表 中 拖 动 选中 第 1 行 的 单元 格 区 域 。 

(3) 在 【开发 工具 】 选 项 卡 上 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 后 如 图 2-23 
所 示 。 


] Co 
| 


位 置 多 :| 所 有 打开 的 工作 等 | 


说 明 
设置 工作 表 中 选 定 区 域 的 格式 


2-23 ”执行 宏 


(4) 在 【 宏 】 对 话 框 的 【 宏 名 】 列 表 框 中 ， 单 击 选 择 要 运行 的 宏 “ 设 置 表 头 格式 ”， 
则 在 对 话 框 的 下 方 将 显示 该 宏 的 说 明 信 息 。 
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(5) 单 击 对 话 框 右 侧 的 【执行 】 按 钮 即 可 执行 选中 的 宏 。 
和 提示: 在 执行 宏 时 ， 按 Esc 键 可 以 中 断 宏 的 执行 。 


2.4.3 ”使 用 工具 栏 运行 宏 


这 种 方式 只 适合 于 Excel 2003 及 其 以 前 版 本 。 

在 Excel 2003 及 其 以 前 版 本 中 ， 工 具 栏 中 汇集 了 常用 命令 按钮 。 用 户 还 可 对 工具 栏 进 
行 自 定义 ， 甚 至 将 录制 的 宏 添 加 到 工具 栏 中 ， 以 方便 用 户 快速 执行 宏 。 使 用 工具 栏 执行 宏 
的 操作 方法 如 下 : 

(1) 在 Excel 2003 中 打开 工作 敌 。 

(2) 单 击 主 菜单 【工具 】|【 自 定义 】 命 令 ， 打开 【 自 定义 】 对 话 框 ， 如 图 2-24 所 示 。 

(3) 在 对 话 框 中 单 击 【 工 具 栏 】 选 项 卡 ， 如 图 2-25 所 示 。 


TRE | HF [SR | 
天 有 EP 过失 和 JF 人 人 从 夫 对 本本 R 玉 开 具 
英 吕 四， 


L 性 


| 


图 2-24 【 自 定义 】 对 话 框 图 2-25 【工具 栏 】 选 项 卡 


(4) 在 图 2-25 所 示 对 话 框 中 单 击 【新建 】 按 钮 ， 将 打开 【新 建 工具 栏 】 对 话 框 ， 如 
图 2-26 所 示 。 

(5) 在 【工具 栏 名 称 】 对 话 框 中 输入 “ 自 定义 工具 栏 ”， 单 击 【 确 定 】 按 钮 将 创建 一 
个 工具 栏 ， 如 图 2-27 所 示 。 同 时 在 【 自 定义 】 对 话 框 中 将 显示 新 增加 工具 栏 的 名 称 ， 如 图 
2-28 所 示 。 
全 提示 : 新 创建 的 工具 栏 没有 任何 按钮 ， 是 一 个 空白 工具 栏 。 

(6) 在 【 自 定 义 】 对话 框 中 单 击 【 命 令 】 选 项 卡 , 在 【类 别 】 列表 框 中 查找 并 单 击 【 宏 】， 
如 图 2-29 所 示 。 

(7) 拖 动 【 自 定义 】 对 话 框 中 的 【 自 定义 按钮 】 到 新 创建 的 空白 工具 栏 ， 如 图 2-30 
所 示 。 


2-26 【新 建 工 具 栏 】 对 话 框 图 2-27 新 创建 的 空白 工具 栏 
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工具 栏 和 命令 ”法 项 0) | 
本 中 oN 人 过 和 ss8f 格 向 人 化 对 活 杠 措 放 至 T 具 


图 2-28 工具 栏 列 表 图 2-29 【命令 】 选 项 卡 


图 2-30 ” 拖 动 到 工具 栏 中 


(8) 在 新 建 的 工具 栏 中 可 以 看 到 新 添加 的 按钮 , 右 击 该 按钮 , 弹出 快捷 菜单 , 如 图 2-31 
所 示 。 在 快捷 菜单 的 【命令 】 文 本 框 中 输入 新 建 按钮 的 名 称 “ 设 置 表 头 格式 ”。 


全 注意 : 必须 确保 【 自 定义 〗 对 话 框 处 于 打开 的 状态 ， 才 能 对 工具 栏 中 的 按钮 进行 修改 。 


(9) 再 次 右 击 工具 栏 中 的 该 按钮 ， 在 弹出 的 快捷 菜单 中 单 击 【 更 改 按 钮 图 像 】 命 令 ， 
在 弹出 的 图 像 列 表 中 选择 一 个 图 标 ， 如 图 2-32 所 示 。 

(10) 再 次 右 击 工具 栏 中 的 该 按钮 ， 在 弹出 的 快捷 菜单 中 单 击 【 指 定 宏 】 命 令 ， 将 打 
开 【 指 令 宏 】 对 话 框 ， 如 图 2-33 所 示 。 

(11) 在 【 宏 名 】 列 表 框 中 选择 “设置 表 头 格式 ”， 单 击 【 确 定 】 按 钮 ， 即 可 为 工具 
栏 中 的 按钮 指定 调用 的 宏 。 

(12) 单 击 【 自 定义 】 对 话 框 中 的 【关闭 】 按 钮 ， 完 成 工具 栏 的 自 定义 操作 。 最 后 得 
到 的 新 建 工具 栏 如 图 2-34 所 示 。 单 击 工具 栏 中 的 按钮 即 可 运行 指定 的 宏 。 
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全 技巧 以 上 操作 是 在 Excel 环境 中 进行 的 ， 在 学 完 本 书 相关 知识 后 ， 读 者 还 可 以 通过 编 
写 VBA 代码 创建 自 定义 工具 栏 ， 并 为 工具 栏 添加 按钮 、 指 定 宏 。 


要 删除 自 定 义工 具 按 钮 , 先 打开 【 自 定义 】 对 话 框 , 将 工具 栏 中 要 删除 的 按钮 拖 到 【 自 
定义 】 对 话 框 中 ， 松 开 鼠 标 即 可 。 


2.4.4 ”使 用 菜单 栏 运行 宏 


这 种 方式 只 适合 于 Excel 2003 及 其 以 前 版 本 。 

与 使 用 工具 栏 运行 宏 的 方法 类 似 ， 使 用 菜单 栏 运行 宏 的 操作 也 需要 通过 【 自 定义 】 对 
话 框 来 设置 ， 具 体操 作 步 又 以 如 下 : 

(1) 在 Excel 2003 中 打开 工作 短 。 

(2) 单 击 主 菜 单 【 工 具 】|【 自 定义 】 命 令 ， 打 开 【 自 定义 】 对 话 框 。 

(3) 在 该 对 话 框 的 【类 别 】 列 表 框 中 选择 【新 菜单 】， 如 图 2-35 所 示 。 

(4) 拖 动 【 自 定 义 】 对 话 框 中 的 “新 菜单 ”到 Excel 的 菜单 栏 ， 如 图 2-36 所 示 。 

(5) 再 次 拖 动 【 自 定义 】 对 话 框 中 的 “新 菜单 ”到 Excel 的 菜单 栏 ， 在 上 步 创 建 的 “新 
菜单 ”处 暂停 ， 将 打开 空 的 下 拉 菜 单 ， 然 后 将 鼠标 拖 动 到 空白 下 拉 菜 单 中 ， 即 可 创建 一 个 
下 拉 菜 单项 ， 如 图 2-37 所 示 。 
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2-35 【 自 定 义 】 对 话 框 中 的 【新 菜单 】 


图 2-36 ” 拖 动 “新 菜单 ”到 Excel 菜单 栏 
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5 | i | 
al | 
a 
3 
HI 有 | | | 一 
| 
Fl 
a 
13 5 
CREE 
| 
就 十 


图 2-37 拖 动 “ 新 菜单 ”到 下 拉 菜 单 中 
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(6) 确保 【 自 定义 】 窗 体 处 于 打开 状态 ， 单 击 主 菜 单 中 的 【新 菜单 】 命 令 打 开 下 拉 菜 
单 ， 在 下 拉 菜 单 中 右 击 【新 菜单 】 选 项 ， 将 弹出 快捷 菜单 ， 如 图 2-38 所 示 。 


竹 助 吧 证 入 和 和 要 帮助 的 问题 


图 2-38 设置 菜单 文字 


(7) 在 快捷 菜单 的 【命名 】 文 本 框 中 输入 菜单 的 名 称 “ 设 置 表 头 格式 ”， 如 图 2-38 
所 示 。 

(8) 与 自 定义 工具 栏 按钮 类 似 ， 再 次 右 击 下 拉 菜 单 ， 在 弹出 的 快捷 菜单 中 选择 【指定 
宏 】 命 令 ， 为 下 拉 菜 单项 指定 执行 的 宏 。 


外 技巧 : 要 删除 自 定义 菜单 ， 先 打开 【 自 定义 〗 对 话 框 ， 将 菜单 栏 中 要 删除 的 菜单 项 拖 到 
【 自 定义 〗 对 话 框 中 ， 再 松 开 筷 标 即 可 。 


2.4.5 ”使 用 快速 工具 栏 运行 宏 


这 种 方式 适合 Excel 2007 使 用 。 

在 Excel 2007 中 ， 没 有 了 菜单 和 工具 栏 ， 只 有 快速 工具 栏 与 以 往 版 本 的 工具 栏 相似 。 
可 以 在 快速 工具 栏 中 添加 命令 按钮 ， 用 来 快速 执行 宏 ， 具 体操 作 如 下 : 

(1) 在 Excel 2007 中 打开 工作 短 。 

(2) 单 击 【Office 按钮 】, 打开 下 拉 菜 单 , 单 击 下 方 的 【Excel 选项 】 按 钮 , 弹出 【Excel 
选项 】 对 话 框 。 

(3) 在 该 对 话 框 中 单 击 左 侧 的 【 自 定义 】 选 项 卡 ， 显 示 如 图 2-39 所 示 的 界面 。 在 该 对 
话 框 中 ， 可 对 自 定义 快速 访问 工具 栏 进行 自 定义 。 

(4) 在 【从 下 列 位 置 选择 命令 】 下 拉 列 表 中 ， 选 择 【 宏 】 选 项 ， 下 方 的 列表 框 中 将 显 
示 当 前 的 宏 名 。 

(5) 选中 一 个 宏 名 〈 如 “设置 表 头 格式 ”) ， 单 击 【 添 加 】 按 钮 将 其 添加 到 自 定义 快 
速 访问 工具 栏 中 ， 如 图 2-40 所 示 。 


和 
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图 2-40 添加 按钮 到 自 定义 快速 访问 工具 栏 


(6) 在 右 侧 的 列表 框 中 选择 刚 添加 的 宏 ， 单 击 下 方 的 【修改 】 按 钮 ， 在 弹出 的 对 话 框 
中 ， 可 修改 按钮 的 图 标 和 显示 名 称 ， 如 图 2-41 所 示 。 


EE 
加 oe@OA!$@ 曲 甸 加 | 
息 口 曾 名 合 急 晶 导 台 名 六 


2-41 【修改 按钮 】 对 话 框 
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(7) 单 击 【 确 定 】 按 钮 返回 【Excel 选项 】 对 话 框 ， 再 单 击 【 确 定 】 按 钮 完成 快速 工 
具 栏 命令 按钮 的 添加 操作 。 此 时 快速 工具 栏 上 将 添加 一 个 【设置 表 头 格式 】 命 令 按钮 ， 如 
图 2-42 所 示 。 


eo ei 


图 2-42 【设置 表 头 格式 】 按 钮 
(8) 在 快速 访问 工具 栏 上 ， 单 击 该 按钮 即 可 执行 宏 。 


2.4.6 ”通过 按钮 运行 宏 


在 Excel 的 工作 表 中 可 插入 按钮 ， 用 户 为 插入 的 按钮 指定 宏 ， 当 单 击 按钮 时 就 可 运行 
宏 。 具 体操 作 方 法 如 下 : 
(1) 在 Excel 2007 中 打开 工作 敌 。 
(2) 在 功能 区 【开发 工具 】 选 项 卡 的 【控件 】 组 中 单 击 【 插 入 】 按 钮 ， 弹 出 如 图 2-43 
所 示 的 【表单 控件 】 面 板 。 
\ 加 -mR Microsoft Excel cn 
开 h。 手 入 需 公开 其 和 市 网 。 视 加 | 开发 I 具 | jn 有 项 他 
各 人 导入 


| Syme os 
bmi 


2-43 ”表单 控件 


(3) 在 控件 面板 中 单 击 【 按 钮 】 控 件 ， 在 表格 中 单 击 〈 或 拖 动 鼠标 ) 插入 一 个 按钮 ， 
如 图 2-44 所 示 。 


钱 销售 管理 2007J3s [ 苛 客 模式 ] ee 
| EW WW WE PE EE I 
| 1 商品 信息 表 


| 2 产品 ID 产品 名 称 供 让 类 别 单位 数量 “单价 。 库存 量 订购 量 再 订购 量 中 目 
| 5 | 1 苹 采 入 1 1 每 箱 24 瓶 18 39 0 10 是 


图 a = www 


2-44 在 表格 中 插入 按钮 
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(4) 当 松 开 鼠 标 时 将 会 弹出 如 图 2-45 所 示 的 【指定 宏 】 对 话 框 。 在 【 宏 名 】 列 表 框 中 
选择 宏 “ 设 置 表 头 格式 ”， 单 击 【 确 定 】 按 钮 即 可 为 按钮 指定 宏 。 


图 2-45 【指定 宏 】 对 话 框 


(5) 确保 工作 表 中 插入 的 按钮 处 于 选中 状态 (按钮 周围 有 8 个 控制 点 ) ， 单 击 该 按钮 
上 的 文字 ， 将 其 修改 为 “设置 表 头 格式 ”。 然 后 拖 动 按钮 周围 的 控制 点 调整 按钮 的 大 小 。 

C6) 在 工作 表 中 单 击 按钮 以 外 的 地 方 ， 完 成 宏 与 按钮 的 关联 设置 。 

(7) 拖 动 鼠标 选择 表 头 部 分 的 单元 格 区 域 “A1:J1”, 单 击 工作 表 中 的 【设置 表 头 格式 】 
按钮 ， 将 运行 宏 把 表 头 部 分 设置 为 相应 的 格式 ， 如 图 2-46 所 示 。 


销售 管理 (2007)xls [二 容 模式 | rm 


1 每 箱 24 瓶 
并 


中 每 园 500 克 31 31 
ER 1 


2-46 单 击 【设置 表 头 格式 】 按 钮 运行 宏 


全 技巧 在 Excel 工作 表 中 ， 对 于 插入 的 图 形 对 象 也 可 指定 宏 ， 其 操作 方法 与 给 按钮 指定 
宏 类 似 ， 这 里 就 不 再 重复 了 。 


2.4.7 ”打开 工作 筹 自动 运行 宏 


在 Excel 应 用 程序 中 ， 有 些 宏 需 要 在 用 户 打 开工 作 簿 时 就 自动 执行 。 例 如 ， 打 开工 作 
竹 时 显示 应 用 程序 的 欢迎 信息 、 显 示 用 户 登录 窗 体 等 . 这 类 宏 不 需要 用 户 操作 就 自动 运行 ， 
在 Excel 中 有 两 种 方式 来 运行 : 

口 将 宏 名 称 设置 为 Auto_Open， 每 次 打开 包含 此 宏 的 工作 敌 时 ， 该 宏 都 会 自动 运行 。 

口 给 工作 敌对 象 的 Open 事件 编写 代码 ，Open 事件 是 一 个 内 置 的 工作 管事 件 ， 在 每 
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次 打开 该 工作 敌 时 都 运行 Open 事件 过 程 中 的 代码 。 

给 工作 敌对 象 的 事件 过 程 编写 代码 的 内 容 将 在 本 书 第 3 部 分 中 进行 详细 介绍 ， 本 节 介 
绍 使 用 Auto_Open 宏 的 方法 自动 运行 宏 。 假 设 在 用 户 打 开工 作 短 时 要 显示 一 个 欢迎 信息 ， 
可 按 以 下 步骤 进行 操作 : 

(1) 在 Excel 2007 中 打开 一 个 工作 短 〈 或 新 建 一 个 工作 短 ) 。 

(2) 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 Visual Basic 按钮 进入 VBE 
环境 。 

(3) 在 VBE 中 单 击 主 菜单 【插入 】|【 模 块 】 命 令 ， 将 打开 【模块 1】 代 码 窗 口 ， 如 
图 2-47 所 示 ， 在 代码 窗口 中 输入 以 下 代码 : 

Sub auto open() 

MsgBox "欢迎 使 用 客户 管理 系统 测试 版 ，" & _ 
vbNewLine & "请 将 使 用 过 程 中 的 问题 及 时 反馈 给 我 们 ! "，_ 


vbOKonly，" 欢 迎 " 
End Sub 


(4) 保存 并 退出 当前 Excel 工作 短 。 
(5) 再 次 打开 刚才 的 工作 禾 ， 将 会 显示 如 图 2-48 所 示 的 【欢迎 】 对 话 框 。 


Er RA, 
ort Orne 
Only "欢迎 


日 -加 | | 
图 2-47 【模块 1】 代 码 窗口 图 2-48 【欢迎 】 对 话 框 


个 注意 : 必须 将 工作 簿 的 宏 安 全 性 设置 为 【启用 所 有 宏 〗， 打 开工 作 簿 时 才能 自动 运行 
Auto_Open 宏 代码 。 有 关 宏 安全 的 内 容 将 在 本 章 后 面 介绍 。 

全 技巧 : 与 Auto_Open 宏 对 应 的 还 有 一 个 名 为 Auto_Close 的 宏 ， 可 在 关闭 工作 簿 之 前 完 
成 一 些 清理 操作 。 


2.5 个 人 宏 工 作 簿 


在 录制 宏 时 ， 将 打开 如 图 2-49 所 示 的 【录制 新 宏 】 对 话 框 ， 在 该 对 话 框 的 【保存 在 】 
列表 框 中 可 选择 宏 保 存 的 位 置 。 

录制 的 宏 可 保存 至 以 下 3 处 : 

口 个 人 宏 工 作 短 ; 

口 新 工作 短 ; 

口 当前 工作 敌 。 
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如 果 和 希望 在 每 次 使 用 Excel 时 都 能 够 使 用 宏 ， 可 选择 【个 人 宏 工 作 筹 】 列 表 项 。 


图 2-49 【录制 新 宏 】 对 话 框 


2.5.1 了 解 个 人 宏 工作 簿 


个 人 宏 工 作 笨 ， 是 为 宏 而 设计 的 一 种 特殊 的 具有 自动 隐藏 特性 的 工作 敌 。 在 图 2-49 所 
示 的 对 话 框 中 选择 “个 人 宏 工 作 夭 ”时 ， 如 果 个 人 宏 工 作 秒 还 不 存在 ，Excel 会 创建 一 个 ， 
并 将 宏 保 存在 此 工作 矢 中 。 如 果 该 文件 存在 ， 则 每 当 Excel 启动 时 会 自动 将 此 文件 打开 并 
隐藏 在 活动 工作 敌后 面 。 如 果 要 让 某 个 宏 在 多 个 工作 短 都 能 使 用 ， 那 么 就 应 当 创 建 个 人 宏 
工作 竹 ， 并 将 宏 保 存 于 其 中 。 

Excel 2007 的 个 人 宏 工 作 短 名 称 为 PERSONAL.XLSB，Excel 2003 及 以 前 版 本 的 个 人 
宏 工 作 敌 名 称 为 PERSONAL.XLS 

在 Windows XP 中 ,个 人 宏 工 作 秒 保 存在 “C:\Documents and Settings\ 用 户 名 \ 
Application Data\Microsoft\Excel\XLSTART” 文 件 夹 中 ,以便 在 每 次 启动 Excel 时 可 以 自动 
加 载 它 。 在 Windows Vista 中 ,个 人 宏 工 作 短 保存 在 “C:\Users\ 用 户 名 \Application Data\ 
MicrosoftExcel\XLSTART” 文 件 夹 中 。 


外 注意 : 如 果 当 前 计算 机 系统 中 存在 个 人 宏 工 作 簿 ， 则 每 次 Excel 启动 时 会 自动 将 此 文件 
打开 并 隐藏 。 


2.5.2 ”保存 宏 到 个 人 宏 工 作 筹 


将 宏 保 存 到 个 人 宏 工 作 敌 的 操作 很 简单 ， 常 用 的 有 两 种 方法 : 

口 在 录制 宏 时 , 在 【录制 新 宏 】 对 话 框 中 选择 【保存 在 】 列 表 框 为 “个 人 宏 工 作 短 ”。 

口 在 VBE 环境 中 将 宏 代 码 复制 到 个 人 宏 工 作 敌 中 。 使 用 这 种 方法 时 ， 个 人 宏 工 作 笑 

必须 已 经 存在 。 

下 面 介绍 第 一 种 方法 的 操作 步 又 : 

(1) 在 Excel 2007 中 打开 一 个 工作 短 ， 选 择 一 个 要 设置 边框 线 的 单元 格 区 域 。 

(2) 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 录 制 宏 】 按 钮 打开 【 录 
制 新 宏 】 对 话 框 。 
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(3) 在 该 对 话 框 的 【 宏 名 】 文 本 框 中 输入 名 称 ， 在 【保存 在 】 列 表 框 中 选择 “个 人 宏 
工作 短 ”， 如 图 2-50 所 示 。 

(4) 单 击 【 确 定 】 按 钮 ， 开 始 录制 宏 。 将 功能 区 切 
换 到 【开始 】 选 项 卡 ， 单 击 【 字 体 】 组 中 的 【边框 线 】 
按钮 下 目 ， 为 选中 区 域 设置 边框 线 。 

(5) 将 功能 区 切换 到 【开发 工具 】 选 项 卡 ， 单 击 【 代 
码 】 组 中 的 【停止 录制 】 按 钮 刘 色 划 ， 完 成 宏 的 录制 。 

(6) 在 Excel 环境 中 ， 按 快捷 键 Altr+F11 进入 VBE 
环境 ， 可 以 看 到 除了 打开 的 工作 短 以 外 ， 还 有 一 个 名 为 
PERSONAL.XLSB 的 工作 短 ， 单 击 打 开 其 【模块 1】 代 
码 窗 口 ， 可 看 到 录制 的 宏 代 码 ， 如 图 2-51 所 示 。 


图 2-51 个 人 宏 工 作 簿 代码 


2.5.3 ”管理 个 人 宏 工作 簿 


如 果 系统 中 已 有 个 人 宏 工 作 夭 ， 在 每 次 打开 Excel 时 ， 该 工作 簿 都 将 自动 打开 。 
1. 显示 / 隐藏 个 人 宏 工作 简 


在 正常 情况 下 ， 个 人 宏 工作 短处 于 隐藏 状态 ， 在 Excel 环境 中 看 不 到 该 工作 簿 ， 而 在 
Excel VBE 中 可 看 到 该 工作 敌 中 的 代码 。 

其 实 ， 用 户 也 可 以 在 Excel 环境 中 显示 出 个 人 宏 工 作 筹 。 具 体操 作 步 又 如 下 : 

(1) 在 Excel 2007 中 ， 将 功能 区 切换 到 【视图 】 选 项 卡 ， 单 击 【窗口 】 组 中 的 【取消 
隐藏 】 按 钮 ， 如 图 2-52 所 示 。 

(2) 在 弹出 的 【取消 隐藏 】 对 话 框 中 选中 PERSONAL.XLSB， 如 图 2-53 所 示 。 

(3) 单 击 【 确 定 】 按 钮 ， 个 人 宏 工 作 短 即 可 显示 在 Excel 环境 中 ， 如 图 2-54 所 示 。 
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2-52 单 击 【 取 消 隐藏 】 按 钮 
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图 2-53 【取消 隐藏 】 对 话 框 图 2-54 个 人 宏 工 作 短 


如 果 要 隐藏 个 人 宏 工 作 敌 , 确认 PERSONAL.XLSB 处 于 最 前 面 的 状态 , 可 以 在 【视图 】 
选项 卡 中 ， 单 击 【 窗 口 】 组 中 的 【隐藏 】 按 钮 即 可 。 


全 注意 : 若 显 示 分 辩 率 过 小 ，【 视 图 】 选 项 卡 中 的 【取消 隐藏 】 按 钮 和 【隐藏 】 按 钮 可 能 
将 只 显示 一 个 图 标 ， 而 不 显示 文字 。 


2 编辑 个 人 宏 工 作 短 中 的 宏 


开发 人 员 可 对 个 人 工作 簿 中 的 宏 代 码 进行 编辑 ， 其 操作 方法 与 2.3.3 节 的 方法 类 似 。 
按 快捷 键 AlttF11 进入 VBE 环境 后 ， 在 【工程 】 子 窗口 中 双击 PERSONAL.XLSB， 展 开 
包含 的 模块 ， 打 开 对 应 的 代码 窗口 ， 即 可 对 代码 进行 编辑 操作 。 


2.6 宏 的 安全 性 


宏 是 由 VBA 代码 组 成 的 ， 从 Office 软件 支持 宏 开始 ， 宏 病毒 也 随 之 出 现 。 许 多 病毒 
经 过 专门 设计 ， 可 以 利用 VBA 代码 对 系统 和 数据 文件 进行 恶意 操作 。 因 此 ， 宏 的 安全 性 
越 来 越 受 到 用 户 的 重视 。Excel 2007 提供 了 更 高 更 细致 的 宏 安 全 性 ， 能 够 在 大 部 分 情况 下 
杜绝 宏 病 毒 对 工作 敌 造 成 的 危害 。 


2.6.1 打开 包含 宏 的 文档 


默认 情况 下 , 当 打开 包含 有 安 的 工作 每 时 , 在 编辑 栏 上 方 将 会 显示 安全 警告 , 如 图 2-55 
所 示 。 这 时 宏 是 被 禁用 的 ， 如 果 要 启用 宏 ， 可 按 以 下 步骤 操作 : 

(1) 单 击 安全 警告 右 侧 的 【选项 】 按 钮 ， 打 开 【Microsoft office 安全 选项 】 对 话 框 ， 
如 图 2-56 所 示 。 

(2) 选中 【启用 此 内 容 】 单 选 按钮 后 ， 单 击 【 确 定 】 按 钮 关闭 对 话 框 ， 工 作 秒 中 的 宏 
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将 被 启用 。 


国 雪 生 和 - 宇 


加 
避 车 是 了 宝 。 宇 可 能 包 售 病 雪 或 其 他 安全 隐 咱 。 加 时 不 信任 此 立 件 的 来 源 ， 
诸 有 和 如果 不 信任 此 妆 件 的 来 源 ， 请 不 

Et 际 非 此 内 雁 提供 关键 功能 ， 并 且 您 悄 任 


Er Di axeel2007 档 Wwhal. xlsn 
旬 有 助 于 保护 我 交 多 未知 内 容 风险 推荐 ) E) 
口 所 用 此 才思 


kt 2 ee >=" 


i 宏 已 被 禁用 。 迁 项 .. 
B12 "| 
图 2-55 ”安全 警告 信息 
如 果 不 能 确定 打开 工作 敌 的 宏 是 安全 的 ， 可 以 在 出 现 图 2-55 所 示 的 安 
不 做 任何 处 理 ， 则 工作 禾 中 的 宏 将 不 能 被 执行 ， 从 而 保证 系统 和 文档 的 安 


图 2-56 【Microsoft office 安全 选项 】 对 话 框 
I 息 时 ， 


2.6.2 ”设置 宏 的 安全 性 
用 户 可 根据 工作 环境 ， 对 宏 的 安全 性 进行 设置 。 设 置 宏 安 全 性 的 步 又 如 下 : 
(1) 单 击 【Office 按钮 】 按 钮 ， 在 下 拉 菜 单 中 单 击 下 方 的 【Excel 选项 】 按 钮 ， 弹 出 


【Excel 选项 】 对 话 框 。 
(2) 单 击 左 侧 的 【信任 中 心 】 选 项 卡 ， 对 话 框 显示 如 图 2-57 所 示 。 


Microsof 笋 力 于 保护 写 的 除 状 ， 有 天 Microsof Offce Excel 加 何 各 了 保护 降 丢 的 评 旨 作息， 清 参 浊 过 权 严 5， 
Mkrosoft office Online 得 也 声明 
窒 户 体验 枚 蔷 计 划 
安全 和 其 他 信息 
通过 Microsoft O 甬 ce Oniine 了 解 有 关 吕 护符 私 和 二 全 的 洋 全 信息 。 
Microsoft Windows 安全 中 心 
Nicrosof 可 入 作答 


Microsoft Office Excel 食 作 中心 
信任 中 心 他 全 实 全 设 秆 和 隐私 妆 各 ， 这 些 设置 志 动 于 慌 护 计 和 机 的 安全 ， 于 议 不 要 更 下 这 毕 设 
二. 


2-57 ”Excel 选项 【信任 中 心 】 选 项 卡 


(3) 单 击 右 下 方 的 【信任 中 心 设置 】 按 钮 ， 弹 出 【信任 中 心 】 对 话 框 。 
(4) 单 击 左 侧 的 【 宏 设 置 】 选 项 卡 ， 对 话 框 显示 如 图 2-58 所 示 。 
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图 2-58 【 宏 设 置 】 选 项 卡 


全 注意 : 在 【开发 工具 】 选 项 卡 的 【代码 】〗 组 中 , 单 击 【 宏 安全 性 】 按 钮 也 可 打开 如 图 2-58 


所 示 的 【信任 中 心 〗 对 话 框 。 


(5) 在 【 宏 设 置 】 选 项 区 域 中 有 以 下 4 个 选项 ， 其 作用 分 别 为 
口 禁用 所 有 宏 ， 并 且 不 通知 : 如 果 不 信 任 宏 ， 使 用 此 设置 。 文 档 中 的 所 有 宏 以 及 有 


关 宏 的 安全 警报 都 被 禁用 。 如 果 文 档 具有 信任 的 未 签名 的 宏 ， 则 可 以 将 这 些 文档 
放 在 受信 任 位 置 。 受 信任 位 置 中 的 文档 可 直接 运行 ， 不 会 由 信任 中 心安 全 系统 进 
行 检查 。 

禁用 所 有 宏 ， 并 发 出 通知 : 这 是 默认 设置 。 如 果 想 禁用 宏 ， 但 又 希望 在 存在 宏 的 
时 候 收 到 安全 警报 ， 则 应 使 用 此 选项 。 这 样 ， 可 以 根据 具体 情况 选择 何 时 启用 这 
些 宏 。 

禁用 无 数字 签署 的 所 有 宏 : 此 设置 与 【禁用 所 有 宏 ， 并 发 出 通知 】 选 项 相同 ， 但 
下 面 这 种 情况 除外 : 在 宏 已 由 受信 任 的 发 行者 进行 了 数字 签名 时 ， 如 果 信 任 发 行 
者 ， 则 可 以 运行 宏 ， 如 果 还 不 信任 发 行者 ， 将 收 到 通知 。 这 样 ， 可 以 选择 启用 那 
些 签名 的 宏 或 信任 发 行者 。 所 有 未 签名 的 宏 都 被 禁用 ， 且 不 发 出 通知 。 

启用 所 有 宏 〈 不 推荐 ， 可 能 会 运行 有 潜在 危险 的 代码 ) : 可 以 暂时 使 用 此 设置 ， 
以 便 允许 运行 所 有 宏 。 因 为 此 设置 容易 使 计算 机 受到 可 能 是 恶意 代码 的 攻击 ， 所 
以 不 建议 永久 使 用 。 


一 般 情况 下 ， 使 用 Excel 2007 的 默认 设置 即 可 。 如 果 用 户 使 用 的 工作 憩 都 是 自己 (或 


工作 组 成 员 ) 制作 的 ， 即 可 选择 最 后 一 项 【启用 所 有 宏 〈 不 推荐 ， 可 能 会 运行 有 潜在 危险 
的 代码 ) 】， 这 样 在 打开 工作 筹 时 将 不 会 出 现 安全 警告 信息 。 
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通过 在 Excel 中 录制 的 宏 ， 可 反复 执行 一 些 重复 操作 ， 在 一 定 程度 上 可 提高 用 户 的 工 
作 效 率 。 

对 于 录制 的 宏 ， 有 时 还 需要 对 录制 的 代码 进行 编辑 修改 。 更 多 的 情况 是 ， 用 户 需 要 直 
接 编写 代码 ,或 设计 与 用 户 交 互 的 窗 体 .这 些 操 作 都 需要 在 Excel VBA 的 开发 环境 一 一 VBE 
中 进行 。 本 章 详细 介绍 VBE 开发 环境 的 使 用 。 


3.1 VBE 简介 


VBE 是 编写 VBA 代码 的 工具 ， 开 发 人 员 可 在 该 环境 中 对 录制 的 宏 代码 进行 修改 ,或 
直接 编写 代码 、 插 入 用 户 窗 体 等 。 在 第 2 章 中 编辑 宏 时 曾 使 用 过 VBE 环境 。 


3.1.1 VBE 概述 


VBE 是 一 个 非常 友好 的 开发 环境 ， 在 VBE 中 编写 的 代码 将 成 为 Excel 工作 短文 件 的 
-部 分 ， 例 如 ， 在 对 Excel 文件 进行 保存 操作 时 ，VBA 的 组 成 部 分 (如 模块 、 用 户 窗 体 等 》 
同时 也 进行 了 保存 。 

VBE 是 一 个 单独 的 应 用 程序 ， 拥 有 独立 的 操作 窗口 ， 可 以 与 Excel (或 其 他 的 Office 
组 件 , 如 Word) 无 颖 地 结合 。 但 VBE 环境 不 能 单独 打开 ,要 使 用 VBE， 必 须 先 运行 Excel 
(或 其 他 Office 组 件 ) 。 

在 Excel 中 ， 使 用 VBE 开发 环境 可 以 完成 以 下 任务 : 

口 创建 VBA 过 程 ; 

口 创建 用 户 窗 体 ; 

口 查看 /修改 对 象 属性 ; 

口 调试 VBA 程序 。 


3.1.2 进入 VBE 


在 Excel 2007 中 可 以 有 多 种 方式 进入 VBE， 常 用 的 方法 如 下 : 

口 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 Visual Basic 按钮 可 进入 VBE 
环境 。 

口 在 Excel 中 ， 按 快捷 键 AlttF11 可 进入 VBE 环境 ， 这 是 最 常用 的 方法 。 
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口 在 功能 区 【开发 工具 】 选 项 卡 的 【代码 】 组 中 ， 单 击 【 宏 】 按 钮 ， 打 开 【 宏 】 对 
话 框 ， 选 中 一 个 宏 ， 单 击 【 编 辑 】 按 钮 可 进入 VBE 环境 。 
口 右 击 Excel 工作 表 标 签 ， 弹出 快捷 菜单 ， 选 择 【 查 看 代码 】 命 令 可 进入 VBE 环境 。 


3.1.3 VBE 操作 界面 


VBE 是 Office 与 VB 两 种 环境 的 集合 体 , 因此 在 界面 方面 继承 了 Office 与 VB 的 优点 ， 
VBE 的 默认 界面 如 图 3-1 所 示 。 下 面 分 别 介绍 Excel 2007 VBE 界面 的 各 个 构成 部 分 。 


zlz 


到 和 (RI 工具 外 入 时 床 内 。 硬 DIM 起 2. 菜单 栏 
3. 工具 栏 -国生 3 2% 人 33 国 @ 
4. 工程 资源 管理 器 i 
5. 代码 窗口 
6. 工具 箱 
7. 用 户 窗 体 
8. 属性 窗口 
10. 本 地 窗口 
9. 立即 窗口 
图 3-1 VBE 操作 界面 
1. 标题 栏 


标题 栏 是 用 来 显示 打开 窗口 的 标题 。 标 题 栏 分 3 部 分 显示 对 应 内 容 ， 前 面部 分 显示 开 
发 环境 名 称 Microsoft Visual Basic， 中 间 部 分 显示 窗 体 名 称 〈 如 “销售 管理 .xls”) ， 最 后 
部 分 为 控制 VBE 窗 体 的 按钮 〈 最 小 化 、 最 大 化 和 关闭 按钮 ) ， 如 图 3-2 所 示 。 


前 和 icrosoft Visual Basic - 销售 管理 - xls 


图 3-2 标题 栏 


2. 菜单 栏 


VBE 的 菜单 栏 与 其 他 Windows 应 用 程序 的 菜单 栏 相同 。VBE 菜单 栏 包 含 了 绝 大 多 数 
的 命令 ， 用 户 只 需 逐 项 选择 菜单 即 可 执行 对 应 的 命令 。 

菜单 栏 主要 包含 文件 、 编 辑 、 视 图 、 插 入 、 格 式 、 调 试 、 运 行 、 工 具 、 外 接 程 序 、 窗 
口 以 及 帮助 11 个 菜单 项 , 每 一 个 菜单 项 都 含有 若干 个 菜单 命令 或 子 菜单 , 通过 单 击 菜单 下 
的 命令 或 子 菜单 就 可 以 执行 相应 的 操作 ， 如 图 3-3 所 示 。 
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3-3 ”菜单 栏 


菜单 栏 中 各 菜单 项 的 功能 和 作用 如 下 面 所 述 。 


口 
口 


口 


2OOoOOOOOODO 


文件 : 主要 是 对 文件 进行 保存 、 导 入 、 导 出 和 退出 操作 。 

编辑 :主要 是 对 应 用 程序 代码 进行 撤销 、 复 制 、 清 除 、 查 找 、 缩 进 、 凸 出 等 基本 
代码 编辑 操作 ， 以 及 显示 属性 /方法 列表 、 常 数列 表 、 快 速 列表 等 。 

视图 : 主要 是 对 VBE 窗口 进行 隐藏 /显示 管理 ， 如 代码 窗口 、 对 象 窗口 、 对 象 浏览 
器 、 立 即 窗口 、 本 地 窗口 、 监 视窗 口 等 。 

插入 : 主要 是 对 类 模块 、 过 程 和 文件 等 进行 插入 操作 。 

格式 : 主要 是 对 工作 表 中 添加 的 控件 的 位 置 和 大 小 等 进行 调整 操作 。 

调试 : 主要 是 对 代码 进行 编译 、 调 试 、 监 视 等 操作 。 

运行 ， 主要 是 对 代码 进行 运行 、 中 断 、 重 新 设置 和 设计 模式 操作 。 

工具 : 主要 是 对 VBE 选项 和 宏 进行 管理 。 

外 接 程 序 : 主要 是 对 外 接 程 序 进行 管理 。 

窗口 : 主要 是 对 各 窗口 的 显示 方式 进行 管理 。 

帮助 : 主要 是 链接 VB 帮助 文件 和 打开 Web 上 的 MSDN 链接 。 


工具 栏 


VBE 有 6 个 工具 栏 〈 菜 单条 和 快捷 菜单 也 包含 在 工具 栏 中 ) ， 默 认 情 况 下 ，【 标 准 】 


工具 栏 


显示 在 菜单 栏 的 下 方 ， 其 他 工具 栏 都 处 于 隐藏 状态 。 与 Excel 2003 中 的 工具 栏 操作 


相似 ， 用 户 可 以 对 工具 栏 进行 移 动 、 停 靠 、 显 示 、 隐 藏 等 操作 。 

单 击 主 菜单 【视图 】| 【工具 栏 】|【 自 定义 】 命 令 , 将 打开 如 图 3-4 所 示 的 【 自 定义 】 
对 话 框 ， 在 其 中 的 【工具 栏 】 选 项 卡 中 可 以 选择 需要 显示 的 工具 栏 ， 也 可 根据 需要 新 建 用 
户 自己 的 工具 栏 。 


图 3-4 【 自 定义 】 对 话 框 
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各 工具 栏 的 主要 作用 分 别 如 下 所 述 。 

口 【标准 】 工具 栏 : 主要 显示 常用 的 功能 按钮 ， 包 括 视 图 Microsoft Excel、 揪 入 用 户 
窗 体 、 保 存 、 剪 切 、 复 制 、 查 找 、 撤 销 、 运 行 子 过 程 /用 户 窗 体 、 中 断 、 工 程 资源 
管理 器 、 设 计 模 式 、 属 性 窗口 、 对 象 浏览 器 等 。 

口 【编辑 】 工 具 栏 : 主要 用 来 对 代码 进行 操作 ， 如 对 程序 代码 进行 缩 进 凸 出 、 显 示 
属性 /方法 列表 、 显 示 沼 数列 表 、 显 示 快 速 列 表 、 书 签 等 操作 。 

口 【调试 】 工 具 栏 : 主要 是 对 代码 进行 编译 、 调 试 、 监 视 、 切 换 断 点 、 逐 语句 、 逐 
过 程 等 操作 。 

口 【用 户 窗 体 】 工 具 栏 : 主要 是 对 开发 具体 窗 体 控件 进行 操作 ， 如 移 至 顶层 、 移 至 
底层 、 组 、 取 消 组 、 左 对 齐 等 。 


4. 工程 资源 管理 器 
工程 资源 管理 器 用 来 管理 VBA 工程 项 目 。VBE 将 每 个 工作 短 作 为 一 个 工程 , 在 Excel 


中 打开 的 所 有 工作 簿 都 集中 在 工程 资源 管理 器 中 进行 管理 。 除 了 工作 簿 中 的 工作 表 以 外 ， 
还 可 以 管理 自 定义 窗 体 ， 以 及 增加 代码 模块 等 ， 本 章 将 在 3.4 节 详细 介绍 其 使 用 方法 。 


名 提示: 如 果 VBE 中 没有 显示 工程 资源 管理 器 ， 按 快捷 键 CtrltR 可 将 其 显示 出 来 。 


5. 代码 窗口 


在 Excel 工程 中 ， 每 一 个 对 象 都 有 一 个 关联 的 代码 窗口 。 在 【工程 资源 管理 器 】 中 双 
击 对 象 ， 即 可 打开 该 对 象 的 代码 窗口 。 有 关 代 码 窗口 的 使 用 方法 ， 将 在 本 章 后 面 进行 详细 
介绍 。 


6. 工具 箱 


工具 箱 只 有 在 设计 用 户 窗 体 时 才 会 显示 出 来 ， 使 用 工具 箱 中 提供 的 控件 可 设计 出 与 用 
户 交 互 的 界面 。 


7. 用 户 窗 体 

用 户 窗 体 是 用 户 与 系统 交互 的 界面 ， 有 关 用 户 窗 体 的 设计 将 在 本 书 第 4 部 分 进行 详细 
介绍 。 

Excel 应 用 程序 不 使 用 用 户 窗 体 也 能 完成 大 部 分 工作 。 

8. 属性 窗口 


属性 窗口 主要 用 来 设置 对 象 属 性 。 属 性 窗口 显示 所 选 对 象 的 属性 ， 左 边 为 属性 名 ， 碳 
边 为 具体 的 属性 值 。 属 性 的 设置 可 直接 输入 ， 也 可 单 击 下 拉 列 表 框 进行 选择 。 

属性 窗口 除了 可 更 改 工 程 、 各 对 象 、 模 块 的 基本 属性 外 ， 更 多 的 用 于 对 用 户 窗 体 中 各 
对 象 属性 的 交互 式 设计 。 
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全 提示 : 如 果 在 VBE 中 没有 显示 【属性 】〗 窗 口 ， 按 快捷 键 F4 可 将 其 显示 出 来 。 


9. 立即 窗口 


立即 窗口 在 程序 的 调试 中 非常 有 用 ， 其 主要 作用 是 : 

口 在 开发 过 程 中 ， 可 以 在 代码 中 加 入 Debug.Print 语句 ， 这 条 语句 将 在 立即 窗口 输出 
内 容 ， 用 来 跟踪 程序 的 执行 路 径 ， 以 及 变量 的 中 间 结 果 。 

口 在 调试 程序 时 ， 如 果 程 序 处 于 中 断 模式 ， 可 以 在 立即 窗口 中 查看 对 象 和 变量 的 

口 在 立即 窗口 中 ， 使 用 Print 语句 ， 就 可 以 看 到 运行 的 结果 ， 在 很 多 情况 下 比 用 
Msgbox 信息 提示 对 话 框 方便 多 了 。 


名 提示: 如 果 VBE 中 没有 显示 【立即 窗口 〗】， 按 快捷 键 Ctrl+G 可 将 其 显示 出 来 
10. 本 地 窗口 
本 地 窗口 可 自动 显示 出 所 有 在 当前 过 程 中 的 变量 声明 及 变量 值 。 


若 本 地 窗口 为 可 见 的 ， 则 每 当 从 执行 方式 切换 到 中 断 模式 或 是 操纵 堆栈 中 的 变量 时 ， 
它 就 会 自动 地 重建 显示 。 可 以 通过 往 左 或 往 右 拖 移 边 线 ， 来 重 置 列 标 头 的 大 小 。 


3.2 VBE 的 子 窗口 


VBE 操作 环境 中 包含 有 多 个 子 窗口 , 例如 , 工程 资源 管理 窗口 、 属 性 窗口 、 代 码 窗口 、 
本 地 窗口 、 立 即 窗口 等 。 本 节 将 主要 介绍 这 些 子 窗口 的 使 用 。 


3.2.1 工程 资源 管理 窗口 


工程 资源 管理 窗口 如 图 3-5 所 示 ， 该 图 中 列 出 了 一 个 名 为 “销售 管理 .xls” 的 工程 。 如 
果 在 Excel 中 打开 了 多 个 工作 敌 ， 则 在 工程 资源 管理 窗口 中 将 列 出 多 个 工程 名 称 。 


图 3-5 工程 资源 管理 器 
在 工程 资源 管理 器 上 方 有 3 个 按钮 ， 各 按钮 的 作用 如 下 所 述 : 
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口 查看 代码 : 用 来 显示 当前 选中 模块 的 代码 窗口 。 
口 查看 对 象 : 用 来 显示 Excel 对 象 文件 夹 中 所 选择 的 工作 表 , 或 者 窗 体 文件 夹 里 面 的 
窗 体 。 

口 切换 文件 夹 : 用 来 隐藏 或 显示 工程 窗口 里 的 文件 夹 。 

在 图 3-5 中 展开 了 工程 “销售 管理 xls” 的 各 组 成 部 分 , 可 看 到 其 中 包括 一 个 【Microsoft 
Excel 对 象 】、【 窗 体 】 和 【模块 】 节 点 。 在 VBA 工程 中 可 以 包括 以 下 对 象 : 

口 工作 表 (图 表 )〉 : 包括 工作 短 中 的 每 个 工作 表 和 图 表 ， 可 对 每 个 对 象 分 别 编写 
代码 。 
模块 : 包括 在 Excel 中 录制 的 宏 ， 以 及 用 户 编 写 的 VBA 代码。 
类 模块 : 包括 用 户 自 定义 对 象 的 代码 。 
窗 体 : 包括 该 工程 中 设计 的 用 户 自 定义 窗 体 ， 以 及 为 窗 体 、 窗 体 控件 编写 的 代码 。 


3.2.2 属性 窗口 


DOo 


属性 窗口 用 来 查看 或 设置 对 象 的 属性 ， 可 设置 工程 、 工 作 表 、 窗 口 、 模 块 、 类 模块 等 
对 象 的 属性 值 ， 在 大 多 数 情况 下 ， 主 要 用 来 设置 用 户 窗 体 及 窗 体 中 使 用 的 控件 属性 。 

常见 的 属性 窗口 如 图 3-6 所 示 。 当 前 所 选 对 象 的 名 称 显示 在 属性 窗口 的 【对 象 】 列 表 
框 中 ， 单 击 右 侧 的 下 拉 箭 头 ， 可 查看 对 象 的 名 称 列表 ， 在 该 列表 框 中 选择 某 个 对 象 名 后 ， 
也 就 选中 了 该 对 象 。 


本 
【对象 】 列表 框 一 mim。 


属性 名 属性 值 


telpCoatexti 一 
epSerellBersWi 3 ~ taserollRar 


图 3-6 【属性 】 窗 口 
在 【属性 】 窗 口中 ， 最 大 的 区 域 就 是 设置 对 象 各 属性 列 的 列表 ， 该 列表 分 两 列 ， 左 侧 
为 属性 名 〈 用 户 不 能 修改 ) ， 右 侧 为 属性 可 设置 的 值 。 
设置 对 象 属性 时 ， 根 据 属性 的 不 同 ， 需 要 使 用 不 同 的 设置 方法 。 有 的 属性 值 需要 手工 
输入 ; 有 的 是 在 列表 中 进行 选择 ; 还 有 的 需要 打开 一 个 对 话 框 进行 选择 。 
1. 手工 输入 属性 值 
大 部 分 属性 值 都 是 通过 手工 输入 ， 例 如 对 象 的 名 称 、 外 形 尺寸 等 ， 这 类 属性 值 的 设置 


很 简单 。 例 如 ， 要 将 新 插入 的 用 户 窗 体 名 称 设置 为 frmMain， 具 体操 作 步 又 如 下 : 
(1) 单 击 主 菜单 【插入 】| 【用户 窗 体 】 命 令 ， 向 工程 中 插入 一 个 用 户 窗 体 。 
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(2) 在 【工程 】 窗 口中 双击 新 插入 的 用 户 窗 体 ， 这 时 【属性 】 窗 口 将 显示 用 户 窗 体 的 
属性 ， 拖 动 鼠 标 选中 属性 【名 称 〉】 右 侧 的 文字 UserForm1， 如 图 3-7 所 示 。 

(3) 接着 输入 新 的 名 称 fmMain， 按 Enter 键 后 【属性 】 窗 口 的 名 称 已 经 修改 ， 如 
图 3-8 所 示 。 


2. 选择 列表 


有 的 属性 取 值 具有 一 个 规定 的 范围 ， 在 属性 窗口 中 将 提供 一 个 列表 供用 户 进行 选择 。 
例如 ， 设 置 用 户 窗 体 的 位 置 属性 的 操作 步骤 如 下 : 

(1) 在 属性 窗口 中 找到 需要 设置 的 属性 名 StartUpPosition; 

(2) 单 击 属性 值 右 侧 的 下 拉 箭 头 霹 ， 将 显示 出 可 供 选 择 的 列表 ， 如 图 3-9 左 图 所 示 ; 

(3) 单 击 列表 中 需要 设置 的 值 “1 - 所 有 者 中 心 ”。 

另外 ， 在 如 图 3-9 右 图 所 示 列 表 框 中 可 设置 窗 体 的 背景 色 。 


[erroreT IEegom 本 


图 3-9 选择 属性 值 


3. 打开 对 话 框 


对 于 设置 属性 为 一 个 文件 名 之 类 的 值 时 ， 需 要 打开 一 个 对 话 框 ， 让 用 户 选择 相应 的 文 
例如 ， 设 置 窗 体 背 景 图 片 的 操作 步骤 如 下 : 

(1) 在 属性 窗口 中 找到 需要 设置 的 属性 名 Picture。 

(2) 单 击 属性 值 右 侧 的 按钮 |， 将 打开 如 图 3-10 所 示 的 【加 载 图 片 】 对 话 框 。 

(3) 在 该 对 话 框 中 选择 合适 的 图 片 文件 后 , 单 击 【 打 开 】 按 钮 , 【属性 】 窗 口 如 图 3-11 
所 示 ， 在 Picture 属性 后 显示 为 (Bitmap) ， 表 示 为 该 属性 设置 了 一 个 图 片 文件 。 同 时 ， 窗 
体 背景 将 显示 该 图 片 。 


o 


件 
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i 
Brinte ie 


文件 各 田 : 下 EE | 
HD: [WERZR 可 了 k 


帮助 D 


图 3-10 【加 载 图 片 】 对 话 框 3-11 设置 Picture 属性 


3.2.3 ”代码 窗口 
在 VBE 中 ， 每 个 模块 都 有 自己 的 代码 窗 体 ， 每 个 工作 表 、 每 个 模块 、 每 个 窗 体 都 分 
别 有 自 己 的 代码 窗口 。 代 码 窗口 如 图 3-12 所 示 。 


销售 管理 . xls - 模块 1 (代码 ) 加 回国 
对 象 列 表 通用) 设置 表 头 祝 


′ 设置 表 头 格式 Nlacro 
”快捷 键 : Ctrl+t 


ActiveNindow. WindowState = xlNormal 
With Selection 
.HorizontalAlignment = xlCenter 
全 模块 视图 ‘VerticalAligrment = xlCenter 


‘WrapText = False 
.Orientation = 0 
AddIndent = False 
.IndentLevel = 0 


图 3-12 ”代码 窗口 


在 代码 窗口 的 顶部 ， 有 两 个 下 拉 列 表 框 。 左 侧 为 【对 象 列表 】 下 拉 列 表 框 ， 在 该 列表 
框 中 将 显示 当前 模块 的 对 象 名 列表 。 右 侧 为 【过 程 /事件 】 下 拉 列 表 框 ， 可 快速 查看 一 个 指 
定 对 象 过 程 或 事件 过 程 的 代码 。 
在 代码 窗口 的 左下 方 有 两 个 按钮 ， 其 功能 包括 以 下 两 方面 。 
口 过 程 视图 : 在 代码 窗口 中 一 次 只 显示 一 个 过 程 的 代码 。 如 果 要 查看 其 他 过 程 的 代 
码 ， 则 需要 通过 【过 程 /事件 】 下 拉 列 表 框 选择 过 程 。 
口 全 模块 视图 : 在 代码 窗口 中 显示 所 选 模块 的 所 有 过 程 ， 使 用 右 侧 的 垂直 滚动 条 可 
以 在 代码 中 滚动 。 


3.2.4 调整 VBE 子 窗 口 位 置 


VBE 环境 由 多 个 子 窗口 组 成 ， 这 些 子 窗口 可 根据 需要 显示 或 隐藏 ， 各 子 窗口 可 以 停靠 
在 主 窗口 的 边 上 ， 也 可 浮动 显示 在 窗口 中 ， 可 根据 用 户 的 习惯 进行 定制 。 下 面 演示 在 VBE 
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中 拖 动 各 子 窗口 的 操作 。 
(1) 在 Excel 2007 打开 一 个 工作 筹 ， 或 新 建 一 个 工作 短 。 
(2) 按 快捷 键 Alt+F11 进入 VBE 开发 环境 ， 如 图 3-13 所 示 。 


图 3-13 VBE 开发 环境 


(3) 单 击 各 子 窗口 右上 方 的 【关闭 】 按 钮 ， 可 隐藏 子 窗口 ， 如 图 3-14 所 示 为 关闭 所 有 
子 窗 体 后 的 效果 。 

(4) 单 击 主 菜单 【视图 】| 【工程 资源 管理 器 】 命 令 (如 图 3-15 所 示 ) ， 可 显示 出 【 工 
程 资源 管理 器 】 子 窗口 。 


ER 


3-14 ”关闭 各 子 窗 体 后 的 效果 3-15 【视图 】 下 拉 菜 单 


(5) 在 【视图 】 下 拉 菜 单 中 选择 不 同 的 命令 ， 将 常用 子 窗口 显示 出 来 。 

(6) 拖 动 【 属 性 】 子 窗口 的 标题 栏 向 右 移动 ， 使 【属性 】 子 窗口 处 于 浮动 状态 ， 如 
图 3-16 所 示 。 

(7) 右 击 【 属 性 】 子 窗口 标签 右 侧 的 空白 处 ， 弹 出 如 图 3-17 所 示 的 快捷 菜单 ， 默 认 情 
况 下 【可 连接 的 】 菜 单项 处 于 选中 状态 ， 此 时 该 子 窗口 靠近 主 窗口 或 其 他 子 窗口 时 ， 将 自 
动 连接 到 靠近 的 窗口 。 

(8) 单 击 【 可 连接 的 】 菜 单项 ， 取 消 其 选中 状态 。 此 时 ， 拖 动 【属性 】 子 窗口 调整 其 
位 置 ， 该 子 窗口 将 不 会 连接 到 靠近 的 子 窗口 旁 ， 而 会 隐藏 在 其 他 子 窗口 下 方 ， 如 图 3-18 
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3-17 【属性 】 子 窗口 的 快捷 菜单 图 3-18 隐藏 部 分 【属性 】 子 窗口 


3.3 定制 VBE 环境 


通过 上 面 的 学 习 , 读者 已 经 对 VBE 环境 有 了 较 全 面 的 认识 。 对 于 Excel 开发 人 员 来 说 ， 
还 应 当 根据 自己 的 习惯 ， 对 VBE 环境 进行 定制 。 

在 VBE 环境 中 单 击 主 菜单 【工具 】|【 选 项 】 命 令 ， 打 开 【 选 项 】 对 话 框 。 该 对 话 杠 
包括 4 个 选项 卡 ， 通 过 这 些 选 项 卡 中 的 选项 可 对 VBE 环境 进行 定制 。 


3.3.1 设置 【编辑 器 】 选 项 卡 


【选项 】 对 话 框 中 的 【编辑 器 】 选 项 卡 如 图 3-19 所 示 。 通 过 该 选项 卡 中 的 选项 可 定制 
【代码 】 窗 口 。 下 面 分 别 介绍 这 些 选 项 。 
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图 3-19 【编辑 器 】 选 项 卡 


口 自动 语法 检测 : 在 输入 一 行 代码 之 后 ， 是 否 自动 检查 语法 。 如 果 未 选中 该 复 选 框 ， 


VBE 将 通过 使 用 与 其 他 代码 不 同 的 颜色 来 显示 语法 错误 的 代码 ， 并 且 不 弹出 提示 
对 话 框 。 


口 要 求 变量 声明 : 选中 该 选项 ，VBE 将 会 在 新 插入 的 模块 起 始 处 增加 以 下 语句 。 
Option Explicit 

如 果 该 语句 出 现在 模块 中 ， 就 必须 定义 模块 中 使 用 的 每 个 变量 。 当 遇 到 未 定义 的 变量 
将 出 现 错误 提示 。 

口 自动 列 出 成 员 : 选中 该 项 , 在 输入 VBA 代码 时 , VBE 将 自动 列 出 对 象 的 成 员 列 表 。 


如 果 没 有 选中 该 项 ， 则 需要 单 击 【 编 辑 】 工 具 栏 中 的 【属性 /方法 列表 】 按 钮 (或 
按 Ctrl+J 快捷 键 )》 来 打开 该 成 员 列表 。 

自动 显示 快速 信息 : 选中 该 项 将 显示 所 输入 函数 及 其 参数 的 信息 。 
自动 显示 数据 提示 : 选中 该 项 将 显示 出 指针 所 在 位 置 的 变量 值 。 只 能 在 中 断 模式 
下 使 用 。 

自动 缩 进 : 选中 该 项 ，VBE 将 按照 下 方 设 置 的 Tab 宽度 自动 缩 进 显示 每 行 代码 ， 
所 有 接 下 来 的 代码 都 将 使 用 该 缩 进 量 。 

Tab 宽度 设置 缩 进 量 ， 范 围 为 1 一 32 个 空格 ， 默 认 值 是 4 个 空格 。 
编辑 时 可 拖 放 文 本 : 选中 该 项 后 ， 允 许 通 过 拖 动 操作 来 复制 和 移动 代码 窗口 中 的 
文本 。 也 可 从 代码 窗口 拖 放 元 素 到 立即 窗口 或 监视 窗口 。 

缺 省 为 查看 所 有 模块 :设置 新 模块 的 默认 状态 ， 选 中 该 项 后 ， 在 代码 窗口 中 可 查 
看 模块 的 所 有 过 程 。 这 不 会 改变 当前 已 打开 模块 的 视图 方式 。 

过 程 分 隔 符 : 可 以 显示 或 隐藏 代码 窗口 中 ， 出 现在 每 个 过 程 尾 端的 分 隔 


设置 【编辑 器 格式 】 选 项 卡 


通过 【选项 】 对 话 框 的 【编辑 器 格式 】 选 项 卡 ， 可 设置 代码 的 显示 格式 。【 编 辑 器 格 


式 】 选 项 卡 如 图 3-20 所 示 ， 可 设置 各 种 代码 的 显示 颜色 、 字 体 大 小 等 内 容 。 具 体 设 置 步骤 
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如 下 : 
(1) 在 【代码 颜色 】 列 表 框 中 选择 需要 调整 的 代码 类 型 ， 如 语法 错误 文本 。 


(2) 在 【前 景色 】、【 背 景色 】 和 【标识 色 】 的 下 拉 列 表 框 中 选择 “自动 ”选项 。 
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(3) 在 右 侧 的 【字体 】 和 【大 小 】 列 表 框 中 分 别 设置 代码 的 字体 和 字号 。 
(4) 根据 需要 ， 还 可 选择 是 否 显示 【边界 标识 条 】。 
在 设置 过 程 中 ， 可 通过 【示例 】 文 本 框 观察 到 设置 的 效果 。 


3.3.3 


【选项 】 对 话 框 的 【通用 】 选 项 卡 如 图 3-21 所 示 ， 主 要 用 来 进行 VBE 的 工程 设置 、 


大 小 回 ): 


厅 边界 标识 条 虽 


= 
前 景色 0): 背景 色 角 ); 标识 色 四 ) | ABCXYZabexyr | 
自动 z] 「 自 动 z] 「 动 二 


图 3-20 【编辑 器 格式 】 选 项 卡 


设置 【通用 】 选 项 卡 


误 处 理 和 编 详 设置 。 一 般 情 况 下 ， 不 需要 修改 这 些 选 项 ， 直 接 使 用 默认 值 即 可 。 


图 3-21 【通用 】 选 项 卡 


【通用 】 选 项 卡 中 各 选项 的 意义 如 下 所 述 。 


口 


口 
口 
口 
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显示 网 格 : 在 窗 体 中 显示 网 格 。 

网 格 单位 : 列 出 网 格 中 单元 的 度量 单位 。 
宽度 : 窗 体 中 网 格 存储 单位 的 宽度 。 
高 度 : 窗 体 中 网 格 存储 单位 的 高 度 。 
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对 齐 控件 到 网 格 :在 封闭 网 格 上 自动 对 超过 控件 边缘 的 部 分 定位 。 

显示 工具 提示 : 显示 工具 栏 按钮 的 工具 提示 。 

项 目 折 释 收 起 时 隐藏 窗口 ， 当 【工程 】 资 源 管理 器 窗口 中 的 工程 折 姜 起 来 之 后 ， 

会 自动 关闭 工程 、 用 户 窗 体 、 对 象 或 模块 窗口 。 

口 在 丢失 当前 状态 前 通知 : 显示 一 个 信息 ， 指 出 对 运行 中 的 工程 所 要 求 的 动作 ， 以 
使 所 有 模块 级 变量 得 以 重 置 。 

口 发 生 错 误 则 中 断 : 任何 错误 都 会 使 工程 切换 到 中 断 模式 ， 不 管 错误 处 理 程序 是 否 

为 活动 的 ， 也 不 管 代码 是 否 在 类 模块 中 。 

在 类 模块 中 中 断 : 任何 在 对 象 类 模块 中 失去 句柄 的 错误 会 让 工程 进入 中 断 模式 。 

遇 到 未 处 理 的 错误 时 中 断 : 任何 其 他 失去 句柄 的 错误 会 让 工程 进入 中 断 模式 。 

请 求 时 编译 : 在 执行 前 就 已 完全 编 诺 工 程 ， 或 已 编译 所 需 的 代码 。 

扣 台 编译 : 利用 运行 时 的 空闲 时 间 在 后 台 完 成 工程 的 编译 〈 只 有 在 已 设置 请 求 时 

编 详 才 有 效 ) 。 


3.3.4 设置 【可 连接 的 】 选 项 卡 


[| 


OOOO 


【选项 】 对 话 框 的 【可 连接 的 】 选 项 卡 如 图 3-22 所 示 ， 其 中 的 选项 决定 VBE 中 各 窗口 
的 行为 方式 。 

可 连接 可 理解 为 可 停靠， 如 在 默认 情况 下 ， 将 【工程 】 资 源 管理 器 窗口 拖 到 VBE 窗 
口 的 边缘 时 ，【 工 程 】 资 源 管理 器 窗口 将 自动 停靠 在 VBE 窗口 边框 上 。 如 果 在 图 3-22 所 
示 的 对 话 框 中 没有 选中 对 应 窗口 前 的 复 选 框 , 则 该 窗口 将 浮动 在 VBE 窗口 上 , 当 有 多 个 窗 
口 浮动 时 ，VBE 操作 界面 将 显示 得 很 混乱 。 


3-22 【可 连接 的 】 选 项 卡 


3.4 使 用 帮助 


VBE 为 开发 人 员 提供 了 完善 的 帮助 系统 ， 可 帮助 用 户 学 习 VBA 相关 对 象 的 属性 、 方 
法 、 事 件 的 全 面 信息 。 本 节 简 单 介 绍 帮助 系统 的 使 用 方法 。 
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3.4.1 打开 帮助 主 界面 


在 VBE 环境 中 单 击 主 菜单 【帮助 】|【Microsoft Visual Basic 帮助 】 命 令 ， 可 打开 如 
图 3-23 所 示 的 帮助 主 界面 。 


[@ excel Ry 


主 窗口 


图 3-23 帮助 主 界面 


县 提示 : 按 F1 键 也 可 打开 如 图 3-23 所 示 的 帮助 主 界面 。 


在 帮助 主 界面 中 ， 主 要 包括 以 下 几 个 部 分 。 

口 工具 栏 : 类 似 于 正 浏览 器 的 工具 栏 ， 工 具 栏 各 按钮 如 图 3-24 所 示 。 
口 搜索 栏 : 可 输入 关键 字 ， 在 帮助 系统 中 查找 与 关键 字 匹 配 的 帮助 信息 。 
口 目录 : 显示 Excel 2007 中 的 所 有 帮助 信息 目录 。 

口 主 窗口 : 显示 帮助 的 具体 内 容 。 


图 3-24 工具 栏 的 各 按钮 


3.4.2 ”查看 对 象 属性 


要 查看 对 象 的 属性 ， 可 在 帮助 窗口 左 侧 的 目录 中 依次 单 击 展开 对 象 名 称 ， 找 到 对 象 的 
属性 列表 即 可 查看 到 该 属性 的 相关 说 明 ， 如 图 3-25 所 示 。 
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全 提示 : 在 帮助 正文 中 ， 有 的 关键 字 可 链接 到 其 他 帮助 条 目 (如 图 3-25 中 的 Range 关键 
字 ) ， 单 击 该 链接 可 打开 对 应 的 帮助 条 目 。 


Application,ActiveCell 属性 

返回 一 个 Range 对 象 ， 它 代表 活动 窗口 《最 上 方 的 窗口 ) 或 
指定 窗口 中 的 活动 单元 格 。 如 果 宙 口中 没有 显示 工作 才 ， 此 
属性 无 效 。 只 读 。 


语法 


攻关 式 Activecell 

直送 式 一 个 代表 Application 对 象 的 变量 > 

说 明 

此 属性 返回 活动 窗口 中 的 活动 单元 


请 仔细 区 分 舌 动 单元 格 和 选 定 区 域 。 活 动 单 元 格 为 选 定 区 域 
内 部 的 一 个 单元 格 。 而 选 定 区 域 可 以 包 仿 多 个 单元 格 ， 但 只 
有 一 个 单元 格 为 活动 单元 格 。 

下 列表 达 式 都 是 返回 活动 单元 栓 ， 并 且 都 是 等 欢 的 。 


图 3-25 查看 对 象 的 属性 


3.4.3 ”搜索 关键 字 


在 帮助 系统 中 ， 用 户 可 输入 关键 字 (或 关键 字 的 部 分 字母 ，， 单 击 【搜索 】 按 钮 ， 即 
可 在 帮助 系统 中 搜索 包含 该 关键 字 的 相关 内 容 ， 如 图 3-26 所 示 。 


Excel 2007 开发 人 员 参 考 
已 搜索 : "worksheet” 


et Graph Viseal Basic 参考 
和 Wicrorse office arrte 对 入 库 | 加 
用 户 蜡 面 基 助 


Worksheet Tab 旺 性 

帮助 > Eral 对 条 全 型 参 若 > Wortheet 对 象 > 悍 性 
Wworksheet Delete 方法 

和 助 > Excs| 对 象 重型 考 > Worksheet 对 象 > 方法 
worksheet Dustomproperties 时 性 

项 呈 > Excal 对 卫 委 型 检 委 > Workcheet 对 打 > 属性 


Worksheet Protection 尾 性 
帮助 > Eral 对 条 全 到 双关 > Workdheet 对 象 > 屋 性 


3-26 ”搜索 关键 字 


将 鼠标 移 到 要 查看 的 条 目 上 ， 和 鼠标 指针 将 变 为 手 形 ， 单 击 鼠 标 即 可 打开 相应 条 目的 帮 
助 信息 。 

如 果 帮 助 系统 中 与 搜索 关键 字 相 匹配 的 条 目 很 多 ， 将 显示 分 页 序号 ， 单 击 序号 链接 可 
查看 其 他 页 的 内 容 。 
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在 使 用 VBA 编写 代码 前 ， 必 须 先 了 解 VBA 程序 设计 的 基础 知识 。 了 解 VBA 程序 的 
基本 元 素 包括 : 语句 的 书写 规范 ，VBA 处 理 的 数据 类 型 ， 程 序 的 结构 、 字 符 串 和 日 期 的 处 
理 等 相关 知识 。 


第 4 章 VBA 基础 


第 5 章 程序 控制 结构 


Mp 第 6 章 使 用 数组 


第 7 章 使 用 过 程 


第 8 章 管理 模块 


第 9 章 处 理 字符 串 和 日 期 


第 4 章 VBA 基础 


在 用 VBA 开发 应 用 程序 之 前 ， 应 该 先 对 VBA 的 语法 有 个 了 解 。 本 章 将 介绍 VBA 数 
据 类 型 、 常 数 、 变 量 、 运 算 符 和 表达 式 等 相关 基础 知识 ， 为 进一步 学 习 VBA 编程 打下 
基础 。 


4.1 VBA 简介 


在 Excel 中 使 用 VBA 编程 ， 可 以 开发 出 许多 有 价值 的 应 用 程序 。 作 为 初学 者 ,首先 需 
要 了 解 什么 是 VBA， 以 及 用 VBA 能 做 什么 。 


4.1.1 什么 是 VBA 


VBA 是 Visual Basic for Application 的 缩写 ， 是 一 种 应 用 程序 自动 化 语言 。 所 谓 应 用 程 
序 自动 化 ， 是 指 通 过 编写 程序 让 常规 应 用 程序 (如 Excel、Word 等 ) 自动 完成 工作 ， 如 在 
Excel 里 自动 设置 单元 格 的 格式 、 多 张 工 作 表 之 间 的 自动 计算 等 。 

VBA 是 微软 应 用 程序 开发 语言 一 一 VB 的 子 集 。 所 以 如 果 有 VB 程序 设计 的 经 验 ， 学 
习 VBA 将 非常 快 ; 同样 ,如果 掌 握 了 VBA 的 应 用 , 也 会 为 以 后 学 习 VB 打下 坚实 的 基础 。 

VBA 根据 其 嵌入 软件 的 不 同 ， 增 加 了 对 相应 软件 中 对 象 的 控制 功能 。 例 如 Excel 的 
VBA， 增 加 了 控制 Excel 工作 短 、 工 作 表 、 区 域 、 数 据 透 视 表 等 对 象 的 属性 、 事 件 和 方法 。 
在 Excel 中 使 用 VBA， 可 以 更 好 地 控制 Excel， 进 一 步 发 气 Excel 的 强大 功能 ， 提 高 Excel 
的 自动 化 水 平 。 可 以 用 很 短 的 时 间 在 Excel 环境 中 开发 出 一 套 完整 的 管理 信息 系统 。 


4.1.2 ”在 Excel 中 使 用 VBA 的 优势 


以 Excel 为 平台 ， 用 VBA 来 开发 程序 的 优势 有 以 下 几 点 : 

口 当 使 用 Excel 为 平台 时 ， 利 用 Excel 现 有 的 功能 (如 文件 管理 、 函 数 等 ) ， 可 以 减 
少 应 用 程序 的 代码 量 从 而 大 大 缩短 开发 的 周期 。 

口 在 大 部 分 用 户 的 计算 机 中 都 安装 有 Excel 软件 , 使 Excel 开发 的 应 用 程序 发 布 很 容 
易 。 只 要 用 户 计 算 机 中 有 Excel， 基 本 不 需要 其 他 的 文件 ， 只 需 将 开发 的 工作 短文 
件 复 制 给 用 户 即 可 完成 文件 的 发 布 。 

口 VBA 的 语言 简单 易学 ， 初 学 者 很 容易 上 手 。 


第 4 章 VBA 基础 


4.2 VBA 语法 简介 


在 Excel VBA 中 ， 每 个 Excel 应 用 程序 都 由 一 个 工程 表示 ， 每 个 工程 包含 当前 工作 簿 
的 工作 表 、 用 户 窗 体 、 模 块 和 类 模块 ， 可 为 这 些 对 象 和 模块 分 别 编写 VBA 代码 ， 本 节 介 
绍 VBA 代码 最 基础 的 内 容 。 


4.2.1 了 解 VBA 代码 


在 本 书 第 2 章 中 录制 的 宏 都 是 由 VBA 代码 构成 的 ， 进 入 VBE 环境 可 以 看 到 录制 的 宏 
代码 。 在 Excel 中 录制 的 宏 都 是 以 VBA 代码 表示 ,所 有 的 宏 都 是 以 关键 词 Sub 开始 ， 以 关 
键 词 End Sub 结束 。 其 结构 如 下 : 


Sub 宏 名 称 () 
' 说 明 


VBA 语 句 1 
VBA 语句 2 


End Sub 


在 关键 词 Sub 之 后 是 宏 的 名 称 ， 宏 名 称 后 是 一 对 括号 。 在 Sub 和 End Sub 之 间 是 每 次 
执行 宏 时 的 VBA 语句 ， 其 中 以 单 引 号 (半角 ) 开头 的 是 注释 内 容 ，VBA 将 忽略 该 语句 。 


全 提示 : 以 Sub 开始 , 至 End Sub 结束 的 这 一 部 分 代码 在 VBA 中 称 为 一 个 过 程 。 有关 Sub 
过 程 和 Function 过 程 的 详细 内 容 将 在 本 书 第 7 章 中 进行 介绍 。 


例如 ， 第 2 童 中 录制 宏 的 VBA 代码 如 下 : 


sub 设置 表 头 格式 () 
' 设置 表 头 格式 Macro 
' 快捷 键 : Ctrl+t 
ActiveWindow.Windowstate = xlNormal 
With Selection 
.HorizontalAlignment = xlCenter 
.VerticalAlignment = xlCenter 
.WrapText = False 
-Orientation = 0 
-RddIndent = False 
-IndentLevel = 0 
.ShrinkToFit = False 
.ReadingOrder = xlContext 
.MergeCells = False 
End With 
Selection.Merge 
With Selection.Font 
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.Name "宋体 " 


.Size 20 

.Strikethrough = False 

.Superscript = False 

.Subscript = False 

-OutlineFont = False 

-Shadow = False 

.Underline = xlUnderlinestyleNone 

-ColorIndex = xlAutomatic 

.TintAndshade = 0 

-ThemeFont = xlThemeFontNone 
End With 
Selection.Font.Bold = True 
ActiveWindow.Windowstate = xlNormal 

End Sub 


在 以 上 代码 中 可 以 看 出 ，VBA 代码 主要 有 以 下 几 个 要 素 : 

口 VBA 代码 由 英文 、 中 文 、 数 字 等 字符 构成 。 

口 每 行为 一 个 VBA 语句 。 

口 有 一 些 固 定 的 单词 ( 称 为 关键 字 ) 经 常 出 现 ， 例 如 ，Selection、With 等 。 

口 几乎 每 行 代码 中 都 包括 句点 ， 用 来 连接 VBA 语言 中 不 同 的 要 素 。 例 如 ， 
ActiveWindow.WindowState。 

下 面 将 分 别 介 绍 这 些 语法 要 素 。 


4.2.2 VBA 字符 集 


VBA 代码 可 由 以 下 几 类 字符 组 成 。 

口 英文 大 小 写字 母 : 包括 A~Z 和 a 一 z。VBA 的 代码 不 区 分 大 小 写 ， 若 字母 作为 字 
符 串 使 用 时 ， 需 注意 大 小 写 不 同 。 

口 数字 : 包括 阿拉 伯 数 字 0 一 9。 

口 特殊 符号 : 在 VBA 中 具有 特殊 含义 的 字符 ， 如 +、 一 、*、/、>、<、= 和 各 种 标点 
符号 。 

口 汉字 : 对 于 中 文 版 的 Excel， 在 VBA 代码 中 还 可 以 使 用 汉字 。 

综 上 所 述 ， 在 VBA 代码 中 可 使 用 各 种 常见 的 符号 。 


4.2.3 ”关键 字 


关键 字 ， 又 称 为 保留 字 ， 是 指 VBA 中 具有 特殊 意义 的 保留 字 或 符号 。 这 些 关 键 字 有 具 
有 固定 的 含义 ， 用 户 不 能 更 改 其 拼写 方式 ， 在 对 过 程 、 变 量 命名 时 不 允许 使 用 关键 字 相 同 
的 拼写 。 

VBA 中 关键 字 很 多 ， 可 分 为 数组 、 编 译 命令 、 控 制 流 、 变 换 、 数 据 类 型 、 日 期 与 时 间 、 
目录 和 文件 、 错 误 、 金 融 、 输 入 与 输出 、 数 学 、 其 他 、 操 作 符 、 字 符 串 处 理 、 变 量 与 常数 
等 多 种 类 型 。 常 用 的 关键 字 如 表 4-1 所 示 。 
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表 4-1 VBA 常 用 关键 字 


和 雪 寺 和 于 
Close Compare |Const Currency |Date Deftype |Dim 

Double Else End Explicit |For Format Ee I 
JInStr Int Integer 诗 宇 a ik Long 
Loop Lset Ltrim Minute -一 Next 


Not Now On Po Private ic |QBColor 
Randomize |ReDim |Retum Second | Select Sen 

Sin Single Space Spc Static String Switch Then 
Timer | mim lucase ee | | 


全 提示 : 在 VBA 中， 对 关键 字 不 区 分 大 小 写 ， 无 论 用 户 是 按 大 写 、 小 写 或 大 小 写 混 合 的 
方式 输入 关键 字 ， 当 输入 完 一 条 语句 按 Enter 键 后 ，VBE 将 自动 将 关键 字 转 换 为 
首 字母 大 写 ， 其 余 字 符 小 写 的 样式 。 


4.2.4 ”标识 符 


在 VBA 程序 中 ， 为 了 区 分 过 程 、 常 数 、 变 量 、 对 象 等 ， 需 要 为 这 些 过 程 、 常 数 、 变 
量 、 对 象 分 别 设置 不 同 的 名 称 ， 这 个 名 称 就 是 标识 符 。 

用 户 定义 标识 符 时 应 按照 以 下 规则 来 定义 : 
标识 符 只 能 由 VBA 支持 的 字符 集 组 成 。 
标识 符 首 字母 必须 为 字母 或 下 划 线 。 
不 能 在 标识 符 中 使 用 空格 、 句 点 〈.) 、 感 叹 号 (!1) 或 @、&、$，# 等 字符 。 
标识 符 不 能 与 关键 字 相 同 ， 可 对 关键 字 加 上 前 组 或 后 绥 使 用 。 
标识 符 的 长 度 不 能 超过 255 个 字符 。 
标识 符 的 名 称 应 尽量 有 意义 ， 以 方便 程序 中 查 错 。 
中 文 Excel 中 ， 可 使 用 中 文 作为 标识 符 〈 这 时 ， 不 要 求 首 字符 为 字母 )》 ， 如 设置 过 
程 名 称 为 “设置 表 头 格式 ”。 


OOOOOODO 


4.3 数据 类 型 


数据 是 程序 的 处 理 对 象 ， 在 学 习 程序 设计 之 前 ， 有 必要 先 了 解数 据 的 相关 知识 。VBA 
能 处 理 字符 、 日 期 、 数 值 等 多 种 数据 类 型 ， 并 允许 用 户 根据 需要 定义 自己 的 数据 类 型 。 
4.3.1 基本 数据 类 型 

Excel 单元 格 中 可 以 保存 处 理 多 种 类 型 的 数据 ， 包 括 数值 、 日 期 /时 间 、 文 本 、 货 币 等 。 
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在 VBA 中 除了 提供 这 些 数据 类 型 之 外 ， 还 提供 了 字 节 、 布 尔 和 变 体 数据 等 类 型 。 在 VBA 
中 共有 11 种 基本 数据 类 型 ， 这 些 基 本 数据 类 型 是 组 成 用 户 自 定 义 类 型 的 基础 。 


1. 整 型 (Integer) 


整 型 数据 存储 为 16 位 (2 个 字 节 ) 的 数值 形式 ， 其 范围 为 -32768 一 32767 之 间 。 整 型 
数据 除了 表示 一 般 的 整数 外 ， 还 可 以 表示 数组 变量 的 下 标 。 整 型 数据 的 运算 速度 较 快 ， 而 
且 比 其 他 数据 类 型 占用 的 内 存 少 。 整 型 的 类 型 声明 字符 是 百分比 符号 〈%) ， 以 下 两 条 语 
名 都 声明 了 一 个 整 型 变量 。 


Dim nl Rs Integer 
Dim ng 


2. 长 整 型 (Long) 


长 整 型 数据 存储 为 32 位 (4 个 字 节 ) 有 符号 的 数值 形式 ， 其 范围 从 -2147483648 一 
2147483647。Long 的 类 型 声明 字符 为 和 号 (&)。 
如 果 要 在 VBA 程序 中 保存 较 大 数值 ， 可 采用 长 整 型 来 保存 。 


3. 单 精度 浮 点 型 (Single) 


整 型 和 长 整 型 都 用 来 表示 整数 ， 在 很 多 程序 中 都 需要 处 理 小 数 ， 这 时 就 需要 使 用 实数 
型 , 实数 型 分 为 单 精度 浮 点 型 和 双 精 度 浮 点 型 。 单 精度 浮 点 型 数据 存储 为 32 位 (4 个 字 节 ) 
浮 点 数值 的 形式 ， 通常 以 指数 形式 (科学 计数 法 ) 来 表示 ， 以 “E” 或 “e” 表 示 指 数 部 分 。 
它 的 范围 在 负数 的 时 候 是 从 -3.402823E38 一 一 1.401298E-45， 而 在 正 数 的 时 候 是 从 
1.401298E-45 一 3.402823E38。 单 精度 浮 点 型 的 类 型 声明 字符 为 感叹 号 (!) 。 


4. 双 精 度 浮 点 型 (Double) 


双 精 度 浮 点 型 可 表示 更 高 精度 、 更 大 的 数据 ， 存 储 为 64 位 (8 个 字 节 ) 浮 点 数值 的 形 
式 ， 它 的 范围 在 负数 的 时 候 是 从 -1.79769313486231E308 一 -4.94065645841247E-324， 而 在 
正 数 的 时 候 是 从 4.94065645841247E-324 一 1.79769313486232E308。Double 的 类 型 声明 字符 
是 数字 符号 (#) 。 

车 程序 中 处 理 的 数据 范围 很 大 ， 或 小 数 点 后 的 位 数 较 多 ， 就 应 该 采用 双 精 度 浮 点 型 。 


5. 货币 型 (Currency) 


由 名 称 可 知 该 种 数据 类 型 主要 用 来 保存 货币 值 。 货 币 型 数据 存储 为 64 位 (8 个 字 节 ) 
整 型 的 数值 形式 ， 然后 除 以 10000 给 出 一 个 定点 数 ， 其 小 数 点 左边 有 15 位 数字 ， 右边 有 4 
位 数字 。 这 种 表示 法 的 范围 可 以 从 -922337203685477.5808 一 922337203685477.5807。 货 币 
型 的 类 型 声明 字符 为 at 符号 (@) 。 

货币 型 数据 类 型 在 货币 计算 与 定点 计算 中 很 有 用 , 在 这 种 场合 精度 特别 重要 。 浮 点 ( 单 
精度 和 双 精 度 ) 数据 比 货币 型 的 有 效 范围 大 得 多 ， 但 有 可 能 产生 小 的 进位 误差 ， 而 货币 型 
采用 更 多 的 字 节 保 存 数 据 ， 能 减少 计算 的 误差 。 
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6. 字 节 型 (Byte) 


字 节 型 数据 类 型 为 数值 型 ， 用 来 保存 0 一 255 之 间 的 整数 ， 占 用 8 位 (1 个 字 节 ) 存储 
室 间 。 字 节 型 数据 类 型 在 存储 二 进 制 数 据 时 很 有 用 。 

字符 型 表示 数值 范围 很 限 〈 只 能 为 0 一 2353) ， 所 以 ， 一 般 情况 下 都 不 使 用 这 种 类 型 保 
存 数 据 。 

7. 字符 串 (String) 


字符 串 是 一 个 字符 序列 ， 类似 于 Excel 中 的 文本 。 在 VBA 中 , 字符 串 包 括 在 双 引 号 内 
(半角 状态 的 双 引 号 )。 其 中 长 度 为 0( 双 引号 中 不 包括 任何 字符 ) 的 字符 串 称 为 空 字符 串 。 
以 下 为 字符 串 的 表示 形式 : 


"Microsfot Visual Basic" 


"欢迎 使 用 VBA" 

其 中 最 后 一 个 为 空 字 符 串 。 

VBA 中 的 字符 串 又 分 两 种 : 变 长 与 定 长 的 字符 串 。 

口 变 长 字符 串 的 长 度 是 不 确定 的 ， 最 多 可 包含 大 约 20 亿 〈2^31) 个 字符 。 

口 定 长 字符 串 的 长 度 是 确定 的 ， 可 包含 1 到 大 约 64K〈2^16) 个 字符 。 

以 下 语句 声明 字符 串 : 

Dim strl As String 

Dim str2 As String*10 

其 中 变量 strl 为 变 长 字符 串 ， 可 保存 多 个 字符 ， 而 变量 str2 表示 定 长 字符 串 ， 该 变量 
定义 后 将 一 直 占 用 10 个 字符 位 置 。 

8. 布尔 型 (Boolean) 


布尔 型 数据 很 简单 ， 只 有 两 个 值 〈True 或 False) 。 该 类 型 适合 存储 简单 的 二 元 信息 ， 
例如 ， 真 / 假 、 是 / 否 等 类 似 的 信息 。 布 尔 型 变量 的 值 显示 为 True 或 False， 保 存 为 16 位 〈2 
个 字 节 ) 的 数值 形式 。 

当 转 换 其 他 的 数值 类 型 为 Boolean 值 时 ，0 会 转 成 False， 而 其 他 的 值 则 变 成 Tue。 当 
转换 Boolean 值 为 其 他 的 数据 类 型 时 ，False 成 为 0， 而 True 成 为 -1。 


9. 日 期 型 (Date) 


在 VBA 中 支持 复杂 的 日 期 操作 和 运算 。 

日 期 型 数据 存储 为 64 位 (8 个 字 节 ) 浮 点 数值 形式 ， 其 可 以 表示 的 日 期 范围 从 100 年 
1 月 1 日 到 9999 年 12 月 31 日 ， 而 时 间 可 以 从 0:00:00 到 23:59:59。 任 何 可 辨认 的 文本 日 
期 都 可 以 赋值 给 Date 变量 。 日 期 文字 需 以 数字 符号 (#) 插 起 来 ， 例 如 ，#January 1, 1993# 
或 #1 Jan 93#。 

日 期 型 变量 会 根据 计算 机 中 的 短 日 期 格式 来 显示 。 时 间 则 根据 计算 机 的 时 间 格 式 (12 
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小 时 制 或 24 小 时 制 ) 来 显示 。 
当 其 他 数值 类 型 要 转换 为 日 期 型 时 ， 小 数 点 左边 的 值 表示 日 期 信息 ， 而 小 数 点 右边 的 
值 则 表示 时 间 。 午 夜 为 0 而 中 午 为 0.5。 负 整数 表示 1899 年 12 月 30 日 之 前 的 日 期 。 


10. 对 象 型 (Object) 


VBA 是 面向 对 象 的 程序 设计 语言 ， 用 户 可 在 程序 中 访问 各 种 对 象 ， 例 如 ，Excel 的 工 
作 表 、 单 元 格 等 。 这 些 对 象 有 自己 特定 的 对 象 名 ， 这 里 所 说 的 对 象 型 可 引用 任何 对 象 。 

对 象 型 数据 存储 为 32 位 (4 个 字 节 ) 的 地 址 形式 , 其 为 对 象 的 引用 ( 即 引 用 指定 对 象 ) 。 
必须 使 用 Set 语句 给 对 象 变量 赋值 ， 对 象 变量 使 用 结束 后 ， 应 为 其 赋值 为 Nothing。 如 : 

Dim MyObject As Object 


Set MyObject = Worksheets ("sheet1") ， 赋值 对 象 引用 工作 表 
Set MyObject = Nothing ， 中 断 关 联 


11. 变 体型 (Variant) 


变 体型 是 VBA 中 的 一 种 特殊 数据 类 型 ， 所 有 没有 被 声明 数据 类 型 的 变量 都 默认 为 变 
体型 。 变 体型 数据 是 所 有 没 被 显 式 声明 (用 如 Dim、Private、Public 或 Static 等 语句 一 一 变 
量 的 声明 将 在 本 章 后 面 进行 介绍 ) 为 其 他 类 型 变量 的 数据 类 型 。 变 体型 没有 类 型 声明 字符 。 

变 体型 是 一 种 特殊 的 数据 类 型 ， 除 了 定 长 String 数据 及 用 户 定义 类 型 外 ， 可 以 包含 任 
何 种 类 的 数据 ,Variant 也 可 以 包含 Empty、Error、Nothing 及 Null 等 特殊 值 . 可 以 用 VarType 
函数 或 TypeName 函数 来 决定 如 何 处 理 变 体型 中 的 数据 。 


4.3.2 自 定义 数据 类 型 


在 VBA 中 ,可 以 使 用 Type 语句 定义 自己 的 数据 类 型 。 用 户 自 定义 类 型 经 常用 来 表示 
数据 记录 ， 记 录 一 般 由 多 个 不 同 数据 类 型 的 元 素 组 成 。 

定义 自 定义 数据 类 型 的 语法 格式 如 下 : 

Type 数据 类 型 名 


数据 类 型 元 素 名 As 数据 类 型 
数据 类 型 元 素 名 As 数据 类 型 


End Type 


其 中 : “数据 类 型 名 ”就 是 要 定义 的 数据 类 型 的 名 字 。“ 数 据 类 型 ”为 前 面 介绍 的 基 
本 数据 类 型 〈 也 可 使 用 用 户 已 经 定义 的 自 定义 类 型 ) 。 例 如 : 


Type Product 


ProductName Rs String "产品 名 称 

Quantity Rs Integer :库存 数量 

Price Rs Currency ?单价 

Order As Integer !' 订 购 量 
End Type 
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有 了 以 上 的 自 定义 类 型 ， 即 可 使 用 该 类 型 的 变量 保存 一 行 的 数据 。 这 样 就 可 以 非常 方 
便 地 处 理 Excel 工作 表 中 的 数据 。 

使 用 Type 语句 声明 了 一 个 用 户 自 定义 类 型 后 ， 就 可 以 在 该 声明 范围 内 的 任何 位 置 声 
明 该 类 型 的 变量 。 可 以 使 用 Dim、Private、Public、ReDim 或 Static 来 声明 用 户 自 定义 类 型 
的 变量 。 


名 注意: 自 定义 数据 类 型 的 定义 必须 放 在 模块 ( 模块 和 类 模块 ) 的 声明 部 分 。 在 使 用 记录 
类 型 之 前 ， 必 须 用 Type 语句 进行 定义 。 一 般 情况 下 ， 记 录 类 型 在 模块 中 定义 ， 
其 变量 可 以 出 现在 VBA 工程 的 任何 地 方 。 


例如 : 如 图 4-1 所 示 的 工作 表 中 每 行 数据 产品 名 称 、 库 存量 、 单 价 、 订 购 量 等 数据 。 
在 VBA 程序 中 为 了 方便 地 处 理 这 些 数据 ， 可 自 定义 数据 类 型 Product， 然 后 在 程序 中 使 用 
Dim 声明 一 个 变量 的 数据 类 型 为 Product, 然后 在 程序 中 使 用 赋值 语句 将 各 列 的 值 保存 到 声 
明 的 变量 中 ， 具 体 的 代码 如 下 : 


销售 管理 xs [ 臣 窜 模式] Ey 
I A i c Dp E 下 3 I 出 
3 商品 信息 表 日 


产品 ID 供应 商 ID 类 别 ID 单位 数量 单价 。 库存 量 《订购 量 再 订购 司 
1| 1 1 每 箱 24 瓶 18 39 


Type Product 
ProductName As String ! 产 品名 称 


Quantity As Integer '! 库 存量 
Price As Currency ' 单 价 
Order As Integer !' 订 购 量 
End Type 
Sub test() 


Dim pl As Product 

With Worksheets ("商品 ") 
pl.ProductName = .Cells(3, 2) 
pl.Price = .Cells(3, 6) 
pl.Quantity = .Cells(3, 7) 
pl.Order = .Cells(3, 8) 

End With 

End Sub 


4.3.3” 枚 举 类 型 


枚 举 就 是 将 变量 的 值 逐一 列举 出 来 ， 属 于 该 枚 举 型 的 变量 只 能 取 列 举 的 某 一 个 值 。 当 
一 个 变量 只 有 几 种 可 能 的 值 时 ， 可 以 定义 为 枚 举 类 型 。 
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在 Excel VBA 中 预定 义 了 很 多 枚 举 类 型 。 例 如 在 Excel 中 ， 对 象 的 水 平 对 齐 方式 共有 
8 种 ， 使 用 xlHAlign 枚 举 类 型 来 表示 ， 其 枚 举 名 称 、 值 和 表示 的 意义 如 表 4-2 所 示 。 


表 4-2 xlIHAlign 枚 举 类 型 


名 称 描 述 
xlHAlignCenter 居中 对 齐 
xlHAlignCenterAcrossSelection 跨 列 居中 
xlHAlignDistributed 分 散 对 齐 
xlHAlignFil 填充 
xlHAlignGeneral 按 数据 类 型 对 齐 
xlHAlignJustify 两 端 对 齐 
xlHAlignLeft 左 对 齐 
xlHAlignRight 右 对 齐 


枚 举 类 型 提供 了 一 种 处 理 有 关 常数 的 方法 。 例 如 ， 可 以 定义 一 个 枚 举 类 型 来 表示 小 学 
六 个 年 级 的 名 称 与 一 组 整 型 常数 的 关系 ， 在 代码 中 就 可 使 用 年 级 的 名 称 〈 如 “一 年 级 ”) ， 
而 不 用 使 用 数值 来 表示 了 。 这 样 程序 将 具有 更 好 的 阅读 特性 。 枚 举 类 型 的 定义 需 放 在 模块 、 
窗 体 的 声明 部 分 ， 其 定义 格式 如 下 : 

Public | Private] Enum 类 型 名 称 


成 员 [= 常数 表达 式 ] 
成 员 [= 常数 表达 式 ] 


End ‘Enum 
说 明 : 
在 默认 情况 下 ， 枚 举 中 的 第 1 个 常数 为 0， 其 后 的 常数 比 前 面 一 个 大 1， 例 如 : 
Public Enum Grade 
小 学 
一 年 级 
二 年 级 
三 年 级 
四 年 级 
五 年 级 
六 年 级 
End Enum 
在 以 上 定义 中 ， 第 1 项 的 值 为 0， 本 例 随意 设置 了 一 个 值 ， 使 “一 年 级 ”可 表示 常数 
1，“ 六 年 级 ”表示 常数 6。 
如 果 希 望 枚 举 型 的 第 1 项 的 值 为 常数 1， 则 可 按 以 下 方式 进行 定义 : 
Public Enum Grade 
一 年 级 = 1 
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五 年 级 
六 年 级 
End Enum 


这 时 ，“ 一 年 级 ”表示 常数 1，“ 二 年 级 ”表示 常数 2。 

在 代码 窗口 的 声明 部 分 定义 了 枚 举 类 型 后 , 就 可 以 声明 该 枚 举 类 型 的 变量 , 并 使 用 它 。 
例如 定义 了 上 面 的 Grade 枚 举 类 型 后 ， 即 可 在 代码 窗口 中 使 用 该 类 型 ， 在 定义 为 变量 时 将 
显示 前 面 定义 的 枚 举 类 型 Grade， 如 图 4-2 所 示 。 给 枚 举 类 型 变量 赋值 时 ， 在 代码 窗口 中 
将 自动 列 出 枚 举 类 型 的 成 员 ， 如 图 4-3 所 示 。 


稍 舍 管 理 .zls 一 模块 ! (代码 ) 


图 4-2 定义 枚 举 变量 图 4-3 使 用 枚 举 型 


4.4 常 数 


VBA 应 用 程序 通过 获取 数据 、 处 理 数 据 、 输出 数据 来 完成 用 户 的 工作 。 在 处 理 数据 时 ， 
像 3.14、255 等 仅 表 示 它 自身 取 值 的 数据 叫 常数 。 常 数 的 值 在 程序 执行 之 前 就 已 经 确定 ， 
执行 过 程 中 不 能 改变 。 

VBA 中 包括 直接 常数 、 符 号 常数 和 系统 常数 3 种 。 


4.4.1 直接 常数 


直接 常数 是 指 在 VBA 程序 中 可 以 直接 使 用 的 量 。 根 据 表示 的 数据 类 型 不 同 ， 直 接 常 
数 分 为 数值 常数 〈 整 型 、 长 整 型 、 单 精度 型 、 双 精度 型 、 货 币 型 等 ) 、 字 符 串 常数 、 日 期 / 
时 间 常 数 和 布尔 常数 等 多 种 类 型 。 

1. 数值 常数 

数值 常数 是 由 数字 、 小 数 点 和 正 负 符号 所 构成 的 量 。 一 个 数值 常数 有 时 可 能 存在 多 种 
数据 类 型 的 解释 。 例 如 ，3.14 可 解释 为 单 精度 型 ， 也 可 为 双 精 度 型 。VBA 将 使 用 占用 内 存 
少 的 那 种 类 型 ， 即 单 精 度 型 。 

为 了 标识 直接 常数 的 类 型 ， 可 在 直接 常数 的 后 面 加 上 类 型 标识 符 ， 例 如 : 


S=Ir*r*3 .14# 
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以 上 代码 中 ，3.14# 表 示 该 常数 值 按 双 精度 型 存储 ， 若 3.14 后 面 不 带 “# ”号 ， 则 表示 
是 单 精度 常数 。 
2. 字符 串 常 数 
字符 串 常 数 是 由 数字 、 英 文字 母 、 特 殊 符号 和 汉字 等 可 见 字 符 构 成 的 ， 在 书写 时 必须 
使 用 半角 状态 的 双 引 号 作 定 界 符 ， 如 : 
"Excel VBA 从 入 门 到 精通 " 


全 注意 ; 字符 串 常数 必须 用 双 引 号 括 起 来 ， 否 则 ，VBA 会 将 其 认为 是 一 个 变量 名 。 


3. 日 期 /时 间 常 数 


在 Excel 中 ,可 以 方便 地 处 理 日 期 /时 间 数 据 。 日 期 /时 间 常 数 用 来 表示 某 一 天 或 某 一 具 
体 时 间 。 在 输入 日 期 /时 间 常 数 时 必须 使 用 “#” 作 为 定 界 符 ， 并 且 输 入 的 日 期 时 间 要 有 具 
体 的 意义 。 例 如 ，#8/8/2008# 是 正确 的 ， 而 #4/31/2008# 是 错误 的 ， 因 为 4 月 没有 31 日 。 

输入 日 期 时 ，VBE 自动 将 其 两 个 “#” 号 中 的 数据 转换 为 正确 的 日 期 格式 。 例 如 ， 在 
VBE 的 代码 中 输入 以 下 内 容 : 


#13/8/2008# 
#2008/8/13# 


VBE 都 会 自动 将 其 按 “ 月 /日 /年 ”的 格式 转换 为 正确 的 表示 形式 ， 显 示 如 下 : 
#8/13/2008# 

若 输 入 的 值 如 下 : 

#13/13/2008# 

则 将 弹出 如 图 4-4 所 示 的 错误 提示 信息 。 


名 提示: 日 期 值 中 的 年 份 可 省 略 世纪 值 ， 当 省 略 世 纪 值 时 ， 其 表示 的 
年 份 与 Windows 操作 系统 中 的 设置 相关 。 例 如 ，#8/13/08# 


可 能 表示 2008 年 8 月 13 日 。 4-4 错误 提示 
4. 布尔 常数 


布尔 常数 也 叫 逻辑 常数 。 在 VBE 中 布尔 常数 只 有 两 个 值 : True ( 真 )》 和 False ( 假 ) 。 
4.4.2 ”符号 常数 

符号 常数 是 一 种 代替 直接 常数 的 标识 符 。 如 果 在 程序 中 需 反复 地 使 用 某 一 个 常数 ， 可 
为 该 常数 命名 ， 在 需要 使 用 该 常数 的 地 方 引用 其 常数 名 即 可 。 

一 般 在 VBA 代码 的 上 方 定义 符号 常数 ， 当 程序 中 需要 修改 该 常数 的 值 时 ， 只 需要 在 
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程序 开始 处 定义 一 次 符号 常数 即 可 。 

在 程序 运行 过 程 中 ， 不 能 对 符号 常数 进行 赋值 和 修改 ， 即 符号 常数 在 程序 运行 前 必须 
有 确定 的 值 。VBA 中 可 使 用 Const 关键 字 定 义 符号 常数 ， 其 语法 格式 如 下 : 

Const 常数 标识 符 As 数据 类 型 = 符号 常数 表达 式 


其 中 ，Const 为 定义 符号 常数 的 关键 字 ， 符 号 常数 表达 式 计算 出 来 的 值 保 存在 常数 名 
中 ， 如 果 在 声明 常数 时 没有 显 式 地 使 用 As type 子 句 ， 则 该 常数 的 数据 类 型 是 最 适合 其 表 
达 式 的 数据 类 型 。 

例如 ， 以 下 代码 定义 符号 常数 : 

Const MAXCOL = 255 


Const MyInt As Integer = 5 
Const BOOKNAME = "Excel VBA 从 入 门 到 精通 " 


在 定义 符号 常数 时 ， 等 号 右边 的 表达 式 往往 是 数字 或 字符 串 ， 也 可 以 前 面 定义 过 的 常 
数 。 如 : 


Const BOOK = "Microsoft Office " + BOOKNAME 


以 上 代码 使 用 前 面 定义 的 BOOKNAME 符号 常数 ， 通 过 运算 后 得 到 新 的 符号 常 
BOOK。 


4.4.3 ”系统 常数 


为 了 控制 Excel 中 的 各 对 象 ，Excel VBA 预定 义 了 许多 常数 ， 这 些 常数 称 为 系统 常数 。 
提供 对 象 库 的 其 他 应 用 程序 (如 Access、Excel、Project 以 及 Word 等 ) 也 提供 常数 列表 ， 
这 些 常数 可 与 它们 所 属 的 对 象 、 方 法 以 及 属性 等 一 起 使 用 。 

在 VBA 中 ， 系 统 常数 名 采用 大 小 写 混合 的 格式 ， 其 前 级 表示 定义 常数 的 对 象 库 名 。 
在 Excel 中 的 系统 常数 名 通常 都 是 以 小 写 的 x1 (如 xlWindowType 的 成 员 包括 xlWorkbook 
等 几 个 ) 作为 前 级 ， 而 VB 中 的 系统 常数 名 通常 都 是 以 小 写 的 vb 作为 前 级 。 

例如 ，VBA 中 常用 的 Msgbox 用 来 显示 一 个 信息 对 话 框 ， 为 了 方便 控制 对 话 框 ,VBA 
提供 了 很 多 Msgbox 常数 ， 用 vbOKOnly 表示 对 话 框 只 有 【人 确定】 按钮 ， 比 用 数值 0 更 直 
观 易 用 。 

要 查询 某 个 系统 常数 的 具体 名 称 及 其 确切 值 ， 可 通过 【帮助 】 菜 单 或 使 用 【对 和 象 浏览 
器 】 窗 口 来 查看 。 

通过 【帮助 】 荣 单 查看 常数 值 的 方法 如 下 : 

(1) 在 VBE 中 按 Fl 打开 帮助 系统 。 

(2) 在 【搜索 】 文 本 框 中 输入 关键 字 “常数 ”， 单 击 【搜索 】 按 钮 ， 将 显示 关键 字 为 
“常数 ”的 所 有 帮助 条 目 ， 如 图 4-5 所 示 。 

(3) 在 查找 到 的 信息 中 单 击 【Visual Basic 常数 】 按 钮 ， 可 显示 VBA 常数 的 分 类 ， 
如 图 4-6 左 图 所 示 。 单 击 分 类 【Color 常数 】 按 钮 即 可 查看 具体 的 常数 ， 如 图 4-6 右 图 
所 示 。 
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| visual Basic 常数 Color 常数 
得 参 风 是 和 网 
Me 定义 了 一 此 芝 数 ， Ri | 可 在 代 三 中 的 任 向 地 方 用 下 列举 数 改 谷 蛮 际 值 ， 
使 程序 放 计 变 得 更 为 向 单 。 下 列 澡 喜 可 在 程序 代 到 中 CT 
的 任 向 地 方 代 埠 实际 仁 。 常数 撕 述 
vbBlack 黑色 
whRed 红包 
bgreen 反 色 
voyellow 黄色 
wbBlue 0xFF0000 蓝 色 
vblogentn 0xFPFOOFF 此 红色 


图 4-6 查看 常数 
还 可 通过 【对 象 浏览 器 】 窗 口 查找 系统 常数 ， 具 体 步 又 如 下 : 
(1) 在 VBE 中 按 F2 打开 【对 象 浏 览 器 】 窗 口 。 


(2) 在 该 窗口 上 部 第 一 个 列表 框 中 选择 相应 的 库 ， 在 第 二 行 的 列表 框 中 输入 要 查找 的 
常数 ， 单 击 【搜索 】 按 钮 ， 将 显示 Msgbox 的 相关 常数 ， 如 图 4-7 所 示 。 


对 象 型 览 器 


oh VollsehoxStyle 
TInteraction < NseBox 
SysteaColorConstar ®) vbllsgBox 


VblriState 
VoyarType 

XlAboveBelow 
XlActionType 
XlApplicationInterr 对 


图 4-7 【对 象 浏览 器 】 窗 口 
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变量 用 于 保存 程序 运行 过 程 中 的 临时 值 , 根据 其 保存 的 数据 , 变量 也 具有 不 同 的 类 型 。 
和 常数 不 同 ， 在 程序 运行 过 程 中 ， 变 量 保存 的 值 可 以 进行 更 改 。 


4.5.1 声明 变量 


声明 变量 就 是 事先 将 变量 名 及 其 类 型 在 使 用 之 前 通知 VBA， 由 VBA 按照 变量 的 数据 
类 型 分 配 存 储 空 间 。 可 使 用 Dim、Static、Private 或 Public 关键 字 来 声明 变量 。 最 常用 的 是 
使 用 Dim 声明 变量 ， 其 语法 格式 如 下 : 

Dim 变量 名 [Rs 数据 类 型 ] 

其 中 : 

口 Dim 和 As 为 声明 变量 的 关键 字 。 

口 数据 类 型 为 前 面 介绍 的 类 型 关键 字 ， 例 如 ，String、Date 等 。 

口 中 括号 部 分 表示 可 以 省 略 ， 即 声明 变量 时 也 可 不 指定 变量 的 类 型 。 

可 以 在 一 个 语句 中 声明 几 个 变量 。 而 为 了 指定 数据 类 型 ， 必 须 将 每 一 个 变量 的 数据 类 
型 包含 进来 。 在 下 面 的 语句 中 ， 变 量 intX、intY 与 intZ 被 声明 为 Integer 类 型 。 

Dim intX As Integer，intY Rs Integer, intZz Rs Integer 

在 VBA 中 变量 的 声明 分 隐 式 声明 和 显示 声明 两 种 。 

1. 隐 式 声明 


在 使 用 一 个 变量 之 前 不 必 先 声明 这 个 变量 。 这 种 变量 使 用 方式 称 为 隐 式 变量 声明 。 使 
用 隐 式 变量 时 ，VBA 会 自动 创建 变量 ， 并 设置 为 Variant 类 型 。 在 为 其 指定 值 之 前 ， 其 值 
为 Empty; 当 为 它 赋 值 后 ， 会 采用 所 赋值 的 类 型 作为 变量 的 类 型 。 

使 用 隐 式 声明 的 方法 ， 看 起 来 很 方便 。 但 是 ， 当 程序 很 大 或 很 复杂 时 ， 这 种 未 经 声明 
的 变量 使 用 时 往往 会 造成 程序 出 错 〈 如 变量 名 拼写 错误 ) ， 而 这 种 错误 不 能 利用 编译 系统 
检查 出 来 ， 大 量 的 未 声明 变量 的 检查 工作 往往 靠 人 工 逐 个 检查 ， 从 而 增加 调试 的 难度 。 因 
此 ， 建 议 在 使 用 每 个 变量 之 前 要 先 声 明 ， 这 就 是 变量 的 显 式 声明 方式 。 

2. 显 式 声明 


为 了 避免 隐 式 声明 引起 的 麻烦 ， 可 以 规定 ， 只 要 遇 到 一 个 未 声明 的 变量 名 ，VBA 就 发 
出 错误 警告 。 要 显 式 声明 变量 ， 可 以 在 模块 、 类 模块 的 声明 段 中 加 入 以 下 语句 : 


Option Explicit 
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4.5.2 ”变量 的 作用 域 和 生存 期 


在 VBA 应 用 程序 中 ， 将 使 用 很 多 的 变量 ， 有 些 变量 可 在 整个 应 用 程序 中 使 用 ， 而 另 
一 些 变量 只 能 在 某 一 个 过 程 中 使 用 ， 这 就 是 变量 的 作用 域 。 

有 的 变量 在 过 程 使 用 完毕 后 即 自动 消失 ， 而 有 的 变量 再 次 进入 过 程 时 还 可 访问 其 值 ， 
这 就 是 变量 的 生存 期 。 

1. 变量 的 作用 域 


变量 的 作用 域 是 指 变量 可 以 被 程序 使 用 的 范围 ， 变 量 的 作用 域 共 分 为 以 下 3 种 。 

口 过 程 级 别 : 称 为 局 部 变量 。 只 能 在 过 程 中 使 用 的 变量 ， 过 程 执行 结束 后 ， 变 量 的 
值 自动 消失 。 这 类 变量 用 Dim 关键 字 进行 定义 。 

口 模块 级 别称 为 模块 变量 。 在 Excel VBA 的 某 个 模块 顶端 定义 的 变量 ， 在 该 模块 
的 各 过 程 中 都 可 访问 模块 级 别 变量 。 这 类 变量 在 模块 的 开始 部 分 使 用 Dim 或 
Private 关键 字 进 行 定义 。 

口 全 局 级 别 : 称 为 全 局 变量 。 在 整个 应 用 程序 范围 内 〈 各 模块 、 各 过 程 ) 都 可 以 使 
用 的 变量 。 这 类 变量 在 模块 的 开始 部 分 用 Public 关键 字 进 行 定义 。 

2. 变量 的 生存 期 


变量 不 仅 有 作用 域 ， 还 有 生存 期 。 一 般 情 况 下 ， 变 量 的 生存 期 与 其 作用 域 相 同 ， 即 变 
量 在 其 作用 域内 有 效 ， 超 出 作用 域 后 变量 的 值 自动 消失 。 

在 过 程 中 使 用 Static 关键 字 声 明 的 变量 称 为 静态 变量 ， 这 类 变量 在 整个 应 用 程序 中 有 
效 ， 即 应 用 程序 未 结束 ， 则 变量 的 值 一 直 保 存在 内 存 中 ， 且 其 内 容 不 会 改变 。 但 静态 变量 
只 在 定义 的 过 程 中 才能 访问 ， 超 过 该 过 程 时 ， 静 态 变量 将 不 能 被 访问 。 


4.5.3 ”局 部 变量 


局 部 变量 也 只 有 局 部 作用 域 ， 它 在 程序 运行 期 间 不 是 一 直 存在 ， 而 是 只 在 定义 的 过 程 
中 存在 ， 执 行 过 程 结束 后 ， 变 量 被 撤销 ， 其 所 占用 的 内 存 也 被 收回 。 

将 定义 变量 的 Dim 语句 放 到 过 程 中 ， 可 创建 属于 过 程 级 别 的 局 部 变量 。 例 如 ， 以 下 代 
码 创建 了 变量 sttName 并 且 指 定 为 String 数据 类 型 。 


Dim strName As String 


在 过 程 中 定义 的 变量 stName 只 可 以 在 此 过 程 中 被 使 用 。 
下 面 以 实例 演示 局 部 变量 的 作用 域 。 在 模块 中 输入 以 下 代码 : 
Sub 过 程 1() 
Dim sl As String 
sl = "测试 局 部 变量 " 
MsgBox sl 
End Sub 
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Sub 过 程 2() 
MsgBox sl 
End Sub 


上 面 的 代码 定义 了 两 个 过 程 “ 过 程 1” 和 “过 程 2”， 其 中 “过 程 1” 中 定义 了 一 个 局 
部 变量 s1， 并 调用 MsgBox 显示 该 变量 的 值 ， 如 图 4-8 左 图 所 示 。 在 “过 程 2” 中 直接 使 
用 MsgBox 显示 sl 中 的 值 ， 因 为 该 过 程 中 并 未 定义 变量 sl 的 值 ， 所 以 显示 对 话 框 中 无 任 
何 信息 ， 如 图 4-8 右 图 所 示 。 


图 4-8 测试 局 部 变量 


4.5.4 ”模块 变量 


可 以 使 用 Private 语句 声明 私有 的 模块 级 别 变量 。 模块 变量 只 可 使 用 于 同一 模块 中 的 过 
程 。 在 模块 级 别 中 使 用 Dim 语句 与 使 用 Private 语句 是 相同 的 。 不 过 使 用 Private 语句 可 以 
更 容易 地 读 取 和 解释 代码 。 使 用 两 个 语句 声明 变量 的 语法 格式 完全 相同 。 

要 声明 模块 变量 ， 可 按 以 下 步骤 进行 

(1) 在 VBE 中 双击 模块 名 ， 打 开 模块 的 代码 窗口 。 

(2) 在 模块 的 【声明 】 部 分 ， 输 入 声明 变量 的 代码 ， 如 图 4-9 所 示 。 


Private strName As String 


YA 基础 .xls -变量 作用 总 (代码 ) 


图 4-9 声明 模块 变量 


(3) 接着 在 该 模块 的 下 方 输入 以 下 两 个 过 程 ， 用 来 测试 模块 变量 。 


Sub 测试 模块 变量 () 
strName = " 伍 远 高 " 
MsgBox "软件 设计 : " & strName 
End Sub 
Sub 显示 模块 变量 的 值 () 
MsgBox strName 
End Sub 


全 注意 : 模块 变量 的 初始 化 操作 必须 在 过 程 中 进行 ， 不 能 在 模块 【声明 】〗 部 分 进行 。 
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运行 过 程 “ 测 试 模块 变量 ”， 将 首先 初始 化 模块 变量 sttName 的 值 ， 然 后 用 MsgBox 
显示 模块 变量 strName 的 值 。 接 着 运行 过 程 “ 显 示 模 块 变量 的 值 ”， 在 该 过 程 中 未 对 模块 
变量 strName 赋值 ， 但 因 strName 为 模块 变量 ， 在 “测试 模块 变量 ”过 程 中 已 经 赋值 ， 所 
以 也 可 显示 出 相同 的 值 来 。 

如 果 首 先 运 行 过 程 “ 显 示 模 块 变量 的 值 ”，MsgBox 对 话 框 将 不 会 显示 任何 值 。 


4.5.5 ”全 局 变量 


使 用 Public 语句 声明 公共 模块 级 别 变量 。 全 局 变量 可 用 于 工程 中 的 任何 过 程 。 如 果 全 
局 变量 是 声明 于 标准 模块 或 是 类 模块 中 ， 则 它 也 可 以 被 任何 引用 到 此 全 局 变量 所 属 工程 的 
工程 中 使 用 。 

全 局 变量 在 整个 应 用 程序 范围 内 都 有 效 ， 一 般 用 来 定义 一 些 全 局 参数 ， 如 应 用 程序 名 
称 、 程 序 版 本 等 。 


外 注意 : 一 般 情 况 下 ， 要 尽量 少 使 用 全 局 变量 。 过 多 地 使 用 全 局 变量 ， 可 能 会 导致 程序 
混乱 。 


下 面 演示 全 局 变量 的 使 用 。 

(1) 在 VBE 中 双击 模块 “变量 作用 域 ”， 在 模块 的 声明 部 分 使 用 以 下 代码 声明 全 局 
Public strAppName As String 

(2) 在 该 模块 中 编写 如 下 过 程 ， 初 始 化 全 局 变量 ， 如 图 4-10 所 示 。 


Sub 初始 化 全 局 变量 () 
strAppName = "Excel 测试 应 用 程序 " 
MsgBox strAppName 

End Sub 


(3) 单 击 主 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 新 增加 一 个 模块 ， 为 模块 设置 名 称 
为 “全 局 变量 ”。 

(4) 在 “全 局 变量 ”模块 中 编写 以 下 过 程 ， 显 示 全 局 变量 的 值 ， 如 图 4-11 所 示 。 

sub 显示 全 局 变量 的 值 () 


MsgBox strAppName 
End Sub 


YEA 基 础 .zls - 全 局 变量 ( 代 玛 ) ”攻占 | 攻 | 


图 4-10 ”声明 全 局 变量 图 4-11 在 其 他 模块 中 访问 全 局 变量 
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(5) 分 别 执行 以 上 两 个 模块 中 的 过 程 ， 可 查看 全 局 变量 在 不 同 模块 中 的 值 。 


4.5.6 ”静态 变量 


将 过 程 级 变量 〈 局 部 变量 ) 声明 为 静态 变量 ， 可 在 过 程 退出 时 仍 将 该 变量 的 值 保留 在 
内 存 中 。 在 下 次 调用 该 过 程 时 ， 又 可 访问 上 次 退出 时 保留 在 内 存 中 的 值 。 

静态 变量 的 声明 方法 是 ， 在 过 程 内 部 用 Static 关键 字 声 明 一 个 或 多 个 变量 ， 其 用 法 和 
Dim 语句 完全 一 样 ， 例 如 : 


Static intCount As Integer 


下 面 用 实例 来 演示 静态 变量 和 局 部 变量 生存 期 的 状态 。 
(1) 在 VBE 环境 ， 单 击 主 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 插入 一 个 模块 。 
(2) 将 模块 名 称 改 为 “静态 变量 ”。 
(3) 在 模块 中 输入 以 下 程序 代码 : 
Sub 静态 变量 测试 () 
Dim il As Integer 
Static i2 As Integer 
i1= il+1 
二 
MsgBox "局 部 变量 的 值 : " & il & vbNewLine & _ 


"静态 变量 的 值 : " & i2，vboKonly 
End Sub 


Sub 测试 () 
For i=1T05 


Call 静态 变量 测试 
Next 
End Sub 


(4) 执行 过 程 “ 测 试 ”， 首 先 将 显示 如 图 4-12 左 图 所 示 的 结果 ， 由 图 可 看 出 局 部 变量 
和 静态 变量 的 值 都 为 1。 单 击 【 确 定 】 按 钮 将 再 次 显示 类 似 的 对 话 框 ， 单 击 多 次 【确定 】 
按钮 后 ， 可 看 到 局 部 变量 的 值 仍然 为 1， 而 静态 变量 的 值 已 变 为 了 5， 如 图 4-12 右 图 所 示 。 


图 4-12 局 部 变量 和 静态 变量 


在 以 上 代码 中 编写 了 两 个 过 程 ， 过 程 “测试 ”中 循环 调用 5 次 “静态 变量 测试 ”过 程 ， 
在 “静态 变量 测试 ”过 程 中 将 变量 il 声明 为 局 部 变量 ， 该 过 程 执行 时 进行 初始 化 ， 执 行 完 
后 就 自动 释放 ， 所 以 ， 无 论 该 过 程 执行 多 少 次 ， 输 出 的 结果 都 为 1。 

而 变量 这 声明 为 静态 变量 ,只 有 第 一 次 进入 过 程 时 才 进 行 初始 化 操作 ， 当 退出 该 过 程 
时 并 不 释放 这 变量 ， 再 次 进入 该 过 程 后 ，i2 变量 为 原来 保存 的 值 ， 所 以 每 执行 一 次 过 程 ， 


spe 


Excel VBA 开发 技术 大 全 


变量 i2 的 值 就 增加 1。 
4.6 运算 符 和 表达 式 


一 个 表达 式 由 操作 数 和 运算 符 共同 组 成 。 表 达 式 中 作为 运算 的 数据 称 为 操作 数 ， 操 作 
数 可 以 是 常数 、 变 量 、 函 数 或 表达 式 ; 运算 符 是 介 于 操作 数 间 的 运算 符号 ， 如 + 、 一 都 是 
典型 的 运算 符 。 在 VBA 中 提供 了 4 种 基本 的 运算 ， 即 算术 运算 、 比 较 运 算 、 逻 辑 运算 和 
连接 运算 。 由 这 些 运 算 符 连接 操作 数 可 组 成 4 种 不 同 的 表达 式 。 


4.6.1 算术 表达 式 


由 算术 运算 符 连接 组 成 的 表达 式 称 为 算术 表达 式 。 表 4-3 列 出 了 VBA 中 的 算术 运算 符 
及 其 优先 级 。 
表 4-3 算术 运算 符 及 其 优先 级 


算术 运算 符 例 子 
2^2=4，3^2-9 
— -6, -10 
*、/ 2*4=8，7/2=3.5 
\ 7T2=3，83=2 
MOD 7T2=1, 83=2 
+、 一 2+4=6，8-2=6 


在 表达 式 中 ， 使 用 运算 符 对 操作 数 进 行 计算 时 都 有 一 定 的 顺序 〈 如 ， 在 算术 运算 中 先 
要 算 乘 除 后 算 加 减 ) 。 优 先 级 和 结合 性 是 运算 符 两 个 重要 的 特性 ， 结 合 性 又 称 为 计算 顺序 ， 


它 决 定 组 成 表达 式 的 各 个 操作 数 是 否 参与 计算 以 及 什么 时 候 计算 。 例 如 
3+2*5 


以 上 表达 式 中 ， 将 先 计算 2*5， 将 得 到 的 结果 再 与 3 相 加 ， 得 到 最 终结 果 为 13。 
在 表达 式 中 ， 当 有 两 个 优先 级 相同 的 运算 符 ， 则 从 左 向 右 进行 运算 。 如 果 要 改变 表达 
式 的 运算 优先 级 ， 可 以 使 用 括号 。 例 如 : 


(3+2) *5 
以 上 表达 式 将 先 计 算 3+2 的 和 ， 再 与 5 相 乘 ， 得 到 最 终结 果 为 25。 
4.6.2 ”比较 表达 式 
比较 运算 又 称 为 关系 运算 ， 用 来 比较 两 个 操作 数 ， 其 运算 结果 为 逻辑 值 ， 只 能 为 True 


或 False 两 种 可 能 。 表 4-4 列 出 了 比较 运算 符 的 功能 ， 比 较 运 算 符 的 优先 级 相同 。 
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表 4-4 ”比较 运算 符 的 功能 


比较 运算 符 作 用 例 子 
= 等 于 x=y 
= 不 等 于 X<>y 
- 小 于 x<y 
> 夫 于 X>y 


<= 小 于 或 等 于 X<=y 
>= 大 于 或 等 于 x>y 
例如 ， 运 行 以 下 代码 ， 将 在 【立即 窗口 】 显 示 如 图 4-13 所 示 的 结果 。 


Debug.Print "R" > "B" 

Dopug: Print WAN » mn 

Debug.Print 2 <= 5 

在 使 用 比较 运算 符 时 ， 对 于 数值 型 的 数据 ， 其 大 小 比较 很 好 Pc] 
理解 。 而 对 于 字符 串 的 比较 ， 在 VBA 中 有 特殊 的 规定 。 

比较 字符 串 时 ， 按 字母 的 ASCII 码 进行 比较 。 例 如 ， 字 母 
A 的 ASCII 码 为 65， 而 字母 “B” 的 ASCII 码 为 66， 因 此 以 下 
语句 : 


Debug.Print "R" > "B" 


图 4-13 立即 窗口 


输出 的 结果 为 False， 即 字母 A 小 于 字母 B。 

当 比较 不 同类 型 的 数据 时 ， 有 可 能 产生 错误 ， 例 如 : 

Debug.Print 2 > "A" 

当 VBA 执行 以 上 语句 时 ， 因 数值 2 和 字母 A 为 不 同类 型 ， 所 以 二 者 进行 比较 时 将 弹 
出 如 图 4-14 所 示 的 错误 提示 信息 。 
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帮助 0D 


4-14 ”错误 提示 


4.6.3 ”逻辑 表达 式 


逻辑 运算 是 指 表达 式 间 的 逻辑 关系 ， 其 运算 结果 为 逻辑 值 ， 只 能 为 True 和 False 两 种 
可 能 。 表 4-5 列 出 了 逻辑 运算 操作 符 及 其 优先 级 。 


7T9 。 
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表 4-5 ”逻辑 运算 操作 符 及 其 优先 级 


则 各 种 逻辑 运算 符 的 运算 结果 如 表 4-6 的 真 值 表 所 示 。 
表 4-6 ”逻辑 运算 真 值 表 


逻辑 运算 符 例 子 
Not NotX 
And 逻辑 与 运算 XAndY 
Or 逻辑 或 运算 OY 
Xor 逻辑 异 或 运算 XXorY 
Eqv 逻辑 相等 运算 XEqvY 
Imp 逻辑 蕴涵 运算 XImpY 


如 果 以 A 和 B 代表 任意 两 个 操作 数 , 而 以 T 代表 风 辑 真 Tme, 以 上 代表 风 辑 假 False， 


操作 数 A 
操作 数 B 


Not A 


4.6. 


AAndB 
AOrB 

AXorB 
AEqvB 
AImpB 


4 ”连接 运算 表达 式 


字符 串 连接 运算 的 作用 是 用 来 连接 两 个 以 上 的 字符 串 ， 使 其 成 为 一 个 单 
如 :strl="Excel "+"VBA"( 字 符 串 Excel 后 面 有 一 个 空格 ), 其 结果 相当 于 strl="Excel VBA"。 
连接 运算 符 只 有 两 个 ， 即 “+” 和 “&”。 其 区 别 为 : 
口 “+” 运 算 符 连接 两 个 操作 数 都 是 字符 串 的 情况 。 
口 “&” 运 算 符 是 将 两 个 操作 数 强 制 为 字符 串 连 接 起 来 。 


连接 运算 符 在 MsgBox 中 使 用 得 很 多 ， 例 如 : 


¥ 符 串 。 例 


- 祁 


MsgBox "局 部 变量 的 值 : " & il & vbNewLine & "静态 变量 的 值 : " & i2, vboKonly 


以 上 代码 将 字符 串 和 变量 让、i2 的 值 连接 起 来 ， 
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显示 到 对 话 框 中 。 
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与 其 他 程序 设计 语言 相同 , VBA 中 的 程序 代码 也 可 按 一 定 的 顺序 执行 。 在 程序 中 有 时 
需要 选择 某 一 部 分 代码 执行 ， 有 时 需要 重复 执行 某 一 段 代 码 。VBA 中 提供 了 完善 的 程序 结 
构 控制 代码 来 完成 这 些 功能 。 


5.1 VBA 程序 结构 概述 


在 VBA 的 程序 代码 中 ， 语 句 是 构成 程序 的 基本 成 分 ， 是 程序 的 主体 部 分 。 每 个 语句 
以 Enter 键 结束 。 
程序 控制 结构 代码 也 是 一 些 特殊 的 语句 ， 这 些 语句 用 来 控制 程序 语句 的 执行 顺序 。 


5.1.1 认识 语句 


默认 情况 下 ， 在 VBE 中 输入 语句 后 ，VBE 将 自动 进行 语法 检查 ， 如 果 发 现 语法 错误 ， 
将 打开 一 个 提示 对 话 框 。 


1. 自动 格式 化 


输入 VBA 语句 后 ，VBE 将 按 一 定 的 规则 进行 简单 的 格式 化 处 理 。 例 如 ， 将 关键 字 的 
首 字母 大 写 ， 在 运算 符 前 后 加 入 空格 ， 删 除 各 部 分 多 余 的 空格 等 。 

开发 人 员 在 输入 VBA 关键 字 时 ， 可 以 不 区 分 大 小 写 。 例 如 输入 MsgBox 时 ， 无 论 输 
入 的 是 Msgbox、msgbox， 还 是 MSGBOX， 当 输入 完 该 函数 的 参数 并 按 Enter 键 后 ，VBE 
自动 将 其 变 为 MsgBox。 

为 了 提高 程序 的 可 读 性 ,在 VBA 代码 中 应 加 上 适当 的 空格 。 当 按 Enter 键 完成 语句 的 
输入 后 ， 各 关键 字 之 间 无 论 插入 多 少 空格 ，VBE 都 将 其 自动 调整 为 一 个 空格 。 例 如 ， 输 入 
以 下 代码 (在 关键 字 “worksheets("sheet1")” 与 “range("al")” 之 间 插 入 了 多 个 空格 , 在 “=” 
与 “0” 之 间 无 空格 ) : 


worksheets("sheet1"). range("al")=0 
输入 完 语句 并 按 Enter 键 后 ，VBE 将 自动 格式 化 以 上 语句 ， 得 到 如 下 代码 : 
Worksheets("sheet1") .Range("al") = 0 


在 “=” 前 后 各 插入 一 个 空格 ， 其 他 关键 字 之 间 的 空格 被 自动 删除 。 
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全 注意 ; 不 能 在 关键 字 的 中 间 加 入 空格 。 


2. 复合 语句 与 语句 断 行 

一 般 情况 下 ，VBA 程序 中 每 个 语句 占 一 行 。 但 在 VBA 中 ， 也 可 以 把 几 个 语句 放 在 一 
行 中 构成 复合 语句 。 各 语句 之 间 用 冒号 (: ) 分 隔 ， 例 如 : 

Dim strName Rs String: strName = " 伍 远 高 " 

与 以 下 两 行 语句 功能 相同 : 

Dim strName As String 

strName = " 伍 远 高 " 

在 VBE 的 代码 窗口 中 ， 每 行 VBA 代码 可 包含 1023 个 字符 。 但 是 ， 为 了 使 程序 便于 
阅读 ， 建 议 读者 将 一 条 长 的 语句 打 断 为 两 行 或 多 行 。 

VBA 中 使 用 空格 后 接着 一 个 下 划 线 一 一 续 行 符 ， 可 将 一 行 代 码 延 伸 成 两 行 以 上 。 

例如 ， 以 下 语句 : 

MsgBox "局 部 变量 的 值 : " & il & vbNewLine & "静态 变量 的 值 ; " & i2, vbOoKonly 

可 改写 为 以 下 格式 : 


MsgBox "局 部 变量 的 值 : " & il & vbNewLine _ 
& "静态 变量 的 值 ， " & i2，vboKonly 


通过 用 续 行 符 〈(_)》 可 创建 长 的 逻辑 行 。 一 个 逻辑 行 ， 最 多 可 包含 24 个 连续 的 续 行 字 
符 ， 也 就 是 最 多 可 以 包含 25 个 物理 行 。 这样， 逻辑 行 的 字符 总 量 可 达 10230 字符 。 如 果 超 
过 了 ， 必 须 将 该 行 分 为 若干 语句 ， 或 指定 一 些 表 达 式 为 中 间 变 量 。 


5.1.2 ”结构 化 程序 设计 的 控制 结构 


结构 化 程序 的 概念 首先 是 从 以 往 编程 过 程 中 无 限制 地 使 用 转移 语句 而 提出 的 。 使 用 
VBA 的 GoTo 转移 语句 可 以 使 程序 的 控制 流程 强制 性 地 转向 程序 的 任 一 处 。 如 果 一 个 程序 
中 多 处 出 现 这 种 转移 情况 ， 将 会 导致 程序 流程 无 序 可 寻 ， 程 序 结构 杂乱 无 章 ， 这 样 的 程序 
是 令 人 难以 理解 和 接受 的 ， 并 且 容 易 出 错 。 尤 其 是 在 实际 软件 产品 的 开发 中 ， 更 多 的 是 追 
求 软件 的 可 读 性 和 可 修改 性 ， 像 这 种 结构 和 风格 的 程序 是 不 允许 出 现 的 。 

为 此 提出 了 程序 的 三 种 基本 结构 ， 即 程序 的 顺序 、 选 择 和 循环 三 种 控制 流程 ， 这 就 是 
结构 化 程序 设计 方法 强调 使 用 的 三 种 基本 结构 。 任 何 简 单 或 复杂 的 算法 都 可 以 由 这 三 种 基 
本 结构 组 合 而 成 。 所 以 ， 这 三 种 结构 就 被 称 为 程序 设计 的 三 种 基本 结构 。 也 是 结构 化 程序 
设计 必须 采用 的 结构 。 

口 顺序 结构 : 就 是 按照 语句 的 书写 顺序 从 上 到 下 、 逐 条 语句 地 执行 。 执 行 时 ， 排 在 
前 面 的 代码 先 执行 ， 排 在 后 面 的 代码 后 执行 ， 执 行 过 程 中 没有 任何 分 支 。 这 是 最 
普遍 的 结构 形式 ， 也 是 后 面 两 种 结构 的 基础 。 

口 选择 结构 : 又 叫 分 支 结构 。 是 根据 “条 件 ” 来 决定 选择 执行 哪 一 分 支 中 的 语句 。 
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包括 二 分 支 和 多 分 支 ， 分 支 的 嵌 套 。 
口 循环 结构 : 循环 结构 的 程序 设计 比分 支 结构 复杂 。 循 环 结构 的 思想 是 利用 计算 机 
高 速 处 理 运 算 的 特性 ， 重 复 执行 某 一 部 分 代码 ， 以 完成 大 量 有 规则 的 重复 性 运算 。 
结构 化 程序 中 的 任意 基本 结构 都 具有 唯一 入 口 和 唯一 出 口 ， 并 且 程 序 不 会 出 现 死 循 
环 。 在 程序 的 静态 形式 与 动态 执行 流程 之 间 具 有 良好 的 对 应 关系 。 


5.2 常用 语句 


顺序 结构 就 是 从 头 到 尾 依次 按 顺序 逐条 执行 语句 ， 不 需要 控制 语句 。 本 节 介绍 VBA 
程序 设计 中 常用 的 语句 ， 如 赋值 、 输 入 、 输 出 语句 等 的 用 法 。 


5.2.1 ”赋值 语句 


使 用 赋值 语句 可 以 更 改变 量 的 值 。 赋 值 ， 顾 名 思 义 ， 就 是 把 一 个 值 赋予 某 个 量 。 可 以 
这 样 理解 : 变量 相当 于 装 东西 的 容器 ， 赋 值 的 过 程 就 是 把 东西 放 进 容 器 的 过 程 。 赋 值 语句 
格式 如 下 : 

[Let] 变量 名 = 表达 式 

赋值 语句 首先 对 表达 式 进行 运算 ， 并 将 运算 结果 赋 给 左 侧 的 变量 或 属性 。 

在 VBA 中 可 省 略 赋值 关键 字 Let， 变 量 名 必须 遵循 标识 符 的 命名 约定 。 

只 有 当 表 达 式 是 一 种 与 变量 兼容 的 数据 类 型 时 ， 该 表达 式 的 值 才 可 以 赋 给 变量 或 属 
性 。 不 能 将 字符 串 表 达 式 的 值 赋 给 数值 变量 ， 也 不 能 将 数值 表达 式 的 值 赋 给 字符 串 变量 。 
如 果 这 样 做， 就 会 在 编译 时 出 现 错误 。 

可 以 用 字符 串 或 数值 表达 式 赋值 给 Variant 变量 ， 但 反 过 来 不 一 定 正确 。 任 何 除 Null 
之 外 的 Variant 都 可 以 赋 给 字符 串 变 量 ， 但 只 有 当 Variant 的 值 可 以 解释 为 某 个 数 时 才能 赋 
给 数值 变量 。 可 以 使 用 INumeric 函数 来 确认 Variant 是 否 可 以 转换 为 一 个 数 。 

使 用 赋值 语句 时 需 注意 以 下 两 点 : 

口 赋值 号 (=) 和 比较 运算 符 中 的 〈=) 的 含义 是 不 同 的 。 赋 值 号 是 将 表达 的 计算 结 

果 保 存 到 左边 的 变量 中 。 所 以 ， 赋 值 号 左边 必须 为 一 个 变量 ， 而 不 能 是 表达 式 ， 
例如 : 

1+j=10 

VBA 将 以 上 语句 解释 为 比较 表达 式 ， 而 不 是 赋值 语句 。 

口 在 进行 赋值 操作 时 ， 正 常情 况 下 表达 式 结果 的 类 型 与 变量 数据 类 型 是 相同 的 ， 不 

需要 进行 任何 类 型 转换 。 如 果 类 型 不 一 致 ， 一 般 将 表达 式 结果 转换 为 变量 的 类 型 。 

有 关 赋 值 时 进行 类 型 转换 的 演示 代码 如 下 : 

Sub 赋值 数据 类 型 转换 () 


Dim i As Integer 
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Dim s Rs String 
Dim b Rs Boolean 
Dim v 


"将 单 精度 数据 赋 给 整 型 变量 

i = 3.14 

Debug .Print " 整 型 变量 i="; i 
' 将 单 精度 数据 赋 给 字符 串 变量 

8 = 3.14 

Debug .Print "字符 串 变量 s="; s 


' 将 单 精度 数据 赋 给 逻辑 变量 

b= 3.14 

Debug .Print "逻辑 变量 b="; b 

' 将 单 精度 数据 赋 给 Variant 变量 

V= 3.14 

Debug .Print "可 变 变量 v="; v 
End Sub 


执行 以 上 过 程 , 在 【立即 窗口 】 列表 框 中 显示 的 结果 如 图 5-1 
所 示 。 

由 图 5-1 的 执行 结果 可 知道 ， 将 单 精度 类 型 的 数据 赋值 给 束 
型 变量 时 ， 将 只 取 值 的 浆 数 部 分 ， 将 单 精度 类 型 数据 赋值 给 字符 | 本 
串 变量 时 ， 将 表达 式 中 的 数据 值 转换 为 字符 串 型 将 数值 型 数据 
赋值 给 逻辑 变量 时 ， 非 0 值 将 转换 为 True，0 将 转换 为 False。 图 5 属 什 类 型 转折 


5.2.2 ”注释 语句 


在 程序 中 使 用 注释 语句 ， 可 用 文字 描述 程序 的 算法 、 函 数 中 参数 的 意义 、 函 数 返 回 值 
的 意义 等 ， 方 便 多 个 开发 人 员 阅 读 代 码 ， 提 高 程序 的 可 读 性 ， 方 便 代码 的 维护 。 

在 VBA 中 , 注释 以 撤 号 (') 开头 , 或 者 以 Rem 关键 字 开 头 ， 再 在 其 后 写 上 注释 内 容 。 
Rem 语句 的 格式 如 下 : 


Rem 注释 文本 
也 可 以 使 用 如 下 语法 : 
' 注释 文本 


在 Rem 关键 字 与 “注释 文本 ”之 间 必 须要 有 一 个 以 上 的 空格 。 

使 用 注释 语句 时 需要 注意 以 下 几 点 : 

口 注释 语句 是 非 执行 语句 ， 仅 对 程序 的 有 关内 容 起 注释 作用 。 

口 注释 语句 可 以 使 用 任何 字符 。 

口 注释 语句 不 能 放 在 续 行 符 后 面 。 

口 若 使 用 撤 号 来 添加 注释 文本 ， 则 在 其 他 语句 行 后 面 使 用 时 不 必 加 冒号 。 

在 VBE 中 ，【 编 辑 】 工 具 栏 提供 了 两 个 按钮 【设置 注释 块 】 和 【解除 注释 块 】 
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使 用 这 两 个 命令 按钮 可 将 选中 的 代码 快速 设置 为 注释 , 或 取消 其 前 面 的 注释 符号 ( 撤 号 〉。 
如 图 5-2 所 示 。 


加 尽 包 了 心 | 这 这 | 邓 


ls 


个 公公 治 电 


设置 注释 块 


5-2 ”设置 注释 块 


全 技巧 :在 调试 程序 时 ， 可 在 不 希望 执行 的 代码 前 面 添加 注释 符号 。 


5.2.3 ”使 用 InputBox 输入 对 话 框 


在 VBA 中 ， 开 发 人 员 可 调用 以 下 两 种 类 型 的 InputBox 输入 对 话 框 : 

口 一 种 是 VB 中 常用 的 InputBox 函数 ， 在 该 输入 对 话 框 中 显示 提示 信息 ， 等 待 用 户 
输入 正文 或 按 下 【确定 】 或 【取消 】 按 钮 ， 并 返回 包含 文本 框 的 内 容 ， 该 对 话 框 
返回 值 类 型 为 字符 串 ， 如 图 5-3 所 示 。 

口 一 种 是 使 用 Application 对 象 的 InputBox 方法 显示 一 个 输入 对 话 框 ， 在 该 对 话 框 中 
设置 输入 值 的 类 型 ， 如 图 5-4 所 示 。 


InputWox 函 雪 标 是 x 


更 示 信 息 InputDox 方 法 标题 


图 5-3 ”InputBox 函数 对 话 框 图 5-4 InputBox 方法 对 话 框 


1. 显示 InputBox 函 数 对 话 框 


使 用 VBA 提供 的 InputBox 函数 ， 可 产生 一 个 输入 对 话 框 。 该 函数 将 打开 一 个 对 话 框 
作为 输入 数据 的 界面 ， 等 待 用 户 输入 数据 ， 并 返回 所 输入 的 内 容 。 其 语法 格式 如 下 : 
InputBox (Prompt [, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 


该 函数 有 7 个 参数 ， 其 意义 分 别 如 下 所 述 。 

口 Prompt: 为 对 话 框 消息 出 现 的 字符 串 表 达 式 。 其 最 大 长 度 为 1024 个 字符 。 如 果 需 
要 在 对 话 框 中 显示 多 行 数据 , 则 可 在 各 行 之 间 用 回 车 换行 符 来 分 隔 , 一 般 使 用 VBA 
的 常数 vbCrLf 代表 回 车 换行 符 。 

口 Title: 为 对 话 框 标题 栏 中 的 字符 串 。 如 果 省 略 该 参数 ， 则 把 应 用 程序 名 放 入 标题 
栏 中 。 

口 Default: 为 显示 在 文本 框 中 的 字符 串 。 如 果 省 略 该 参数 ， 则 文本 框 为 空 。 

口 Xpos，Ypos: 这 两 个 参数 必须 成 对 出 现 ， 指 定 对 话 框 的 左上 角 坐 标 位 置 。 如 果 省 
略 该 参数 ， 则 对 话 框 会 在 水 平方 向 居中 。 
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口 Helpfile: 设置 对 话 框 的 帮助 文件 ， 该 参数 可 省 略 。 
口 Context: 设置 对 话 框 的 帮助 主题 编号 ， 该 参数 可 省 略 。 
例如 ， 使 用 以 下 代码 可 接收 用 户 输入 的 数据 。 


Sub 使 用 InputBox 函数 () 
Dim sPrompt As String 
Dim sTitle As String 
Dim sDefault As String 
Dim sReturn As String 
sPrompt = "请 输入 用 户 姓名 : " 
sTitle = "输入 姓名 " 
sDefault = " 伍 远 高 " 
sReturn = InputBox(sPrompt, sTitle, sDefault) 
Debug.Print sReturn 

End sub 


执行 上 面 的 代码 ， 将 显示 如 图 5-5 所 示 的 对 话 框 。 

在 文本 框 中 输入 用 户 姓 名 ， 单 击 “ 确 定 ” 按 钮 ， 程 
序 将 把 用 户 输入 的 内 容 输出 到 【立即 窗口 】 的 列表 框 中 。 

在 使 用 InputBox 函数 时 ， 应 注意 以 下 几 点 : 

口 在 默认 情况 下 , InputBox 函数 的 返回 值 是 一 个 字 


符 串 类 型 ,而 不 是 变 体 类 型 。 如 果 需 要 使 用 该 函 3 提琴 要 
数 输入 数值 ， 则 需要 使 用 Val 函数 〈 或 其 他 的 转换 函数 ) 将 返回 值 转换 为 相应 类 
型 的 数值 。 


口 在 对 话 框 中 ， 如 果 用 户 单 击 【 取 消 】 按 钮 (或 按 Ese 键 )， 则 表示 不 使 用 当前 输 
入 的 值 ， 函 数 将 返回 一 个 空 字符 串 。 根 据 这 一 特性 ， 可 以 判断 用 户 是 否 输入 了 数 
据 到 对 话 框 中 。 

口 执行 一 次 InputBox 函数 ， 只 能 返回 一 个 值 ， 如 果 需 要 输入 多 个 值 ， 则 必须 多 次 调 
用 该 函数 。 


2. 显示 InputBox 方 法 对 话 框 


使 用 Application 对 象 的 InputBox 方法 ， 也 可 显示 一 个 接收 用 户 输入 的 对 话 框 。 此 
对 话 框 有 一 个 【确定 】 按 钮 和 一 个 【取消 】 按 钮 。 如 果 单 击 【 确 定 】 按 钮 ， 则 InputBox 
方法 将 返回 对 话 框 中 输入 的 值 。 如 果 单 击 【取消 】 按 钮 ， 则 InputBox 方法 返回 逻辑 值 
False。 


与 InputBox 函数 不 同 的 是 ， 该 对 话 框 可 指定 输入 数据 的 类 型 ， 具 体 的 语法 格式 如 下 : 


Application.InputBox(Prompt, Title, Default, Left, Top, HelpFile, 
HelpContextID, Type) 


从 以 上 语法 格式 中 可 以 看 出 ,大 部 分 参数 与 InputBox 函数 相同 ， 只 是 在 最 后 多 了 一 个 
Type 参数 ， 用 来 指定 输入 数据 的 类 型 。Type 参数 可 设置 为 以 下 值 之 一 或 其 中 几 个 值 的 和 。 
例如 ， 对 于 一 个 可 接受 文本 和 数字 的 输入 框 ， 将 Type 设置 为 1+2。 

口 0: 公式 ; 
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1: 数字 ; 
2: 文本 (字符 串 ); 
4: 逻辑 值 (True 或 False) ; 
8: 单元 格 引 用 ， 作 为 一 个 Range 对 象 ; 
16: 错误 值 ， 如 #N/A:; 
64: 数值 数组 。 
例如 ， 下 面 的 代码 提示 用 户 在 工作 表 Sheetl 中 选取 一 个 单元 格 。 
Sub 使 用 InputBox 方法 () 
Worksheets ("Sheet1") .Activate 
Set myCell = Application.InputBox( _ 
prompt : =" 选 择 一 个 单元 格 "，Type :=8) 
End Sub 
运行 以 上 代码 ， 将 显示 如 图 5-6 所 示 对 话 框 ， 用 鼠标 单 击 一 个 单元 格 ， 该 单元 格 的 引 
用 地 址 将 自动 填 入 对 话 框 的 输入 区 域 中 。 


DOOOOO 


加 屋 序 控制 结构 xs [天 容 大 式 ] pw 


Ta 商品 二 员工 过 殿 加 商 :将 疡 ] sheetl 。 


图 5-6 使 用 InputBox 方法 显示 对 话 框 


5.2.4 使 用 MsgBox 函数 显示 信息 


使 用 MsgBox 函数 可 打开 一 个 对 话 框 ， 在 对 话 框 中 显示 消息 ， 等 待 用 户 单 击 按钮 ， 并 
返回 一 个 整 型 值 ， 告 诉 用 户 单 击 哪 一 个 按钮 。 
MsgBox 函数 的 语法 格式 如 下 : 


Value=MsgBox (Prompt [,buttons] [,title] [ ,helpfile,context]) 


该 函数 有 5 个 参数 ， 除 第 1 个 参数 外 ， 其 余 参 数 都 可 省 略 。 各 参数 的 意义 与 Inputbox 
函数 各 参数 的 意义 相同 。 不 同 的 是 多 了 一 个 buttons 参数 , 用 来 指定 在 对 话 框 中 显示 按钮 的 
数目 及 形式 、 使 用 提示 图 标 样式 、 默 认 按钮 以 及 消息 框 的 强制 响应 等 。 其 常数 值 如 表 5-1 
所 示 。 


vbOkOnly 只 显示 “确定 ” (OK) 按钮 
VvbOkCancel 显示 “确定 ” (OK) 及 “取消 ”Cancel) 按钮 
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续 表 
常 量 说 明 
Er ET 站 加 

WA 0 异常 终止 ” (Abort) 、“ 重 试 ” (Retry) 及 “忽略 ” (Ignore) 
vbYesNoCancel 显示 “是 ” (Yes) 、“ 否 ” (No) 及 “取消 ” (Cancel) 按钮 
vbYesNo 显示 “是 ” (Yes) 及 “ 否 ” (No) 按钮 
vbRetryCancel 显示 “ 重 试 ” (Retry) 及 “取消 ” (Cancel) 按钮 
vbCritical 显示 Critical Message 图 标 
vbQuestion 显示 Waming Query 图 标 Sd 
VvbExclamation 显示 Warning Message 图 标 
vbInformation 显示 Information Message 图 标 呈 
vbDefaultButtonl 以 第 1 个 按钮 为 默认 按钮 
vbDefaultButton2 以 第 2 个 按钮 为 默认 按钮 
vbDefaultButton3 以 第 3 个 按钮 为 默认 按钮 
vbDefaultButton4 以 第 4 个 按钮 为 默认 按钮 


vbSystemModal 进入 该 消息 框 ， 所 有 应 用 程序 暂停 


表 5-1 中 的 数值 (或 常数 ) 分 为 4 类， 其 作用 分 别 如 下 所 述 。 
口 第 一 组 值 (0 一 5) : 用 来 决定 对 话 框 中 按钮 的 类 型 与 数量 。 按 钮 共有 7 种 ， 即 确 
认 、 取 消 、 终 止 、 重 试 、 忽 略 、 是 、 否 。 每 个 数值 表示 一 种 组 合 方式 。 
口 第 二 组 值 (16，32，48，64) : 用 来 决定 对 话 框 中 显示 的 图 标 。 共 有 4 种 ， 即 暂 
停 、 疑 问 、 警 告 、 忽 略 。 
口 第 三 组 值 (0，256，512，768) : 设置 对 话 框 的 默认 活动 按钮 。 活 动 按钮 中 文字 
的 周转 有 虚线 ， 按 Enter 键 可 执行 该 按钮 的 单 击 事件 代码 。 
口 第 四 组 值 (0，4096) : 决定 消息 框 的 强制 响应 性 。 
buttons 参数 可 由 上 面 4 组 数值 组 成 ， 其 组 成 原则 是 : 从 每 一 类 中 选择 一 个 值 ， 把 这 几 
个 值 浴 加 在 一 起 就 是 buttons 参数 的 值 (大 部 分 时 间 里 都 只 使 用 前 三 组 数值 的 组 合 ) ， 不 同 
的 组 合 可 得 到 不 同 的 结果 。 
例如 : 设置 buttons 参数 为 16， 得 到 的 对 话 框 如 图 5-7 所 示 。 设 置 buttons 参数 为 50， 
得 到 的 对 话 框 如 图 5-8 所 示 。 


图 5-7 MsgBox 效果 一 图 5-8 MsgBox 效果 二 


MsgBox 函数 除了 显示 提示 信息 之 外 ， 还 可 返回 一 个 整数 值 ， 这 个 整数 与 所 选择 的 
按钮 有 关 。MsgBox 函数 显示 的 对 话 框 有 7 种 按钮 ， 返 回 值 与 这 7 种 按钮 相对 应 ， 分 别 为 
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1 一 7 之 间 的 整数 ， 如 表 5-2 所 示 。 
表 5-2 MsgBox 函数 的 返回 值 


常数 描 述 
vbOK 单 击 【确定 】 按 钮 
vbCancel 单 击 【 取 消 】 按 钮 
vbAbort 单 击 【 终 止 】 按 钮 
vbRetry 单 击 【 重 试 】 按 钮 
vbIgnore 单 击 【忽略 】 按 钮 
vbYes 单 击 【 是 】 按 钮 
vbNo 单 击 【 和 否 】 按 钮 


在 VBE 环境 中 输入 MsgBox 函数 时 , 将 自动 列 出 常数 值 ,选择 了 一 个 buttons 常数 后 ， 
输入 加 号 将 再 次 显示 buttons 的 常数 列表 ， 如 图 5-9 所 示 。 


图 5-9 MsgBox 的 图 标 常 数列 表 


例如 ， 使 用 下 面 的 代码 获取 用 户 的 选择 ， 再 根据 用 户 的 选择 决定 是 否 退 出 系统 。 
Sub 使 用 msgbox 函数 退出 系统 () 


Dim intReturn Rs Integer 
intReturn = MsgBox(" 真 的 退出 系统 码 ? "，vbYesNo + vbouestion，" 提 示 ") 
If intReturn = vbYes Then Application.Quit 

End sub 


执行 以 上 代码 ， 将 显示 如 图 5-10 所 示 对 话 框 。 单 击 【 是 】 按 钮 ， 将 执行 Quit 方法 退 
出 Excel。 单 击 【 否 】 按 钮 ， 将 返回 应 用 程序 。 
全 提示 : MsgBox 函数 也 可 写成 语句 的 形式 ， 这 样 ， 程 序 就 不 知 
道 用 户 单 击 了 对 话 框 中 的 哪个 按钮 。 这 种 形式 常用 来 显 
示 提示 信息 。 


图 5-10 提示 对 话 框 
5.3 分 支 程序 
分 支 程 序 就 是 根据 不 同 的 条 件 进 行 判 断 ， 选 择 要 执行 的 代码 段 。 例 如 ， 在 工资 管理 系 


统 中 调整 员工 工资 时 , 若 职 称 为 工程 师 则 上 调 100, 工龄 大 于 20 年 的 上 调 50。 这 种 情况 就 
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是 分 支 结构 ， 当 满足 条 件 时 执行 一 部 分 代码 ， 不 满足 条 件 时 执行 另 一 部 分 代码 。 
VBA 中 的 条 件 判 断 语句 有 下 语句 和 Select Case 语句 两 种 。 


5.3.1 单 分 支 语句 一 一 lf...Then 


最 常用 的 分 支 语 句 就 是 下 .Then 语句 , 用 于..Then 结构 可 有 条 件 地 执行 一 个 或 多 个 语 
句 。 该 语句 有 以 下 两 种 语法 形式 : 

口 单行 结构 条 件 语句 ; 

口 块 结构 条 件 语 句 。 

1. 单行 结构 条 件 语句 

单行 结构 条 件 语句 是 最 基本 的 条 件 语句 ， 其 语法 为 : 

If 逻辑 表达 式 Then 语句 

该 语句 的 功能 是 : 若 届 辑 表达 式 的 值 是 True， 则 执行 Then 后 的 语句 ， 执 行 完 成 后 执 
行 开 语句 的 下 一 句 ， 若 逻 辑 表 达 式 的 值 是 False， 则 不 执行 Then 后 的 语句 ， 而 执行 下 语句 
的 下 一 条 语句 。 其 流程 图 如 图 5-11 所 示 。 


| 


图 5-11 下 .Then 语句 流程 图 


全 技巧 ，“ 远 辑 表达 式 ”也 可 以 是 任何 计算 数值 的 表达 式 ，VBA 将 这 个 值 解释 为 True 或 
False: 为 0 的 数值 为 False， 而 任何 非 零 数值 都 被 看 作 True。 

例如 ， 以 下 代码 用 来 调整 职称 为 工程 师 的 员工 的 工资 。 

IE 职称 = "工程 师 " Then 工资 = 工资 + 100 

执行 以 上 语句 ， 如 果 职称 为 工程 师 ， 则 工资 增加 100， 和 否则 不 进行 任何 操作 。 

2. 块 结构 条 件 语句 

单行 结构 条 件 语 句 中 ， 满 足 条 件 时 只 执行 一 条 语句 ， 若 有 多 行 语句 需要 执行 ， 则 需 使 
用 块 结构 条 件 语句 。 其 语法 如 下 : 

If 逻辑 表达 式 Then 


语句 序列 1 
语句 序列 2 
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End If 


块 结构 条 件 语句 的 作用 与 单行 结构 条 件 语句 的 功能 相同 。 要 注意 的 是 下 ..Then 的 单行 
格式 不 用 End 下 语句 ， 而 块 语句 则 必须 在 条 件 语句 的 结束 处 有 End If。 
例如 ， 以 下 代码 用 来 调整 职称 为 工程 师 的 员工 的 工资 、 岗 位 津贴 的 值 。 
IE 职称 = "工程 师 " Then 
工资 = 工资 + 100 


岗位 津贴 = 岗位 津贴 + 10 
End If 


5.3:2 三 分 支 语 句 


lf ... Then ... Else 


If...Then 语句 中 ， 当 届 辑 表达 式 的 值 为 False 时 ， 不 执行 任何 语句 ， 若 要 求 在 逻辑 
表达 式 的 值 为 False 时 需要 执行 男 一 段 代 码 ， 可 使 用 If ... Then ... Else 语句 ， 其 语法 格式 
如 下 : 

If 逻辑 表达 式 Then 

语句 序列 1 

Else 

语句 序列 2 

End If 

在 以 上 语句 结构 中 ，VBA 首先 判断 逻辑 表达 式 的 值 ， 若 其 值 为 True， 则 执行 语句 序 
列 1， 执 行 完毕 后 再 执行 End If 后 的 语句 。 若 逻辑 表达 式 的 值 为 False， 则 执行 语句 序列 2。 
其 流程 图 如 图 5-12 所 示 。 


_ 假 
逻辑 表达 式 


真 1 
语句 序列 1 语句 序列 2 


上 


图 5-12 ” 下..Then...Else 语句 流程 图 


例如 ， 以 下 代码 根据 工作 表 员 工 中 的 EE 列 的 值 ， 在 Q 列 中 填 入 对 应 的 性 别 。 


Sub 填写 性 别 () 
Worksheets ("员工 ") .Activate 
With Worksheets ("员工 ") 
TE ,Calla(3r Sh re "En hen 
:Cellat(t3, 17) = "Kr 
Else 
ee ee 明 
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End If 
End With 
End Sub 


执行 以 上 代码 ， 员 工 工作 表 中 的 Q 列 将 自动 填 入 男 或 女 ， 如 图 5-13 所 示 。 


图 5-13 使 用 下 ... Then .… Else 语句 


5.3.3 ”多 分 支 语句 


lf ... Then ... Elself 


在 很 多 程序 中 ， 可 能 需要 判断 多 个 条 件 ， 再 根据 不 同 的 条 件 执行 不 同 的 语句 。 这 时 可 
使 用 If..….Then..….Elself 语句 来 选择 多 个 条 件 语 句 中 的 一 部 分 进行 执行 。 其 语法 格式 如 下 : 
If 逻辑 表达 式 1 Then 
语句 序列 1 
ElseIf 逻辑 表达 式 2 Then 
语句 序列 2. 


Else 
语句 序列 n 
End If 
在 以 上 结构 中 ,VBA 首先 判断 逻辑 表达 式 1 的 值 。 如果 为 False， 再 判断 逻辑 表达 式 2 
的 值 ， 依 此 类 推 ， 当 找到 一 个 为 True 的 条 件 ， 就 会 执行 相应 的 语句 块 ， 执 行 完 指定 的 语句 
块 后 ， 再 执行 End 下 后 面 的 代码 。 其 流程 图 如 图 5-14 所 示 。 


后 香 表达 式 记 > 外 


语句 序列 1 


1 
[语句 序列 2 语句 序列 n | 


图 5-14 下 ... Then ..…. Elself 语 句 
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例如 ， 以 下 代码 演示 于..Then...ElseIf 语句 的 用 法 : 
Sub IE 多 分 支 程序 () 


Dim strl Rs String “保存 输入 值 
Dim sPrompt Rs String "提示 信息 
Dim sTitle Rs String "标题 


Dim sDefault Rs String “' 上 默认 值 
Dim sTemp As String 
sPrompt = "请 输入 员工 的 职称 : " & vbNewLine & _ 
"1: 高 级 工程 师 " & vbNewLine & _ 
"2: 工程 师 " & vbNewLine & _ 
"3: 助理 工程 师 " & vbNewLine & _ 
"4: 技术 员 " & vbNewLine & _ 
"输入 其 他 值 ， 则 无 职称 " 
sTitle = "输入 职称 " 
sDefault = "2" 
strl = InputBox(sPrompt, sTitle, sDefault) 
IE strl = "" Then Exit Sub ' 用 户 单 击 【 取 消 】 按 钮 ， 退 出 程序 


IE str1 = "1"* Then 
sTemp = "高 级 工程 师 " 
Elself strl = "2" Then 
sTemp = "工程 师 " 
ElselIf strl = "3" Then 
sTemp = "助理 工程 师 " 
ElselIf strl = "4" Then 
sTemp = "技术 员 " 
Else 
sTemp = "其 他 " 
End If 
Worksheets ("sheet1") .Range ("A1") = sTemp 
End Sub 


执行 以 上 代码 ， 首 先 将 显示 如 图 5-15 所 示 的 输入 对 话 框 ,用户 输 入 一 个 数值 后 ， 单 击 
【确定 】 按 钮 ， 即 可 根据 输入 的 不 同 数值 在 工作 表 Sheetl 的 单元 格 Al 中 填 入 对 应 的 职称 。 


图 5-15 输入 框 


5.3.4 多 分 支 语句 


Select Case 


在 下.… Then 分 支 语 句 中 ,总 是 可 以 添加 更 多 的 ElseIf 块 来 构造 多 分 支 语 句 。 但 是 ， 当 
每 个 ElseIf 都 将 相同 的 表达 式 比 作 不 同 的 数值 时 ， 这 个 结构 编写 起 来 很 乏味 ,也 不 易 阅 读 。 
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在 这 种 情况 下 ， 可 以 用 多 分 支 选择 结构 Select Case 语句 。 

Select Case 语句 的 功能 与 下 ..Then...Else 语句 类 似 ， 但 对 多 重 选择 的 情况 ，Select Case 
语句 使 代码 更 加 易 读 。 

Select Case 在 结构 的 上 方 处 理 一 个 测试 表达 式 并 只 计算 一 次 。 然 后 ，VBA 将 表达 式 的 
值 与 结构 中 的 每 个 Case 的 值 进行 比较 。 如 果 相 等 ， 就 执行 与 该 Case 相关 联 的 语句 块 ， 执 
行 完毕 再 跳 转 到 End Select 语句 后 执行 。 其 语法 格式 如 下 : 

Select Case 测试 表达 式 

Case 表达 式 列 表 1 

语句 序列 1 


Case 表达 式 列表 2 
语句 序列 2 


语句 序列 

End Select 

其 中 测试 表达 式 可 以 是 数值 型 或 字符 型 的 表达 式 ， 通 常 是 一 个 数值 型 或 字符 型 的 变 
量 。 表 达 式 列表 可 以 是 一 个 或 几 个 值 的 列表 。 如 果 在 一 个 列表 中 有 多 个 值 ， 就 用 逗号 将 值 
隔 开 。 每 一 个 语句 序列 中 含有 0 个 或 多 个 语句 。 如 果 不 止 一 个 Case 与 测试 表达 式 相 匹配 ， 
则 只 对 第 一 个 匹配 的 Case 执行 与 之 相关 联 的 语句 块 ; 如 果 在 表达 式 列表 中 没有 一 个 值 与 测 
试 表达 式 相 匹配 ， 则 VBA 执行 Case Else 子 句 〈 此 项 是 可 选 的 ) 中 的 语句 。 其 流程 图 如 
图 5-16 所 示 。 


测试 表达 式 


1 
语句 序列 1 | | 语句 序列 2 | [ … … 语 名 序列， 


十 
5-16 Select Case 语句 流程 图 


表达 式 列 表 可 以 按 以 下 几 种 情况 进行 书写 。 

口 表达 式 : 这 种 方式 用 来 表达 一 些 具 体 的 取 值 。 例 如 ，Case 1，3，5。 

口 表达 式 A To 表达 式 B: 这 种 方式 用 来 表示 一 个 数据 范围 。 例 如 ，Case 1 To 10。 

口 Is 比较 运算 符 表 达 式 。 例 如 ，Case Is<60 表示 所 有 小 于 60 的 值 。 

口 以 上 3 种 情况 的 混合 。 例 如 ，Case 0 To 60，80，Is>90。 

入 注意 :Select Case 结构 每 次 都 要 在 开始 处 计算 表达 式 的 值 。 下 .Then..Else 结构 为 每 个 

ElseIf 语 铅 计 算 不 同 的 表达 式 。 只 有 在 下 语句 和 每 一 个 ElseIf 语句 计算 的 表达 式 
相同 时 ， 才 能 用 Select Case 结构 替换 If..Then...Else 结构 。 


例如 ， 使 用 Select Case 语句 改写 5.3.3 节 的 下... Then ... ElseIf 语句 的 多 分 支 实 例 ， 有 具 
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体 的 代码 如 下 : 
Sub Case 多 分 支 程序 () 
Dim strl As String ' 保 存 输 入 值 
Dim sPrompt As String "提示 信息 
Dim sTitle Rs String 1 标题 


Dim sDefault Rs String “默认 值 
Dim sTemp As String 
sPrompt = "请 输入 员工 的 职称 ，" & vbNewLine & _ 
"1: 高 级 工程 师 " & vbNewLine & _ 
"2: 工程 师 " & vbNewLine & _ 
"3: 助理 工程 师 " & vbNewLine & _ 
"4: 技术 员 " & vbNewLine & _ 
"输入 其 他 值 ， 则 无 职称 " 
sTitle = "输入 职称 " 
sDefault = "2" 
Strl = InputBox(sPrompt, sTitle, sDefault) 
IE strl = "" Then Exit Sub “' 用 户 单 击 【 取 消 〗 按 钮 ， 退 出 程序 


Select Case strl 
Case "1" 

sTemp = "高 级 工程 师 " 
Case "2" 

sTemp = "工程 师 " 
Case “3” 

sTemp = "助理 工程 师 " 
Case "4" 

sTemp = "技术 员 " 
Case Else 

sTemp = "其 他 " 
End Select 
Worksheets ("sheet1") .Range ("R1") = sTemp 

End Sub 


5.4 循环 程序 结构 


在 顺序 结构 的 程序 中 ， 每 一 个 语句 只 能 执行 一 次 。 在 分 支 结构 的 程序 中 ， 根 据 罗 辑 表 
达 式 的 值 选择 某 一 分 支 执行 ， 所 选 分 支 的 语句 也 只 执行 一 次 。 然 而 在 处 理 实际 问题 的 过 程 
中 ， 经 常 要 利用 同一 种 方法 对 不 同 的 数据 进行 重复 处 理 ， 这 些 相同 的 操作 可 以 通过 重复 执 
行 同一 程序 段 来 实现 。 这 种 重复 执行 具有 特定 功能 程序 段 的 程序 就 称 为 循环 程序 。 

在 VBA 中 ， 通 过 循环 控制 语句 来 实现 循环 结构 。 


5.4.1 了 解 循环 程序 


在 5.3.2 节 中 的 例子 根据 Excel 工作 表 中 尊称 列 的 值 ， 自 动 在 性 别 列 填充 相应 的 性 别 。 
该 例 的 代码 只 能 对 指定 的 行进 行 操作 ， 若 需要 对 当前 工作 表 的 所 有 行进 行 处 理 ， 则 可 使 用 
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循环 程序 来 进行 处 理 。 将 该 例 的 代码 修改 为 如 下 形式 : 
Sub 循环 填写 性 别 () 


Worksheets (" 员 工 ") .Activate 
With Worksheets ("员工 ") 
For 主 二 3 T0311 
TS -Celle(ir 5S) = 女士 Te 
"Cella(i, 7) = nn 
Else 
-Cells (i, 17) = " 男 " 
End If 
Next 
End With 
End Sub 


执行 以 上 代码 ， 工 员工 作 表 中 性 别 列 中 的 每 一 行 都 将 填写 相应 的 性 别 数据 ， 如 图 5-17 
所 示 。 


| 


工 芒 村 迁 民 到 


女士 “1968-12-8 女 


2 职务 - 

3 额 ”销售 

生 2 王 “ 伟 “ 副 总 裁 ( 销 售 ) 博士。 1962-2-19 男 
5 3 李 芳 销售 女士 “1973-8-30 女 
6 4 郑 ” 建 杰 销售 代表 先生 1968-9-19 男 
5 赵 ” 军 销售 经 理 先生 1965-3-4 男 
8 6 孙 林 销售 代表 先生 1967-7-2 男 
9 7 金 ” 士 髓 销售 代表 先生 1960-5-29 男 
10 8 刘 。” 英 玫 内 部 销售 协调 员 女士 。 1969-1-9 女 
11 3 张 。 备 届 销售 代表 女士 ”1969-7-2 女 
1 


图 5-17 循环 处 理 


全 提示 : 有 关 循环 语句 的 相关 语法 ， 将 在 本 节 后 面 进行 介绍 。 


5.4.2 ”For...Next 语句 


在 上 面 的 代码 中 ， 使 用 了 For...Next 语句 来 循环 处 理工 作 表 中 的 每 一 行 数据 。 
For...Next 语句 以 指定 次 数 来 重复 执行 循环 体 。For 循环 的 语法 格式 如 下 : 
For 循环 变量 = 初始 值 To 终 值 [step 步 长 值 ] 
语句 序列 1 
[Exit For] 
[语句 序列 2] 
Next [循环 变量 ] 


For 循环 使 用 一 个 计数 器 变量 ， 每 执行 一 次 循环 ， 计 数 器 变量 的 值 就 会 按 设 置 的 步 长 
值 增加 或 者 减少 。 在 For 循环 中 可 以 使 用 Exit For 语句 随时 退出 该 循环 。 

步 长 值 可 正 可 负 ， 如 果 步 长 值 为 正 ， 则 初始 值 必须 小 于 等 于 终 值 ， 才 执行 循环 体 ; 否 
则 退出 循环 。 如 果 步 长 值 为 负 ， 则 初始 值 必须 大 于 等 于 终 值 ， 这 样 才能 执行 循环 体 。 如 果 
没有 关键 字 Step， 则 步 长 值 默 认为 1。For...Next 循环 结构 的 流程 图 如 图 5-18 所 示 。 
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| 


循环 变量 = 初始 值 


循环 变量 
超过 终 值 ? 


假 
语句 序列 1 
1 


Exit For FP 
1 
语句 序列 2 
1 
循环 变量 累加 步 长 值 


和 一 一 一 一 


下 一 语句 
i 


图 5-18 For ...Next 流程 图 
For 循环 一 般 都 可 计算 出 循环 体 的 执行 次 数 ， 计 算 公式 如 下 : 
循环 次 数 = [ ( 终 值 - 初 值 ) / 步 长 值 ] +1 


这 里 的 中 括号 表示 对 运算 结果 取 整 ， 即 取得 除法 运算 商 的 整数 部 分 。 
例如 ， 上 例 中 的 循环 语句 如 下 : 


De 


可 计算 出 该 循环 的 执行 次 数 为 :[(11-3)/1]+1=9 次 。 
车 将 上 例 代码 改写 为 如 下 形式 : 


sub 隔行 填写 性 别 () 
Worksheets ("员工 ") .Activate 
With Worksheets ("员工 ") 
For i= 3 To 11 Step 2 
If .Cells(i, 5) = "女士 " Then 
:Cells (4, 17) = wk" 
Else 
-Cells(i，17) = " 男 " 
End If 
Next 
End With 
End Sub 


其 循环 次 数 为 : [(11-3)/2]+1=5 次 。 

在 工作 表 员 工 中 删除 性 别 列 中 各 数据 ， 执 行 以 上 代码 后 ， 将 在 工作 表 的 奇数 行 中 填 入 
性 别 数据 ， 如 图 5-19 所 示 。 由 图 可 以 看 出 ， 循 环 共 执行 了 5 次 ， 分 别 在 3、5、7、9、11 
各 行 填充 了 数据 。 
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5.4.3 ”Do...Loop 语句 


用 Do 循环 重复 执行 一 语句 块 ， 且 重复 次 数 不 定 。Do...Loop 语句 有 4 种 演变 形式 ,但 
每 种 都 需要 计算 条 件 表 达 式 的 值 ， 以 决定 是 否 继续 执行 。 在 Do 循环 中 可 以 使 用 Exit Do 语 
句 中 途 退 出 该 循环 。 


1. 先 测试 循环 条 件 的 Do...Loop 语 名 


先 测试 循环 条 件 的 Do...Loop 语句 语法 形式 如 下 : 


Do While 逻辑 表达 式 
语句 序列 1 
[Exit Do] 
[语句 序列 2] 
Loop 


当 VBA 执行 这 个 Do 循环 时 ， 首 先 判 断 逻 辑 表达 式 ， 如 果 为 False (或 0) ， 则 跳 过 所 
有 语句 ,执行 Loop 的 下 一 条 语句 ， 如 果 为 True (或 非 零 )， 则 执行 循环 体 ， 当 执行 到 Loop 
语句 后 ， 又 跳 回 到 Do While 语句 再 次 判断 条 件 。 在 循环 体 中 如 果 包 含有 Exit Do 语句 ， 当 
执行 到 该 语句 时 ， 则 马上 跳出 循环 ， 执 行 Loop 的 下 一 条 语句 。 其 流程 图 如 图 5-20 所 示 。 


图 5-20 Do While .… Loop 流程 图 
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这 种 形式 的 循环 体 可 能 执行 0 次 或 多 次 。 只 要 条 件 表达 式 为 True 或 非 零 , 循环 就 会 重 
复 执行 多 次 。 如 果 逻 辑 表 达 式 最 初 就 为 False， 则 不 会 执行 循环 语句 。 


2. 后 测试 循环 条 件 的 Do .… Loop 语 句 


Do...Loop 语句 的 另 一 种 演变 形式 是 先 执行 循环 体 中 的 语句 ,然后 再 进行 条 件 判 断 。 这 
种 形式 的 循环 体 至 少 执行 一 次 ， 语 法 格式 如 下 : 
Do 
语句 序列 1 
[Exit Do] 
[语句 序列 2] 
Loop While 逻辑 表达 式 


其 流程 图 如 图 5-21 所 示 。 


语句 序列 1 
1 


Exit DO 


图 5-21 Do .… Loop While 流程 图 


3. 先 测试 结束 条 件 的 Do .… Loop 语 句 
先 测试 结束 条 件 的 Do...Loop 语句 的 语法 形式 如 下 : 
Do Until 逻辑 表达 式 
语句 序列 1 
[Exit Do] 
[语句 序列 2] 
Loop 
这 种 形式 与 Do While...Loop 类 似 , 不 同 的 是 : 当 逻 辑 表 达 式 的 值 为 False 时 才 执 行 循 
环 体 ; 否则 退出 循环 。 这 种 形式 的 循环 体 可 能 执行 0 次 或 多 次 。 
4. 后 测试 结束 条 件 的 Do .… Loop 语 句 
后 测试 结束 条 件 的 Do...Loop 语句 的 语法 形式 如 下 : 
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语句 序列 1 
[Exit Do] 


[语句 序列 2] 


Loop Until 逻辑 表达 式 
这 种 形式 与 Do...Loop While 类 似 , 不同 的 是 : 当 逻 和 辑 表达 式 的 值 为 False 时 才 执 行 循 


环 体 ; 否则 退出 循环 。 这 种 形式 的 循环 体 至 少 能 被 执行 一 次 。 


使 用 Do...Loop 循环 修改 5.4.2 节 的 For 循环 ， 具 体 代码 如 下 : 
Sub Do 循环 填写 性 别 () 


Worksheets ("员工 ") .Activate 
With Worksheets ("员工 ") 
i = 3 “' 循 环 变量 赋 初 值 
Do While i <= 11 
IE .Cells(i, 5) = "女士 " Then 
.Cells (i，17) = " 女 " 


Else 
‘Cells(i, 17) = " 男 " 
End If 
= 和 主 ++ 1 ' 必 须 在 循环 体 中 改变 循环 变量 
Loop 
End With 


End Sub 


在 For 循环 中 ， 执 行 到 Next 语句 时 将 自动 修改 循环 变量 的 值 。 而 Do 循环 没有 自动 修 


改 循环 变量 的 功能 ， 所 以 需要 在 循环 体 中 添加 语句 ， 用 来 修改 循环 变量 的 值 。 若 没有 修改 
循环 变量 的 语句 ，Do 循环 将 是 一 个 死 循环 ， 一 直 不 能 退出 循环 。 


5.4.4 For Each...Next 语句 


For Each...Next 循环 与 For...Next 循环 类 似 , 但 它 针对 数组 或 对 象 集合 中 的 每 一 个 元 素 


重复 一 组 语句 ， 而 不 是 重复 语句 一 定 的 次 数 。 如 果 不 知 道 一 个 集合 有 多 少 元 素 ，For 
Each...Next 循环 非常 有 用 。For Each...Next 循环 的 语法 如 下 : 


For Each 对 象 元 素 变量 In 对 象 集合 
语句 序列 1 


[Exit For] 
[语句 序列 2] 


Next 对 象 元 素 变量 


使 用 For Each...Next 时 ， 根 据 对 象 集合 的 不 同 ， 有 不 同 的 限制 。 
口 对 于 集合 : 对 象 元 素 变量 只 能 是 Variant 变量 ， 或 一 般 的 对 象 (Object) 变量 ， 或 


对 象 浏览 器 中 列 出 的 对 象 。 


口 对 于 数组 : 对 象 元 素 变量 只 能 是 Variant 变量 。 
For Each...Next 不 能 与 用 户 自 定义 类 型 的 数组 一 起 使 用 ， 因 为 Variant 不 可 能 包含 用 户 
自 定义 类 型 。 
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全 提示 : For Each 循环 一 般 使 用 在 对 象 模 型 中 ， 相 关 的 实例 会 在 本 书后 面 章节 中 列 出 。 


5.4.5 ”循环 嵌 套 


前 面 学 习 的 都 是 单 层 控制 结构 。 其 实 ， 可 以 把 一 个 控制 结构 放 入 另 一 个 控制 结构 之 内 
(例如 在 For...Next 循环 中 的 下 .Then 块 ) 。 

循环 堪 套 就 是 在 一 个 循环 中 还 有 一 个 循环 ， 内 部 循环 在 外 部 循环 体 中 。 在 外 部 循环 的 
每 次 执行 过 程 中 都 会 触发 内 部 循环 ， 直 到 内 部 循环 执行 结束 。 外 部 循环 执行 了 多 少 次 ， 内 
部 循环 就 完成 多 少 次 。 

按照 一 般 习 惯 ， 为 了 使 判定 结构 和 循环 结构 更 具 可 读 性 ， 总 是 用 缩 排 方 式 书写 判定 结 
构 或 循环 的 正文 部 分 。 

例如 ， 使 用 循环 嵌 套 编写 冒 泡 排序 法 程序 ， 有 具体 代码 如 下 : 


Sub 循环 苞 套 () 
' 本 例 使 用 冒 泡 排序 法 演示 循环 霸 套 
Dim i As Integer 
Randomize 
With Worksheets ("sheet1") 
For i=1 To 100 ' 生 成 100 个 随机 数据 
.Cells(i, 1) = Int(Rnd * 100) + 1 
Next 
For i=1 To 99 ' 外 循环 
Forj=i+1 To 100 ' 内 循环 
If .Cells(i, 1) > .Cells(j, 1) Then ' 比 较 数据 大 小 
t = .Cells(i, 1) 
.Cells(i, 1) = .Cells(j, 1) 
.Cells(j, 1) = 七 
End If 
Next 
Next 
End With 
End Sub 


执行 以 上 代码 ， 首 先 使 用 单 循环 生成 100 个 随机 整数 ， 接 着 使 用 循环 嵌 套 对 数据 进行 
排序 ， 得 到 如 图 5-22 所 示 的 排序 结果 。 


各 6 构 xs 代 安 楼 芭 ] ET 


I B 2 
1 


5-22 ”排序 结果 
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本 例 中 的 外 循环 共 循环 99 次 ( 即 一 共 输 出 九 行 )， 当 i 等 于 100 时 循环 终止 。 外 循环 
的 每 轮 循环 都 会 执行 内 循环 ， 在 外 循环 的 每 轮 循环 中 ， 内 循环 的 循环 次 数 都 不 相同 。 因 为 


外 循环 的 每 轮 循环 都 会 使 1 增加 1， 而 内 循环 的 循环 变量 j 的 值 也 会 被 寻 


三 新 赋值 为 i+1， 而 


内 循环 的 结束 条 件 是 100， 且 内 循环 的 每 轮 循 环 中 j 只 增加 1， 所 以 外 循环 每 循环 一 次 ， 内 


循环 的 循环 次 数 就 减少 一 次 ， 即 在 外 循环 的 第 1 轮 循环 ， 内 循环 的 循环 
环 的 第 2 轮 循环 ， 内 循环 的 循环 次 数 为 98; 在 外 循环 的 第 3 轮 循环 ， 内 


次 数 为 99; 在 外 循 
循环 的 循环 次 数 为 


全 提示 : 在 嵌 套 结构 里 的 循环 结构 中 使 用 Exit 语句 时 ,退出 的 只 是 包含 该 语句 的 当前 循环 


结构 ， 而 不 是 整个 谋 套 结构 。 
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前 面 各 章 中 使 用 的 数据 都 是 基本 数据 类 型 ， 可 以 通过 简单 的 变量 名 来 访问 其 保存 的 
值 。 除了 基本 数据 类 型 外 , VBA 还 提供 了 数组 类 型 , 利用 数组 可 以 方便 地 组 织 和 使 用 数据 。 
例如 ， 可 用 数组 保存 工作 表 中 各 单元 格 的 数据 。 

本 章 介绍 数组 的 定义 和 使 用 方法 。 


6.1 数组 简介 


数组 是 有 序 的 数据 的 集合 ， 在 其 他 高 级 程序 设计 语言 中 ， 数 组 中 的 所 有 元 素 都 属于 同 
-个 数据 类 型 ， 而 在 VBA 中 ， 一 个 数组 中 的 元 素 可 以 是 不 同类 型 的 数据 ， 也 可 以 是 相同 
类 型 的 数据 。 


6.1.1 用 数组 保存 工作 表 数 据 


使 用 数组 时 ， 可 以 用 同一 名 称 引 用 多 个 值 ， 并 使 用 一 个 称 作 索引 或 下 标的 数字 将 它们 
区 分 开 来 。 数 组 可 以 缩短 和 简化 代码 ， 使 程序 员 能 够 创建 高 效 处 理 多 个 元 素 的 循环 。 

Excel 工作 表 中 的 单元 格 由 行 和 列 组 成 ， 在 Excel 2003 及 以 前 版 本 中 ， 每 行 最 多 可 有 
255 列 ， 每 张 工作 表 最 多 有 65 536 行 。 而 Excel 2007 中 ， 工 作 表 中 单元 格 的 数量 得 到 了 很 
大 的 扩展 ， 每 行 最 多 可 有 16 384 列 ， 每 张 工作 表 最 多 有 1 048 576 行 。 

在 VBA 中 ， 如 果 使 用 变量 来 保存 单元 格 中 的 数据 时 ， 要 保存 一 行 的 数据 ， 则 需要 定 
义 多 个 变量 ， 例 如 ， 用 V1 保存 单元 格 Al 的 值 ， 用 V2 保存 单元 格 Bl 中 的 值 ，……- 在 程 
序 中 ， 若 需要 分 别 访问 这 些 变量 中 的 值 ， 则 需要 分 别 编写 代码 。 例 如 ， 将 Excel 工作 表 中 
第 1 行 各 单元 格 的 数据 进行 累加 ， 可 使 用 以 下 代码 : 

S=S+VI 
S=S+V2 
S=S+V3 


s=s+Vn 


如 果 要 对 255 或 16 384) 列 单元 格 进行 累加 ， 则 需要 编写 255 (或 16 384) 行 代码 。 
显然 ， 这 样 的 程序 代码 不 是 开发 人 员 希 望 使 用 的 。 

这 时 ， 如 果 使 用 数组 来 保存 单元 格 中 的 值 ， 则 可 以 使 V(1)、V(2)、…、V(n) 来 表示 ， 
也 可 使 用 V(1) 保 存单 元 格 Al 的 值 ， 用 V(2) 保 存单 元 格 B1 中 的 值 ，…… 
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这 样 ， 在 程序 中 要 累加 各 单元 格 中 的 值 时 ， 可 使 用 以 下 的 循环 语句 : 
Por 二 1 T0255 
s= s+ V(i) 
Next 
以 上 代码 中 ， 为 了 兼容 Excel 2003 及 以 前 版 本 ， 设 置 紫 加 255 列 单元 格 的 和 。 
由 以 上 代码 可 以 看 出 ， 只 需要 3 行 语句 即 可 对 255 列 〈 甚 至 更 多 ) 的 数据 进行 累加 。 
由 此 可 以 看 出 ， 使 用 数组 可 方便 地 对 循环 语句 进行 处 理 ， 简 化 程序 代码 。 


6.1.2 ”数组 的 维 数 


在 6.1.1 节 示 例 中 的 数组 V， 在 括号 中 使 用 了 一 个 索引 ， 因 此 称 为 “一 维 ”。 使 用 多 
个 索引 或 下 标的 数组 称 为 “多 维 ”。 
全 提示 : “ 维 ” 是 一 个 方向 ， 可 以 在 此 方向 上 改变 数组 元 素 的 规范 。 保 存 月 内 每 日 总 销量 
的 数组 有 一 个 维 ( 当月 日 期 ) 。 保 存 每 个 部 门 的 月 内 每 日 总 销量 的 数组 有 两 个 维 
(部 门 编号 和 当月 日 期 ) 。 数 组 的 维 数 称 为 数组 的 “ 秩 ”。 
可 以 通过 为 数组 的 每 一 维 提供 “索引 ”或 “下 标 ” 来 指定 数组 元 素 。 在 每 一 维 中 ， 元 
素 都 按照 从 小 到 大 的 索引 顺序 连续 排列 。 
1. 一 维 数组 
很 多 数组 只 有 一 维 ， 例 如 ， 统 计 各 年 龄 的 人 数 时 ， 可 定义 一 个 数组 ， 每 个 数组 元 素 表 
示 一 个 年 龄 段 的 人 数 (如 iAgeCnt(10) 中 保存 着 年 龄 为 10 岁 的 人 数 ) 。 因 此 ， 这 类 数组 只 
使 用 一 个 索引 。 下 面 的 代码 声明 一 个 变量 来 保存 一 个 “一 维 数组 ”， 其 中 包含 从 0 岁 到 120 
岁 之 间 每 个 年 龄 段 的 人 数 。 
Dim iAgeCnt (120) Rs Integer 


以 上 代码 定义 的 一 维 数组 如 图 6-1 所 示 。 


[olTiT2zT[sT[d[5[6[7T[s[9T[lio[…lislzo 
图 6-1 一 维 数组 


使 用 iAgeCnt(0) 可 以 访问 数组 中 的 第 1 个 元 素 , 使 用 iAgeCnt(10) 可 访问 数组 中 的 第 11 
个 元 素 。 

2. 二 维 数组 

某 些 数组 有 两 个 维 ， 最 典型 的 就 是 Excel 的 工作 表 结 构 ， 由 行 和 列 构成 。 二 维 数组 也 
称 为 “和 矩形 数组 ”。 

下 面 的 代码 声明 一 个 变量 来 保存 一 个 “二 维 数组 ”。 

Dim aData(4，10) Rs Integer 
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以 上 代码 定义 的 二 维 数组 如 图 6-2 所 示 。 
使 用 aData(0.0) 可 访问 数组 中 第 1 行 第 1 列 的 元 素 〈 第 1 个 元 素 ) ， 使 用 aData(2,2) 可 
访问 数组 中 的 第 3 行 第 3 列 的 元 素 。 


00|ol[o2[osl|od|o5|o6|oy|oas[oe[|olo 
Lol | 10 
Laol 2 22123124125126127128|1291230 
30|31|32|33|34|35|36|37|38|39|3,10 
40|41|42|43|4d4d|45|46|47|48|49|410 
图 6-2 二 维 数组 
3. 三 维 数组 


有 些 数组 有 三 个 维 ， 如 Excel 工作 短 就 是 一 个 三 维 空间 (每 张 工 作 表 为 一 个 二 维 数组 
结构 ， 多 张 工作 表 就 构成 一 个 三 维 数组 ) ， 这 类 数组 使 用 三 个 索引 。 

例如 ， 使 用 以 下 代码 声明 一 个 “三 维 数组 ”， 第 一 个 索引 表示 工作 短 中 的 某 张 工 作 表 ， 
第 二 个 索引 表示 指定 工作 表 中 的 行 ， 第 三 个 索引 表示 指定 工作 表 中 的 列 。 


Dim aData(3，4，10) As IntegeL 


以 上 代码 定义 的 三 维 数组 如 图 6-3 所 示 。 


Ee a 
| 
加 本 
EYE 


至 过 
| L419 


6-3 三 维 数组 


使 用 aData(0,0.0) 可 访问 数组 中 第 1 页 〈 第 1 个 工作 表 ) 中 第 1 行 第 1 列 的 元 素 〈 第 1 
个 元 素 )， 使 用 aData(2,2,2) 可 访问 数组 中 第 3 页 (第 3 个 工作 表 ) 的 第 3 行 第 3 列 的 元 素 。 


4. 多 维 数组 


多 于 三 维 的 数组 为 多 维 数组 。 尽 管 VBA 数组 最 大 可 以 达到 60 维 ， 但 是 超过 三 维 的 数 
组 是 非常 难于 理解 的 ， 所 以 常用 的 也 就 是 一 维 、 二 维和 三 维 数组 。 


全 注意 ; 增加 一 个 数组 的 维 数 时 ， 该 数组 所 需 的 总 存储 空间 会 急剧 增 大 ， 因 此 应 慎 用 多 维 
数组 。 


6.2 声明 数组 


可 以 使 用 Dim 语句 ,用 声明 任何 其 他 变量 的 方法 来 声明 数组 变量 。 在 变量 名 后 面 加 上 


bi 
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一 对 或 几 对 圆 括号 ， 以 指示 该 变量 将 存储 数组 而 不 是 “标量 ” (包含 单个 值 的 变量 ) 。 
6.2.1 声明 一 维 数 组 


数组 的 声明 方式 和 其 他 的 变量 是 一 样 的 ,可 以 使 用 Dim、Static、Private 或 Public 语句 
来 声明 。 声 明 标量 变量 〈 非 数组 ) 与 数组 变量 的 不 同 在 于 必须 为 数组 指定 大 小 。 若 数组 的 
大 小 被 指定 时 ， 则 它 是 个 固定 大 小 数组 。 若 程序 运行 时 数组 的 大 小 可 以 被 改变 ， 则 它 是 个 
动态 数组 。 

声明 一 维 数组 的 语法 格式 如 下 : 

Dim 数组 名 (下界 To 上 界 ) Rs 数据 类 型 

与 其 他 程序 设计 语言 定义 数组 的 格式 不 同 ， 在 VBA 中 定义 数组 时 ， 下 界 的 值 可 为 任 
意 整 型 值 (可 为 负数 ) 。 

在 声明 数组 时 ， 也 可 只 给 出 数组 下 标的 上 界 〈 即 可 以 使 用 的 最 大 下 标 值 ) 。 而 省 略 下 
标的 下 界 ， 这 时 默认 值 为 0， 即 数组 的 下 标 从 0 开始 至 定义 的 上 界 ， 如 : 


Dim aData(10) Rs String 


定义 了 一 个 名 为 aData 的 数组 ,共有 11 个 元 素 , 分 别 为 aData(0)、aData(1)、…、aData(10)。 
使 用 以 下 代码 可 指定 数组 的 下 界 : 


Dim aData(-10 To 10) As String 


以 上 代码 定义 了 一 个 数组 aData， 具 有 21 个 元 素 ， 分 别 为 aData(-10)、aData(-9)、 
aData(-8)、…、aData(0)、…、aData(9)、aData(10)。 
在 定义 数组 时 ， 和 需要 注意 以 下 几 点 : 
口 数组 的 名 称 必须 符合 标识 符 的 规则 ， 并 尽 可 能 为 数组 定义 有 一 定 意义 的 名 称 。 
口 在 同一 过 程 中 ， 数 组 名 不 能 与 变量 名 相同 ， 和 否则 会 出 错 。 
口 在 VBA 中 定义 数组 时 ， 要 求 其 下 标 必须 为 常数 ， 不 能 是 变量 或 表达 式 ， 例 如 ， 以 
下 代码 在 执行 时 将 会 报错 ， 如 图 6-4 所 示 。 


图 6-4 用 变量 定义 数组 


sub 用 变量 定义 数组 () 
Dim i As Integer 
二 二 9 
Dim aData (i) 
Por = To 40 
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6.2.2 ”声明 多 维 数组 


定义 多 维 数组 的 语法 格式 如 下 : 


Dim 数组 名 ( [第 1 维 下 界 To] 第 1 维 上 界 ，[ 第 2 维 下 界 To] 第 2 维 上 界 ，.. ，[ 第 n 维 下 界 
To] 第 n 维 上 界 ) As 数据 类 型 


使 用 以 上 格式 可 声明 二 维 数组 、 三 维 数组 、 多 维 数组 等 。 

例如 ， 使 用 以 下 代码 可 声明 一 个 二 维 数组 ， 用 来 保存 Excel 工作 表 中 的 值 : 

Dim aData(1 To 10, 1 To 255) 

以 上 代码 定义 的 二 维 数组 可 保存 Excel 工作 表 中 的 10 行 数据 ,每 行 可 保存 255 列 ( 共 
2550 个 单元 格 的 值 ) 。 为 了 使 数组 元 素 保存 不 同类 型 的 值 ， 在 声明 数组 时 ， 不 能 定义 数组 
的 数据 类 型 。 

定义 多 维 数组 的 格式 与 二 维 数组 类 似 ， 每 一 维 都 使 用 逗号 隔 开 即 可 。 需 要 注意 的 是 ， 
定义 大 数据 量 的 数组 将 占用 很 大 的 内 存 空间 , 特别 是 定义 多 维 数组 时 要 考虑 这 一 点 。 例 如 : 

Dim aData(1 To 65536) Rs Integer 

定义 一 个 数组 ， 具 有 65 536 个 元 素 ， 相 当 于 定义 65 536 个 变量 。 

Dim aData(1 To 65536, 1 To 100) Rs Integer 

定义 一 个 二 维 数组 ， 具 有 6 553 600 (65 536X 100) 个 元 素 ， 而 

Dim aData(1 To 65536, 1 To 100, 1 To 100) Rs Integer 

定义 一 个 三 维 数组 ， 具 有 655 360 000 (65 536X100X100) 个 元 素 。 


由 此 可 见 ， 数 组 每 增加 一 维 ， 数 组 元 素 就 会 成 几何 级 数 的 增加 。 若 定义 的 数组 维 数 过 


多 ， 可 导致 程序 很 快 将 内 存 用 完 。 


| 


6.2.3 ”设置 数组 默认 下 界 


在 默认 情况 下 ， 在 程序 中 声明 数组 时 ， 如 果 不 指定 数组 维 数 的 下 界 ， 则 VBA 使 用 默 
认 下 界 0。 
例如 : 


Dim aData (10) 


以 上 代码 将 定义 11 个 元 素 ， 从 aData(0) 开 始 ， 至 aData(10) 为 止 。 
如 果 希 望 下 标 从 1 开始 , 可 以 通过 Option Base 语句 来 设置 。 该 语句 必须 在 模块 级 别 中 
使 用 ， 其 语法 格式 如 下 : 


= 
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Option Base {0 | 1} 


由 于 下 界 的 默认 设置 是 0， 因此 无 需 使 用 Option Base 语句 。 如 果 使 用 该 语句 ， 则 必须 
写 在 模块 的 所 有 过 程 之 前 。 一 个 模块 中 只 能 出 现 一 次 Option Base， 且 必须 位 于 带 维 数 的 数 
组 声明 之 前 。 

Option Base 语句 只 影响 位 于 包含 该 语句 的 模块 中 的 数组 下 界 。 

例如 ， 以 下 代码 查看 各 数组 下 标的 下 界 为 1。 

Option base 1 ' 将 默认 的 数组 下 标 设 为 1 


Dim Lower 
Dim MyArray (20), TwoDArray (3, 4) ' 声 明 数 组 变量 


Dim ZeroArray (0 To 5) ' 取 代 默 认 的 下 标 
' 使 用 LBouna 函数 来 测试 数组 的 下 界 

Lower = LBound (MyArray) "返回 1 

Lower = LBound (TwoDArray, 2) ' 返 回 1 

Lower = LBound (ZeroArray) "返回 0 


6.3 ”初始 化 数组 


数组 具有 多 个 元 素 ， 可 保存 多 个 数据 。 与 单个 变量 的 初始 化 不 同 ， 对 数据 进行 初始 化 
时 ， 一 般 要 进行 批量 赋值 。 数 组 初始 化 可 有 多 种 方法 ， 本 节 介 绍 几 种 常用 的 数组 初始 化 
方法 。 


6.3.1 使 用 循环 语句 初始 化 数组 


使 用 循环 语句 初始 化 数组 是 最 常用 的 一 种 方法 。 利 用 循环 语句 可 反复 执行 的 特点 ， 可 
快速 对 数组 进行 初始 化 。 
例如 : 


Sub 使 用 循环 初始 化 数组 () 
Dim a(1 To 10) As Integer 
For ii = 1 To 10 
a(li) = 0 
Next i 
End Sub 


以 上 代码 对 数组 a 中 每 个 元 素 赋 初 值 为 0。 
6.3.2 ”使 用 Array 函数 初始 化 数组 


Array 函数 可 返回 一 个 包含 数组 的 Variant。 其 语法 格式 如 下 : 


Array (arglist) 


= Me 
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参数 arglist 是 一 个 用 去 号 隔 开 的 值 表 ， 这 些 值 用 于 给 Variant 所 包含 的 数组 的 各 元 素 
赋值 。 如 果 不 提供 参数 ， 则 创建 一 个 长 度 为 0 的 数组 。 
使 用 Array 函数 创建 的 数组 的 下 界 由 Option Base 语句 指定 的 下 界 所 决定 。 


外 注意 : 没有 作为 数组 声明 的 Variant 也 可 以 表示 数组 。 除 了 长 度 固定 的 字符 囊 以 及 用 户 
定义 类 型 之 外 ，Variant 变量 可 以 表示 任何 类 型 的 数组 .尽管 一 个 包含 数组 的 
Variant 和 一 个 元 素 为 Variant 类 型 的 数组 在 概念 上 有 所 不 同 ， 但 对 数组 元 素 的 访 
问 方 式 是 相同 的 。 


使 用 Array 函数 初始 化 数组 的 示例 代码 如 下 : 


Sub 使 用 Array 函数 初始 化 数组 () 
Dim a As Variant, b As Variant 
Nrray(ly 37 .5 "7 .9) 
Do Arr 
End Sub 


6.3.3 ”用 数组 值 初始 化 数组 


在 VBA 中 ， 还 可 以 直接 将 一 个 数组 的 值 赋 值 给 另 一 个 数组 ， 以 达到 初始 化 数组 的 目 
的 。 例 如 ， 以 下 的 代码 : 
Sub 用 已 有 数组 初始 化 数组 () 
Dim a(5)，b() 
For i = 0 To 5 
EVE 
Next 
b=a 
End Sub 
使 用 这 种 方式 初始 化 数组 时 ， 需 要 注意 以 下 几 点 : 
口 赋值 号 两 边 的 数据 类 型 必须 一 致 ; 
口 如 果 赋 值 号 左边 是 一 个 动态 数组 ， 则 赋值 时 系统 自动 将 动态 数组 ReDim 成 右边 相 
同 大 小 的 数组 ; 
口 如 果 赋 值 号 左边 是 一 个 大 小 固定 的 数组 ， 则 数组 赋值 出 错 。 


6.4 动态 数组 


在 很 多 情况 下 ， 数 组 的 长 度 事先 是 无 法 预测 的 ， 而 且 有 时 可 能 需要 在 程序 中 改变 数组 
的 长 度 以 适应 新 的 情况 ， 因 此 出 现 了 动态 数组 。 


6.4.1 声明 动态 数组 


动态 数组 是 指 在 程序 运行 时 ， 数 组 元 素 大 小 可 以 改变 的 数组 ， 当 程序 没有 运行 时 ， 动 
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态 数组 不 占据 内 存 ， 因 此 可 以 把 这 部 分 内 存 用 于 其 他 操作 。 

大 小 不 可 改变 的 数组 称 为 静态 数组 。 定 义 静 态 数组 时 ， 其 下 标的 下 界 和 上 办 只 能 由 常 
量 来 进行 设置 ， 而 动态 数组 可 使 用 变量 来 设置 下 标 。 

定义 动态 数组 一 般 分 两 个 步骤 : 

(1) 在 用 户 窗 体 、 模 块 或 过 程 中 使 用 Dim 或 Public 声明 一 个 没有 下 标的 数组 (不 能 省 
略 括号 ) 。 

(2) 在 过 程 中 用 ReDim 语句 重 定 义 该 数组 的 大 小 。 

ReDim 语句 的 作用 是 重新 指出 数组 的 大 小 。 它 是 在 程序 执行 到 ReDim 语句 时 才 分 配 
存储 空间 。 其 语法 格式 如 下 : 

ReDim [Preserve] 数组 名 (下 标 ) [As 数据 类 型 ] 


说 明 : 
口 下 标 可 以 是 常量 ， 也 可 以 是 具有 确定 值 的 变量 。 
口 语句 中 各 参量 的 含义 与 用 Dim 定义 数组 的 语句 相同 。 
口 ReDim 语句 只 能 用 于 动态 数组 ， 它 可 以 改变 每 一 维 的 大 小 ， 但 不 能 改变 维 数 。 
口 当 程 序 编 详 时 ，ReDim 语句 中 的 所 有 数组 均 被 说 明 为 动态 数组 。 在 程序 运行 中 ， 
当 执 行 到 ReDim 语句 时 ， 就 把 新 的 上 下 界 重 新 分 配给 数组 ， 数 组 元 素 的 值 将 被 初 
始 化 ， 所 有 的 数值 元 素 的 值 被 置 为 0， 字 符 串 元 素 被 置 为 空 字符 串 。 
ReDim 语句 可 以 同 Dim 语句 一 样 定义 数组 。 在 同一 程序 中 ，ReDim 语句 还 可 以 多 
次 使 用 。 在 用 ReDim 语句 重新 定义 数组 之 前 ， 可 以 使 用 Erase 语句 将 原来 的 数组 
删除 。 

在 默认 情况 下 , 使 用 ReDim 语句 重 定义 数组 的 维 数 和 大 小 时 , 数组 中 原来 保存 的 值 将 
全 部 消失 。 若 要 保存 数组 中 原 有 的 值 ， 需 要 使 用 Preserve 关键 字 ， 这 样 ， 当 改变 原 有 数组 
最 后 一 维 的 大 小 时 ， 可 以 保持 数组 中 己 有 的 数据 。 


外 注意 : 如 果 使 用 了 Preserve 关键 字 ， 就 只 能 重 定义 数组 最 后 一 维 的 大 小 ， 并 不 能 改变 维 
数 的 数目 。 


例如 : 以 下 代码 由 用 户 输入 一 个 数值 ， 设 置 数组 下 标的 上 界 ， 然 后 要 求 用 户 输入 每 个 
元 素 的 值 ， 并 将 用 户 输入 的 值 输出 到 【立即 窗口 】 列 表 框 中 。 


Dim reData() Rs Integer 
Sub 动态 数组 () 
Dim i As Integer, j As Integer 
i = Val (InputBox ("请 输入 数组 的 上 界 "， "定义 动态 数组 "，5) ) 
ReDim reData (i) 
Bor ld = TL To 
reData(j) = InputBox (" 请 输入 数组 的 第 " & j & "个 元 素 的 值 ") 
Next 
For ds Lo 
Debug .Print reData(j) 
Next 
End Sub 


口 


i 
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以 上 代码 在 模块 的 声明 部 分 定义 了 一 个 动态 数组 Darray， 然 后 在 “动态 数组 ”过 程 中 
使 用 变量 i 重 定义 该 动态 数据 的 大 小 (i 的 值 由 用 户 输入 ) 。 

执行 以 上 代码 ， 将 首先 打开 如 图 6-5 所 示 的 对 话 框 ， 让 用 户 设置 数组 的 上 界 。 按 用 户 
输入 的 值 对 数组 进行 重 设 大 小 后 , 接着 将 打开 输入 对 话 框 , 要 求 用 户 输入 每 一 个 元 素 的 值 。 
最 后 在 【立即 窗口 】 列 表 框 中 输出 数组 中 每 个 元 素 的 值 ， 如 图 6-6 所 示 。 


by 
图 6-5 输入 数组 的 上 界 图 6-6 输出 数组 中 的 数据 


6.4.2 ”数组 的 清除 和 重 定义 


对 于 静态 数组 ， 定 义 数组 后 ， 其 大 小 不 能 改变 。 若 需要 清除 数组 的 内 容 或 对 数组 重新 
定义 ， 可 以 使 用 Erase 语句 来 实现 。 

Erase 语句 重新 初始 化 大 小 固定 的 数组 的 元 素 ， 以 及 释放 动态 数组 的 存储 空间 。 其 语 
法 格式 如 下 : 

Erase arraylist 

所 需 的 arraylist 参数 是 一 个 或 多 个 用 逗号 隔 开 的 需要 清除 的 数组 变量 。 
外 注意 : 在 Erase 语句 中 ， 只 给 出 要 刷新 的 数组 名 ， 不 带 括号 和 下 标 。 


Erase 根据 是 固定 大 小 (常规 的 ) 数组 还 是 动态 数组 ， 来 采取 完全 不 同 的 行为 。Erase 
无 需 为 固定 大 小 的 数组 恢复 内 存 。 

Erase 释放 动态 数组 所 使 用 的 内 存 。 在 下 次 引用 该 动态 数组 之 前 , 程序 必须 使 用 ReDim 
语句 来 重新 定义 该 数组 变量 的 维 数 。 

例如 ， 以 下 代码 演示 Erase 语句 的 功能 。 


sub 清除 数组 () 
Dim aData(10) Rs Integer, strl Rs String 
strl =" 原 数组 中 的 数据 : " & vbNewLine 
or Sm 3 
aData(i) = i 
strl = strl & "aData(" & i & ")=" & apData(i) & " " 
Next 
Erase aData ' 删 除 原 数组 
strl = strl & vbNewLine & "使 用 Erase 命令 清除 数组 aData: " & vbNewLine 
Fori=0 To 10 


Btr1 = strl & "aData(" & i & ")=" & aData(i) & " " 
Next 
MsgBox strl 
End Sub 
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运行 以 上 程序 ， 首 先 定义 数组 aData， 为 该 数组 赋 初 值 ， 并 输出 数组 各 元 素 的 值 。 接 
着 执行 Erase 语句 清除 数组 aData 中 的 值 , 再 输出 数组 元 素 的 值 。 最 后 将 显示 如 图 6-7 所 示 
的 对 话 框 。 


原 数 组 中 的 数据 
eta B20 hata 0 Fl hte 22 加 st 全 shetal)s4 shetsE)ss ae 的 车 sheta0)=T het) vt 


4 他 人 请 除数 插 Dats; 
Bt te Oo ete yo DotsO)e0 at)n0 setoBn0 Dats) eta) Daa) Bet) 


图 6-7 程序 运行 结果 


6.5 操作 数组 的 函数 


定义 数组 后 ， 在 程序 中 可 以 与 使 用 其 他 变量 相同 的 操作 来 使 用 数组 元 素 。 数 组 是 一 种 
特殊 的 数据 结构 ， 因 此 ，VBA 提供 了 操作 数组 的 函数 。 


6.5.1 判断 数组 


使 用 IsArray 函数 可 检查 指定 的 变量 是 否 为 一 个 数组 ， 如 果 指 定 变量 是 一 个 数组 ， 返 
回 值 为 True; 否则 返回 False。 该 函数 的 语法 格式 如 下 : 

IsArray (Varname) 

参数 varname 是 一 个 指定 变量 的 标识 符 。 

对 于 包含 数组 的 variant 表达 式 来 说 ，IsArray 尤为 有 用 。 

例如 : 


Dim aData(5) Rs Integer, aDatal, bCheck ， 声明 数组 变量 
aDatal= Array(1, 2, 3) ， 初始 化 数组 
bcheck = IsArray (aData) 1: 返回 True 
bcheck = IsArray (aDatal) !， 返回 True 


6.5.2 ”查询 数组 的 下 标 范围 


使 用 LBound 函数 和 UBound 函数 获得 数组 下 标的 下 界 和 上 界 。 其 语法 格式 为 : 


LBound (数组 名 [， 维 数 ] ) 

UBound (数组 名 [， 维 数 ] ) 

其 中 “ 维 数 ”为 1 表示 第 一 维 ，2 表示 第 二 维 ， 依 此 类 推 。 如 果 省 略 该 参数 ， 表 示 返 
回 第 一 维 的 下 标 下 界 或 上 界 。 

例如 ， 使 用 以 下 代码 定义 数组 : 


人 
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Sub 获取 数组 下 界 范围 () 


Dim aData(-100 To 100, 5 To 15, -3 To 4) 
Dim strl As String 


strl = "数组 各 维 的 下 界 为 : " & vbNewLine 

strl = strl & "第 1 维 : " & LBound(aData, 1) & vbNewLine 
strl = strl & "第 2 维 : " & LBound(aData, 2) & vbNewLine 
strl = strl & "第 3 维 : " & LBound(aData, 3) & vbNewLine 
strl = strl & vbNewLine & "数组 各 维 的 上 界 为 : " & vbNewLine 
strl = strl & "第 1 维 : " & UBound(aData, 1) & vbNewLine 
strl = strl & "第 2 维 : " & UBound(aData, 2) & vbNewLine 
strl = strl & "第 3 维 : " & UBound(aData, 3) & vbNewLine 
MsgBox strl 

End Sub 


运行 以 上 代码 ， 将 显示 如 图 6-8 所 示 的 对 话 框 ， 分 别 显示 出 数组 各 维 的 范围 。 
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图 6-8 数组 下 标 范围 


6.6 ”数组 使 用 实例 


本 章 前 面 的 内 容 介 绍 了 使 用 数组 各 方面 的 内 容 ， 本 节 以 实例 形式 演示 数组 的 使 用 
方法 。 


6.6.1 数据 排序 


在 Excel 中 可 以 方便 地 对 单元 格 区 域 中 的 数据 进行 排序 。 本 例 使 用 VBA 程序 首先 让 用 
户 输入 10 个 数据 ， 然 后 使 用 冒 泡 排序 法 对 这 10 个 数据 进行 排序 。 
在 VBE 模块 中 编写 以 下 代码 : 


Option Base 1 
sub 数据 排序 () 
Dim i As Integer, j As Integer 
Dim k 
Dim s(10) As Integer 
For Tm LT To 10 
s (i) =Application.InputBox ("输入 第 " &i&" 个 数据 : "，" 输 入 数组 "，，，，，， 
1) 
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Next 
Bor 
For ji 1T0 10 
If s(i) < s(j) Then 


t = (i) 
s(i) = s(j) 
s(j) = 七 
End If 
Next 
Next 


For Each k In s 
Debug.Print k 
Next 
End Sub 


运行 上 面 的 代码 ， 弹 出 如 图 6-9 所 示 的 对 话 框 ， 提 示 用 户 输入 数据 。 循 环 程序 要 求 用 
户 输 入 10 个 数据 。 最 后 在 【立即 窗口 】 输 出 排序 的 结果 ， 如 图 6-10 所 示 。 


图 6-9 【输入 数组 】 对 话 框 图 6-10 ”排序 结果 


6.6.2 ”彩票 幸运 号 码 


本 例 结合 数组 和 随机 函数 的 知识 ， 生 成 指定 数量 的 彩票 幸运 号 码 。 本 例 生成 的 彩票 号 


码 每 注 由 7 位 数 构成 , 首先 让 用 户 输入 产生 的 注 数 , 再 使 用 循环 语句 生成 指定 注 数 的 号 码 。 
在 模块 中 编写 以 下 代码 : 


Option Base 1 
Sub 幸运 号 码 () 
Dim n As Integer, i As Integer, j As IntegeL 
Dim 1() As Integer 
n = Application.InputBox(" 请 输入 需要 产生 幸运 号 码 的 数量 : "，" 幸 运 号 码 "，，，,，， 
2) 
ReDim 1 (P，7) Rs Integer 
For a 1 Ten 
For J st To7 
Randomize 
1(4, 3) = Int(10 * Road) 
Next 
Next 
For i1=1Ton 
Poorest ea LT 
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Debug.Print 1(i, j); 
Next 
Debug .Print 
Next 
End Sub 


运行 上 面 的 宏 ， 弹 出 如 图 6-11 所 示 的 对 话 框 ,提示 用 户 输入 数据 。 输 入 生成 幸运 号 码 
的 数量 后 ， 单 击 【确定 】 按钮 将 在 【立即 窗口 】 列 表 框 中 输出 生成 的 幸运 号 码 ， 如 图 6-12 
所 示 。 


图 6-11 输入 数据 图 6-12 生成 幸运 号 码 


6.6.3 ”用 数组 填充 单元 格 区 域 


在 Excel 中 要 处 理 大 量 数据 时 ， 可 使 用 循环 从 各 单元 格 中 读 入 数据 ， 经 过 加 工 处 理 后 
再 写 回 单元 格 区 域 中 。 这 种 方式 比 在 数组 中 处 理 数据 的 速度 要 慢 。 因 此 ， 如 果 有 大 量 的 数 
据 需 要 处 理 时 ， 可 先 将 数据 保存 到 数组 中 ， 经 过 加 工 处 理 后 ， 再 将 数组 的 数据 填充 到 单元 
格 区 域 。 

在 Excel 工作 表 中 ， 工 作 表 是 一 个 二 维 结构 ， 由 行 和 列 组 成 。 这 种 特性 与 二 维 数组 类 
似 ， 因 此 可 以 很 方便 地 将 工作 表单 元 格 区 域 与 二 维 数组 进行 相互 转换 。 通 过 以 下 语句 可 将 
单元 格 区 域 赋 值 给 一 个 二 维 数组 。 


myarr = Range(Cells(1, 1), Cells(5, 5)) 


反 过 来 ， 也 可 将 二 维 数组 中 的 值 快 速 地 赋值 给 一 个 单元 格 区 域 ， 如 以 下 语句 将 二 维 数 
组 myar 中 的 值 赋值 给 单元 格 区 域 Rng。 


Rng.Value = arr 
本 例 在 模块 中 编写 以 下 代码 ， 用 数组 来 处 理工 作 表 中 单元 格 的 数据 。 


Option Base 1 
Sub 数组 填充 单元 格 区 域 () 
Dim i Rs Long, j Rs Long 
Dim col As Long, row As Long 
Dim arr() As Long 
row = Application.InputBox (prompt :=" 输 入 行 数 : "，Type:=2) 
col = Application.InputBox (prompt :=" 输 入 列 数 : "，Type:=2) 
ReDim arr(ow，col) 
For i = 1 To row 
For j= 1 To col 


i 
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Next 
Next 
Set Rng = Sheets(1) .Range(Cells(1, 1), Cells(row, col)) 
Rng.Value = arr 
End Sub 


为 了 运行 上 面 的 代码 ， 在 Excel 工作 表 中 增加 一 个 【填充 数据 】 按 钮 ， 单 击 该 按钮 ， 
弹出 如 图 6-13 所 示 的 对 话 框 ， 分 别 输入 数组 的 行 和 列 。 


图 6-13 输入 行 和 列 


运行 程序 VBA 代码 生成 一 个 二 维 数组 ， 最 后 填充 到 工作 表 中 ， 如 图 6-14 所 示 。 


A B c D E 下 C 有 
1 1 2 3 4 5 
2 6 7 8 9 10 
3 11 12 13 14 15 填充 数据 
4 16 17 18 19 20 
5 21 22 23 24 25 
6 26 27 28 29 30 
了 31 32 33 34 35 
8 36 37 38 39 40 
9 41 42 43 4 45 
10 46 47 4 49 50 
11 
图 6-14 填充 数据 
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过 程 是 一 个 VBA 语句 块 ， 包 含 在 声明 语句 (Function、Sub、Get、Set) 和 匹配 的 End 
声明 中 。 


7.1 过 程 的 相关 概念 


VBA 中 的 所 有 可 执行 语句 都 必须 位 于 某 个 过 程 内 。 可 以 将 整个 应 用 程序 编写 为 单个 大 
的 过 程 ， 但 如 果 将 它 分 解 为 多 个 较 小 的 过 程 ， 代 码 就 更 容易 阅读 。 


7.1.1 分 解 大 过 程 


“结构 化 编程 ”是 一 种 强调 程序 模块 化 和 应 用 程序 内 的 分 层 结构 的 方法 。 在 VBA 中 ， 
实现 结构 化 编程 的 最 直接 方法 是 合理 地 使 用 过 程 将 应 用 程序 分 解 为 离散 的 逻辑 单元 。 调 试 
各 个 单独 的 单元 比 调试 整个 程序 更 容易 。 还 可 以 在 其 他 程序 中 使 用 为 某 个 程序 开发 的 过 程 ， 
而 通常 只 需 少量 修改 甚至 不 需 修改 。 

对 于 复杂 的 程序 ， 可 将 其 分 解 为 多 个 小 过 程 ， 以 方便 程序 的 调试 。 将 大 过 程 分 解 为 独 
立 小 过 程 的 步骤 如 下 : 

(1) 标识 代码 中 一 个 或 多 个 独立 的 部 分 。 

(2) 对 于 每 个 独立 的 部 分 ， 将 源 代码 移出 大 过 程 ， 并 用 Sub 和 End Sub 语句 将 其 括 
起 来 。 

(3) 在 大 过 程 中 已 移 除 代码 部 分 的 地 方 ， 添 加 一 个 调用 Sub 过 程 的 语句 。 


全 提示 : 如 果 新 过 程 需要 将 值 返 回 大 过 程 ， 则 可 以 定义 Function 过 程 。 


7.1.2 ”过程 的 类 型 


VBA 中 的 过 程 可 分 为 以 下 3 类 。 

口 VBA 子 过 程 : 用 于 执行 代码 后 不 返回 值 的 情况 ， 它 们 以 关键 字 Sub 开头 ， 并 以 关 
键 字 End Sub 结束 。 在 Excel 中 录制 的 宏 就 是 这 种 过 程 。 

口 Function 函数 过 程 : 用 于 执行 代码 后 返回 计算 结果 的 情况 ,它们 以 关键 字 Function 
开头 ， 以 关键 字 End Function 结束 。 使 用 Function 函数 过 程 可 创建 Excel 的 扩展 
函数 。 
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口 Property 过 程 : 用 于 自 定 义 对 象 。 使 用 属性 过 程 可 设置 和 获取 对 象 属性 的 值 ， 或 者 
设置 对 另外 一 个 对 象 的 引用 。 该 类 过 程 将 在 本 书 第 27 章 进行 详细 介绍 。 

最 常用 的 是 Function 函数 过 程 和 Sub 子 过程 ， 它 们 的 区 别 如 下 : 

口 Sub 过 程 不 能 返回 值 ， 而 Function 函数 可 以 返回 一 个 值 ， 因 此 可 以 像 Excel 内 部 函 
数 一 样 在 表达 式 中 使 用 Function 函数 。 

口 Sub 过 程 可 作为 Excel 中 的 宏 来 调用 ， 而 Function 函数 不 会 出 现在 “选择 宏 ” 对 话 
框 中 , 如 果 要 在 工作 表 中 调用 Function 函数 , 则 可 以 像 使 用 Excel 内 部 函数 一 样 使 


用 该 函数 。 
口 在 VBA 中 ，Sub 过 程 可 作为 独立 的 基本 语句 调用 ， 而 Function 函数 通常 作为 表达 
式 的 一 部 分 。 


会 注意: Function 函数 也 可 像 Sub 一 样 作为 独立 的 语句 调用 ， 只 是 没 办 法 接收 函数 的 返回 
值 ， 也 就 失去 了 函数 的 意义 了 。 


7.2 定义 Sub 过 程 


在 使 用 模块 之 前 ， 需 要 先 对 其 进行 定义 。 在 Excel 中 录制 宏 时 ， 录 制 的 宏 代码 将 自动 
创建 一 个 Sub 过 程 。 除 此 之 外 ， 在 VBE 开发 环境 中 还 可 以 使 用 以 下 两 种 方式 定义 过 程 : 

口 使 用 窗 体 创建 过 程 的 结构 ， 再 在 过 程 中 编写 相应 的 代码 。 

口 在 模块 中 直接 输入 代码 来 定义 过 程 。 


7.2.1 使 用 对 话 框 定义 子 过 程 


VBA 开发 环境 中 提供 了 一 个 【添加 过 程 】 对 话 框 ， 通 过 该 对 话 框 可 方便 地 向 当前 模块 
中 添加 过 程 。 具 体操 作 步 骤 如 下 : 

(1) 在 Excel 中 按 快 捷 键 Altr+F11 进入 VBE。 

(2) 单 击 主 菜 单 【 插 入 】| 【过程 命令 ,将 打开 如 图 7-1 所 示 的 【添加 过 程 】 对 话 框 。 


7-1 【添加 过 程 】 对 话 框 


全 
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全 提示 : 使 用 图 7-1 所 示 对 话 框 可 以 插入 一 个 新 的 Sub 过 程 ，Function 过 程 或 属性 过 程 。 
还 可 以 设置 Public 或 Private 的 有 效 范围 ， 并 使 过 程 中 所 有 的 区 域 变量 成 为 过 程 
变量 。 


(3) 在 【名 称 】 文 本 框 中 输入 过 程 的 名 称 、 在 【类 型 】 选 项 中 选择 【 子 程 序 】 单 选 
按钮 。 

(4) 在 【范围 】 选 项 中 选中 【公共 的 】 单 选 按 钮 ， 设 置 过 程 为 全 局 的 〈 即 在 工程 的 各 
模块 中 都 可 以 调用 该 过 程 》， 将 在 过 程 前 面 添 加 Public 关键 字 。 

还 可 根据 需要 选中 下 方 的 【把 所 有 局 部 变量 声明 为 静态 变量 】 复 选 框 ， 如 果 选 中 该 复 
选 框 ， 将 在 过 程 名 前 面 添加 Static 关键 字 。 

(5) 设置 好 以 上 参数 后 ， 单 击 【 确 定 】 按 钮 ，VBA 将 自动 生成 过 程 的 结构 代码 ， 如 
图 7-2 所 示 。 


图 7-2 过程 结 构 代 码 


7.2.2 ”使 用 代码 创建 Sub 过 程 


大 多 数 开发 人 员 更 习惯 于 通过 手工 输入 的 方式 来 创建 Sub 过 程 。 这 样 更 利于 了 解 创建 
Sub 过 程 中 各 元 素 的 作用 。Sub 过 程 的 结构 如 下 : 
[Private | Public | Friend] [static] Sub 过 程 名 [ (参数 列表 ) ] 
[语句 序列 1] 


[Exit Sub] 
[语句 序列 2] 


End Sub 


过 程 由 Sub 和 End Sub 及 之 间 的 VBA 代码 来 构成 。 其 中 在 Sub 前 面 可 加 上 限制 过 程 
作用 域 的 关键 字 ， 主 要 有 以 下 几 个 。 

口 Private: 表示 只 有 在 包含 其 声明 模块 中 的 其 他 过 程 可 以 访问 该 Sub 过 程 。 

口 Public: 表示 所 有 模块 的 所 有 其 他 过 程 都 可 访问 这 个 Sub 过 程 。 如 果 在 Sub 前 面 省 
略 关键 字 ， 则 表示 其 为 Public。 

口 Friend: 只 能 在 类 模块 中 使 用 。 表 示 该 Sub 过 程 在 整个 工程 中 都 是 可 见 的 ， 但 对 对 
象 实例 的 控制 者 是 不 可 见 的 。 

口 Static: 表示 在 调用 之 间 保 留 Sub 过 程 的 局 部 变量 的 值 。Static 属性 对 在 Sub 之 外 
声明 的 变量 不 会 产生 影响 ， 即 使 过 程 中 也 使 用 了 这 些 变 量 。 


Le 
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全 注意 : 每 一 个 过 程 都 必须 有 一 个 名 称 ， 通 过 过 程 名 称 来 调用 该 过 程 。 过 程 名 称 的 命名 应 
符合 标识 符 的 命名 规则 。 


End Sub 语句 标志 着 Sub 过 程 的 结束 。 为 了 能 正确 运行 , 每 个 Sub 过 程 必须 有 一 个 End 
Sub 语句 ， 当 程序 执行 到 该 语句 时 就 结束 该 过 程 的 运行 。 另 外 ， 在 过 程 中 可 以 使 用 一 个 或 
多 个 Exit Sub 语句 直接 退出 过 程 的 执行 。 


全 注意 ; 一 个 过 程 中 不 能 包含 其 他 过 程 ， 因 此 其 起 始 和 结束 语句 必须 位 于 其 他 任何 过 程 
之 外 。 


了 解 Sub 过 程 结构 及 各 语句 的 作用 后 ， 就 可 以 在 代码 窗口 中 创建 Sub 过 程 了 。 下 面 演 
示 有 具体 的 操作 步骤 : 

(1) 进入 VBE 操作 环境 。 

(2) 双击 【工程 资源 管理 】 窗 口中 的 【模块 1】 命 令 ， 打 开 代码 窗口 。 

(3) 在 代码 窗口 中 输入 “Sub 手工 创建 Sub 过 程 ”， 并 按 Enter 键 。 

(4) 系统 自动 在 过 程 名 后 面 添加 一 对 括号 ， 并 自动 生成 End Sub 语句 。 

(5) 在 过 程 结构 中 输入 以 下 代码 : 

Sub 手工 创建 sub 过 程 () 


MsgBox "这 是 手工 输入 代码 创建 的 sub 过程 ! " 
End Sub 


7.3 定义 Function 函数 过 程 


Function 函数 过 程 的 创建 方法 与 Sub 过 程 的 方法 类 似 。 在 使 用 Function 函数 时 ， 一 般 
需要 使 用 一 个 变量 来 接收 返回 值 。 


7.3.1 ”使 用 对 话 框 定义 函数 过 程 
通过 对 话 框 创建 函数 过 程 的 方法 与 创建 Sub 子 过 程 相似 ， 具 体操 作 步骤 如 下 : 


(1) 在 Excel 中 按 快 捷 键 Alt+F11 进入 VBE。 
(2) 单 击 主 菜单 【插入 】| 【过程 】 命令, 将 打开 如 图 7-3 所 示 的 【添加 过 程 】 对 话 框 。 


7-3 【添加 过 程 】 对 话 框 
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(3) 在 【名 称 】 文 本 框 中 输入 函数 过 程 的 名 称 、 在 【类 型 】 选 项 中 选择 【函数 】 单 选 
按钮 。 

(4) 在 【范围 】 选 项 中 选择 【公共 的 】 单 选 按钮 ， 设 置 过 程 为 全 局 的 《〈 即 在 工程 的 各 
模块 中 都 可 以 调用 该 函数 过 程 )》 ， 将 在 函数 过 程 前 面 添加 Public 关键 字 。 

还 可 根据 需要 选中 下 方 的 【把 所 有 局 部 变量 声明 为 静态 变量 】 复 选 框 ， 如 果 选 中 该 复 
选 框 ， 将 在 函数 过 程 名 前 面 添加 Static 关键 字 。 

(5) 设置 好 以 上 参数 后 ， 单 击 【 确 定 】 按 钮 ，VBA 将 自动 生成 函数 过 程 的 结构 代码 ， 
如 图 7-4 所 示 。 


图 7-4 函数 过 程 结构 代码 


7.3.2 ”使 用 代码 创建 Function 过 程 


要 手工 输入 代码 创建 Function 函数 ， 首 先 要 了 解 Function 结构 。 其 语法 格式 如 下 : 


[Public | Private | Friend] [Static] Function 函数 名 [ (参数 列表 )] [As 返回 
类 型 ] 

语句 序列 1 

函数 名 = 表达 式 1 

Exit Function 

语句 序列 2 

函数 名 = 表达 式 2 


End Function 

可 以 看 出 ，Function 函数 的 结构 与 Sub 过 程 的 结构 很 相似 ， 下 面 介 绍 二 者 的 不 同 之 处 : 

口 在 声明 函数 名 的 第 一 行使 用 “As 返回 类 型 ”定义 函数 的 返回 值 类 型 。 

Function 函数 名 [ (参数 列表 ) ] [As 返回 类 型 ] 

口 在 函数 体内 ， 通 过 给 函数 名 赋值 来 返回 计算 结果 。 

函数 名 = 表达 式 1 

如 果 在 函数 体内 没有 上 面 的 语句 ， 则 该 函数 返回 一 个 默认 值 : 数值 函数 返回 0， 字 符 
串 函数 返回 空 字符 串 。 

例如 ， 使 用 以 下 代码 定义 生成 指定 范围 内 的 随机 整数 的 函数 : 


Function fTest1l(a Rs Integer, b Rs Integer) Rs Integer 
Dim t As Integer 
Randomize 


“2 
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IE a > b Then 


t=a 
a = b 
了 二 二 
End If 


fTestl = Int(Rnd * (b - a)) +a 
End Function 


以 上 函数 将 返回 a~b 之 间 的 一 个 随机 整数 。 
7.4 过程 的 调用 


创建 过 程 的 目的 就 是 将 一 个 应 用 程序 划分 为 若干 个 小 的 模块 ， 每 个 小 模块 完成 一 个 具 
体 的 功能 ， 最 后 通过 组 合 这 些 过 程 来 完成 一 个 大 的 任务 。 

对 于 Sub 和 Function 过 程 ， 其 调用 方式 有 相同 之 处 ， 也 有 不 同 之 处 ， 本 节 分 别 介 绍 这 
两 种 过 程 的 调用 方式 。 


7.4.1 调用 Sub 过 程 

在 程序 中 调用 Sub 过 程 有 两 种 方式 : 一 是 把 过 程 名 字 放 在 一 个 Call 语句 中 ; 另 一 种 是 
把 过 程 名 作为 一 个 语句 来 使 用 。 

1. 用 Call 语 句 调用 Sub 过 程 

用 Call 语句 可 将 程序 执行 控制 权 转 移 到 一 个 Sub 过 程 或 Function 过 程 中 , 在 过 程 中 遇 
到 End Sub 或 Exit Sub 语句 后 ， 再 将 控制 权 返 回 到 调用 程序 的 下 一 行 。 

Call 语句 的 语法 格式 很 简单 : 

Call 过 程 名 (过 程 参数 列表 ) 


如 果 使 用 Call 语句 来 调用 一 个 需要 参数 的 过 程 ， 则 “参数 列表 ”必须 要 加 上 括号 ， 如 
果 过 程 没 有 参数 ， 则 可 省 略 过 程 名 后 的 括号 。 
例如 以 下 代码 : 


Call TestSub 
将 调用 过 程 “TestSub”。 
2. 将 过 程 作为 一 个 语句 


在 调用 过 程 时 ， 如 果 省 略 Call 关键 字 ， 也 可 调用 过 程 。 与 使 用 Call 关键 字 不 同 的 是 ， 
如 果 过 程 有 参数 ， 这 种 调用 方式 必须 要 省 略 “ 参 数列 表 ” 外 面 的 括号 。 例 如 : 

Call Test(a, b) 

可 改 为 以 下 形式 : 


“las 
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Te ap 


7.4.2 调用 Function 过 程 


有 两 种 方法 可 以 调用 Function 函数 : 一 种 是 在 工作 表 的 公式 中 调用 它 ， 另 一 种 是 从 
VBA 的 另外 一 个 过 程 里 调用 它 。 


1. 在 工作 表 中 调用 函数 


自 定义 Function 函数 和 系统 内 置 函数 一 样 ， 可 以 对 Excel 工作 表 的 公式 引用 。 如 果 不 
知道 Function 函数 的 名 称 或 参数 ， 可 以 使 用 【插入 函数 】 对 话 框 帮助 用 户 向 工作 表 中 输入 
这 些 函 数 。 

例如 : 在 VBA 中 已 经 编写 了 一 个 Function 函数 fTest， 在 工作 表 中 引用 该 函数 的 过 程 
如 下 : 

(1) 返回 到 Excel 窗口 ， 单 击 选择 一 个 单元 格 。 

(2) 在 【公式 】 选 项 卡 的 【函数 库 】 组 中 ， 单 击 【 插 入 函数 】 按 钮 ， 将 打开 如 图 7-5 
所 示 的 【插入 函数 】 对 话 框 。 在 类 别 下 拉 列 表 中 选择 “用 户 定义 ”， 下 方 的 函数 列表 将 显 
示 定 义 的 函数 。 

(3) 然后 选择 一 个 自 定 义 函 数 fTest， 单 击 【 确 定 】 按 钮 ， 将 打开 如 图 7-6 所 示 的 【 函 
数 参数 】 对 话 框 ， 在 该 对 话 框 中 可 输入 函数 所 需要 的 参数 。 


或 选 振 朱 别 民 ) ;| 用 户 定义 
过 择 函 站 QD 


ii ae 


Test] fa 
没有 帮助 信息 


图 7-5 【插入 函数 】 对 话 框 图 7-6 【函数 参数 】 对 话 框 
(4) 输入 完 参数 后 ， 单 击 【 确 定 】 按 钮 ， 完 成 公式 的 输入 。 
2. 在 VBA 代 码 中 调用 函数 


在 VBE 开发 环境 中 ， 不 能 像 Sub 过 程 一 样 按 F5 键 来 运行 Function 函数 。 必 须 从 另 一 
个 过 程 里 调用 Function 函数 。 
Function 函数 的 调用 比较 简单 ， 可 以 像 使 用 VBA 内 部 函数 一 样 来 调用 Function 函数 。 
它 与 内 部 函数 没什么 区 别 ， 只 不 过 内 部 函数 VBA 由 系统 提供 ， 而 Function 函数 是 由 用 户 
自己 定义 的 。 
例如 ， 下 面 的 代码 调用 7.3.2 节 定 义 的 fTestl 函数 ， 并 将 计算 结果 保存 到 变量 RR 中 。 
.123 。 
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Sub 生成 随机 数 () 


Dim R As Integer, I As Integer, u As Integer 
I = Val (InputBox ("请 输入 随机 数 的 下 限 : "， "设置 下 限 "，1) ) 
u = Val (InputBox ("请 输入 随机 数 的 上 限 : "， "设置 上 限 "，100) ) 


R = fTest1(I, u) 
MsgBox "生成 的 随机 数 为 : " & R 
End Sub 


还 可 将 Function 函数 作为 表达 式 的 一 部 分 ， 使 用 其 返回 值 参加 表达 式 的 运算 。 例 如 
rs=r+ ETestl(1，100) 
在 代码 中 也 可 像 调用 Sub 过 程 一 样 ， 直 接 输 入 函数 的 名 称 ， 后 面 是 参数 〈 参 数 不 能 用 
括号 引起 来 ) ， 如 以 下 代码 : 
ETest1 1, 100 
这 种 方式 下 ， 没 有 变量 接收 函数 的 返回 值 ， 所 以 得 不 到 运行 结果 。 虽 然 语法 上 没有 错 
误 ， 但 是 没有 什么 实际 意义 。 


7.$ 过程 的 参数 传递 


为 了 使 过 程 更 具有 通用 性 ， 很 多 过 程 都 需要 设置 参数 ， 传 递 不 同 的 参数 给 过 程 ， 可 使 
执行 的 结果 不 同 。 对 于 有 参数 的 过 程 ， 在 调用 时 必须 将 实际 参数 传递 给 过 程 ， 完 成 形 参与 
实 参 的 结合 ， 过 程 再 使 用 实 参 执行 代码 。 


7.5.1 形 参 与 实 参 的 结合 


形 参 是 形式 参数 的 简称 ， 是 在 Sub 过 程 的 定义 中 出 现 的 变量 名 ， 因 其 没有 有 具体 的 值 ， 
只 是 形式 上 的 参数 ， 所 以 称 为 形 参 。 

实 参 是 实际 参数 的 简称 ， 是 在 调用 Sub 过 程 时 传递 给 Sub 过 程 的 值 。 在 VBA 中 实 参 
可 以 是 常量 、 变 量 、 数 组 或 对 象 类 的 数据 。 

在 VBA 中 ， 形 参与 实 参 的 结合 有 两 种 方式 : 

1. 按 位 置 结合 

大 多 数 程序 语言 调用 子 过 程 时 都 是 使 用 按 位 置 结 合 形 参与 实 参 。 在 这 种 方式 下 ， 调 用 
Sub 过 程 时 使 用 的 实际 参数 次 序 必 须 与 定义 Sub 过 程 时 设置 的 参数 次 序 相对 应 。 

例如 : 使 用 以 下 代码 定义 Sub 子 过 程 。 


Function fTestl(a As Integer, b As Integer) As Integer 


End sub 
子 过 程 中 定义 了 两 个 参数 ， 可 使 用 以 下 语句 调用 该 子 过 程 : 
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Call fTest1(1, 100) 


此 时 ，Test 子 过 程 的 形 参 与 实 参 的 结合 过 程 为 :将 常量 1 赋值 给 变量 a， 常 量 100 赋 
值 给 变量 b。 


2. 按 命名 参数 方式 结合 


形 参 与 实 参 的 另 一 种 结合 方式 是 按 形 参 名 称 来 进行 ， 即 在 调用 过 程 时 ， 输 入 形 参 的 名 
称 ， 将 形 参 名 称 与 实 参 用 “:=” 符 号 连接 起 来 。 与 按 位 置 结合 方式 不 同 ， 使 用 这 种 方式 时 ， 
调用 过 程 的 参数 位 置 可 随意 设置 。 

例如 : 使 用 命名 结合 的 方式 调用 上 面 定义 的 “fTest1” 过 程 : 

Call fTestl (argl:=1, arg2:=100, arg2:=2) 

或 

Call fTestl (arg2:=100, argl:=1) 


都 可 得 到 同样 的 效果 。 
按 命名 参数 方式 结合 形 参 和 实 参 ， 在 输入 代码 时 要 增加 一 些 工 作 量 ， 但 其 好 处 也 显 而 
易 见 ， 通 过 这 种 方式 可 以 改变 过 程 调用 的 可 读 性 ， 减 少 程序 出 错 。 


3. 按 位 置 和 名 称 混合 结合 参数 
在 单个 过 程 调用 中 ， 可 以 同时 通过 位 置 和 名 称 提供 参数 ， 如 下 例 所 示 : 


Call fTest1(1, arg2:=100,) 


在 上 面 的 代码 中 ,由 于 arg2 是 通过 名 称 传递 的 ， 所 以 没有 必要 用 额外 的 逗号 来 保留 省 
略 的 age 参数 的 位 置 。 
如 果 同 时 通过 位 置 和 名 称 提 供 参数 ， 那 么 定位 参数 都 必须 放 在 前 面 。 通 过 名 称 提 供 了 
-个 参数 后 ， 其 余 的 参数 必须 都 通过 名 称 提 供 。 


7.5.2 按 传 值 方式 传递 参数 


在 VBA 中 ， 实 参 可 通过 两 种 方式 将 数据 传递 给 形 参 ， 即 传 地 址 和 传 值 。 传 值 就 是 将 
实 参 的 值 作 为 一 个 副本 ， 赋 值 给 形 参 〈 相 当 于 执行 一 次 赋值 操作 ) ， 而 不 是 传送 实 参 的 地 
址 给 形 参 。 定 义 过 程 时 ， 在 形 参 的 前 面 添加 ByVal 关键 字 ， 则 该 参数 就 按 传 值 方式 传递 ; 
否则 用 传 地 址 方式 传递 。 

使 用 传 值 方式 传递 参数 时 ， 传 递 的 只 是 变量 的 副本 ， 如 果 过 程 改 变 了 形 参 的 值 ， 那 么 
所 做 的 改变 也 只 在 过 程 内 部 起 作用 ， 不 会 影响 到 调用 程序 中 变量 的 值 。 

例如 ， 定 义 以 下 过 程 代码 : 

Sub 传 值 测试 (ByVal a As Integer) 

a=a+l 


Debug. Print " 子 过 程 中 的 变量 A=" & a 
End Sub 


a 
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过 程 中 用 ByVal 关键 字 将 参数 定义 为 传 值 方式 。 
Sub 调用 传 值 测试 () 


Dim b Rs Integer 

b = 3 

Debug.Print " 主 程序 中 变量 B=" & b 

传 值 测试 b 

Debug.Print " 主 程序 中 变量 B=" & b 
End Sub 


执行 以 上 过 程 后 【立即 窗口 】 列 表 框 中 显示 的 内 容 如 图 7-7 所 示 。 


i 


程序 中 变量 B=3 


图 7-7 【立即 窗口 】 列 表 框 


从 图 7-7 的 运行 结果 可 以 看 出 ， 主 程序 中 的 变量 b 和 子 过 程 中 的 变量 a 之 间 是 被 隔离 
的 ， 即 在 子 过 程 中 改变 了 变量 a 的 值 ， 并 不 会 影响 主 程序 中 的 变量 b 的 值 。 

在 程序 中 使 用 传 地址 比 传 值 的 效率 高 ， 但 是 在 传 地 址 方式 中 ， 形 参 不 是 一 个 真正 的 局 
部 变量 ， 有 可 能 对 程序 产生 不 必要 的 影响 。 如 果 没 有 特殊 要 求 ， 在 过 程 中 应 尽量 使 用 这 种 
方式 传递 参数 。 


7.5.3 ” 按 传 地 址 方式 传递 参数 


传 地 址 是 VBA 默认 的 方式 , 在 定义 过 程 时 ， 如 果 在 形 参 前 面 有 关键 字 ByRef， 则 该 参 
数 通 过 传 地 址 的 方式 传递 。 

传 地 址 是 指 将 实 参 变量 的 地 址 传递 给 形 参 ， 这 时 形 参 和 实 参 都 代表 同一 个 内 存 区 域 。 
所 以 ， 在 过 程 中 对 形 参 的 值 进 行 了 改变 ， 返 回 到 调用 程序 后 ， 使 用 实 参 变量 名 也 可 访问 到 
改变 后 的 值 。 

例如 : 编写 以 下 VBA 代码 ， 使 用 形 参 传 地 址 方式 进行 传递 。 

sub 传 地 址 测试 (ByRef a As Integer) 

和 


Debug .Print " 子 过 程 中 的 变量 A=" & a 
End Sub 


使 用 以 下 过 程 调用 “ 传 地 址 测试 ” 子 过 程 。 


Sub 调用 传 地 址 过 程 () 
Dim b As Integer 
b=3 
Debug .Print " 主 程序 中 变量 B=" & b 
传 地 址 测试 b 
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Debug.Print " 主 程序 中 变量 B=" & b 
End Sub 


程序 首先 给 变量 b 赋 初 值 ， 并 输出 变量 b 的 值 (为 3) ， 接 着 调用 “ 传 地 址 测试 ” 子 
过 程 ， 使 用 传 地 址 方式 传递 变量 ， 使 子 过 程 的 形 参 变量 a 的 传 地 址 与 调用 过 程 中 的 实 参 变 
量 b 的 地 址 相同 。 在 子 过 程 中 将 变量 a 增加 1， 并 输入 出 变量 a 的 值 (为 4) ， 返 回调 用 过 
程 后 ， 因 为 变量 b 和 变量 a 是 指向 同一 内 存单 元 的 ， 所 以 变量 b 的 值 也 为 4。 

运行 以 上 程序 后 ，【 立 即 窗口 】 列 表 框 中 的 显示 结果 如 图 7-8 所 示 。 


图 7-8 程序 运行 结果 


前 面 说 过 , Sub 过 程 不 能 返回 运算 结果 。 如果 需 要 Sub 过 程 返回 值 时 , 通过 使 用 ByRef 
方式 来 定义 形 参 就 可 以 将 子 过 程 的 运算 数据 返回 到 调用 程序 中 。 


人 各 注意 : 当 形 参 定义 为 ByRef 形式 时 ， 只 有 当 实 参 为 一 个 变量 时 ， 才 能 按 传 地 址 方式 传递 
参数 ， 如 果实 参 为 一 个 表达 式 或 常量 ， 则 不 能 按 传 地 址 方式 传递 参数 。 


7.5.4 ”传递 数组 参数 


数组 作为 在 内 存 中 的 一 片 连续 区 域 ， 也 可 作为 一 个 参数 传递 给 Sub 子 过 程 进行 处 理 。 
数组 一 般 是 通过 传 地 址 方式 进行 传递 的 。 
例如 : 以 下 代码 为 求 数组 中 最 大 数 的 过 程 。 
Sub 求 最 大 数 (a() As Integer) 
Dim i Rs Integer, max As IntegeL 
max = a(LBound (a)) 
For i = LBound(a) To UBound(a) 
If a(i) > max Then max = a(i) 
Next 
Debug .Print "最 大 数 :" & max 
End Sub 


在 该 过 程 中 ， 将 形 参 定义 为 一 个 数组 。 使 用 数组 作为 形 参 时 ， 必 须 输 入 数组 名 并 加 上 
一 对 室 括 号 。 对 传递 到 过 程 中 的 数组 ， 应 使 用 LBound 函数 和 UBound 函数 获取 其 下 标的 
下 界 和 上 界 ， 然 后 程序 中 才能 遍历 数组 ， 或 对 数组 进行 其 他 相关 的 操作 。 

在 本 例 中 ， 将 最 大 值 保 存在 另 一 个 变量 max 中 ， 所 以 使 用 max 和 每 个 数组 元 素 进 
行 比较 ， 如 果 数 组 元 素 比 max 大 ， 则 将 其 值 赋值 给 max， 确 保 max 中 始终 保存 着 最 大 
的 数 。 

编写 调用 “ 求 最 大 数 ” 的 代码 如 下 : 
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Sub 测试 求 最 大 数 () 


Dim MyArray(5) Rs Integer, i Rs Integer 
Tor w= OUTORS 
MyArray(i) = i*2 
Next 
求 最 大 数 MyArray () 
End Sub 
在 程序 中 ， 调 用 “ 求 最 大 数 ” 子 过 程 ， 并 将 数组 MyArray 作为 参数 传递 到 该 子 过 程 中 
进行 处 理 。 


7.6 可 选 参 数 和 可 变 参 数 


在 创建 VBA 的 过 程 时 ， 除 了 可 使 用 前 面 介 绍 的 方法 设置 参数 按 地 址 或 按 值 传递 之 外 ， 
还 可 以 根据 需要 为 过 程 设置 可 选 参数 和 可 变 参 数 。 


7.6.1 ”可 选 参数 


通常 ， 一 个 VBA 过 程 中 的 形 参 数量 是 固定 的 ， 调 用 时 提供 的 实 参 数量 也 是 固定 的 。 
在 有 些 过 程 中 ， 可 能 有 必须 收集 的 信息 和 可 选 信息 ， 如 收集 顾客 的 信息 时 必须 提供 姓名 、 
性 别 ， 对 于 身份 证 号 码 则 是 可 选 的 〈 可 提供 ， 也 可 不 提供 ) 。 
可 以 指定 过 程 参数 是 可 选 的 ， 并 且 在 调用 过 程 时 不 必 为 其 提供 变量 。“ 可 选 参数 ”在 
过 程 定义 中 由 关键 字 Optional 指示 。 适 用 以 下 规则 : 
口 过 程 定 义 中 的 每 个 可 选 参数 都 必须 指定 默认 值 。 
口 可 选 参数 的 默认 值 必须 是 一 个 常数 表达 式 。 
口 过 程 定 义 中 跟 在 可 选 参数 后 的 每 个 参数 也 都 必须 是 可 选 的 。 
在 过 程 内 部 通过 使 用 IsMissing 函数 来 测试 调用 程序 是 否 传递 了 该 可 选 参数 。 
例如 : 以 下 代码 定义 可 选 参数 : 
Sub 可 选 参数 (strName Rs String，strSex As String，Optional ID) 
With Worksheets ("sheet2") 
.Range ("R2") = strName 
-Range ("B2") = StrSex 
IE Not IsMissing(ID) Then 
.Range ("C2") = ID 
End If 


End With 
End Sub 


该 过 程 有 三 个 参数 , 前 两 个 参数 为 必须 使 用 的 , 最 后 一 个 参数 使 用 了 Optional 关键 字 ， 
表示 该 参数 是 可 选 参 数 。 调 用 该 过 程 时 ， 可 以 提供 2 个 参数 ， 也 可 以 提供 3 个 参数 。 


可 选 参数 " 王 小 凤 "，" 女 " 
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或 : 
可 选 参数 " 王 小 凤 "，" 女 "，"410214198501012345" 


全 注意 ; 过 程 中 可 定义 多 个 可 选 参数 ， 但 可 选 参 数 必 须 放 在 参数 表 的 最 后 ， 而 且 必 须 是 
Variant 类 型 。 


7.6.2 可 变 参数 


无 论 是 固定 参数 还 是 可 选 参数 ， 在 定义 过 程 时 都 已 经 指定 了 参数 的 个 数 。 在 VBA 中 ， 
还 可 以 定义 可 变 参数 ， 即 参数 的 个 数 在 定义 时 是 未 知 的 。 

在 定义 过 程 的 参数 表 时 , 在 最 后 一 个 参数 前 面 加 上 ParamArray 关键 字 , 过 程 将 接受 任 
意 个 数 的 参数 。 


全 注意 : ParamAtray 关键 字 不 能 与 ByVal，ByRef， 或 Optional 一 起 使 用 。 且 使 用 Param 
Atray 定义 的 可 变 参 数 必须 为 Variant 数组 。 


例如 ， 使 用 可 变 参 数 编写 求 和 函数 SUM。 


Sub MySum(intTotal Rs Integer, ParamArray intNum() ) 
Dim i Rs Integer, j As Integer 
For i = LBound(intNum) To UBound (intNum) 
intTotal = intTotal + intNum(i) 
Next 
End Sub 


程序 中 定义 了 两 个 形 参 ， 第 一 个 用 于 返回 计算 的 结果 ， 第 二 个 参数 使 用 ParamArray 
关键 字 将 其 定义 为 可 变 参 数 。 
可 变 参数 为 一 个 数组 ， 在 程序 中 使 用 LBound 函数 和 UBound 函数 获得 数组 下 标的 上 
下 界 ， 然 后 对 其 进行 办 加 ， 并 将 累加 的 结果 保存 在 第 一 个 参数 中 ， 用 于 返回 给 调用 程序 。 
调用 以 上 子 过 程 的 代码 如 下 : 
Sub 调用 可 变 参 数 () 
Dim i As Integer 
MySum &, 15 2 3 Ss 6r “1 8 
Debug.Print i 
End Sub 


在 程序 中 定义 了 一 个 变量 i， 用 来 获得 子 过 程 运算 的 结果 。 

参数 传递 时 ， 将 参数 i 用 传 地 址 方式 传递 给 MySum 子 过 程 的 形 参 intTotal， 将 后 面 的 
“1，2，3，4，5，6，7，8” 作 为 一 个 数组 传递 给 intNum 形 参 。 
全 注意 : ParamArray 只 能 用 于 参数 列表 的 最 后 一 个 参数 , 指明 最 后 这 个 参数 是 一 个 Variant 


元 素 的 Optional 数组 。ParamArray 关键 字 不 能 与 ByVal，ByRef 或 Optional 一 起 
使 用 。 


bl 
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7.7 递归 过 程 


“递归 ”过 程 是 指 调用 自身 的 过 程 。 在 递归 调用 中 ， 一 个 过 程 执行 的 某 一 步 要 用 到 它 
自身 的 上 一 步 〈 或 上 几 步 ) 的 结果 。 
VBA 的 Sub 过 程 和 Function 函数 过 程 都 支持 递归 调用 。 递 归 调 用 分 为 两 种 类 型 ; 
口 直接 递归 ， 即 在 过 程 中 调用 过 程 本 身 。 
口 间接 递归 ， 即 间接 地 调用 一 个 过 程 ， 如 过 程 1 调用 过 程 2， 过 程 2 又 调用 过 程 1 。 
通常 ， 这 不 是 编写 VB 代码 的 最 有 效 方法 。 
在 执行 递归 操作 时 , VBA 把 递归 过 程 中 的 信息 保存 在 堆栈 中 ,过 程 执行 结束 时 从 堆栈 
中 获取 调用 过 程 中 各 变量 的 数据 。 
阶乘 运算 是 一 个 典型 的 递归 操作 ， 下 面 编写 VBA 代码 来 完成 该 操作 。 
Function fact (ByVal n Rs Integer) Rs Integer 
If n <= 1 Then 
Return 1 
Else 
Return fact (n - 1) *n 


End If 
End Function 


在 以 上 代码 中 ， 假 设 参数 n 为 5， 程序 执行 的 过 程 如 表 7-1 所 示 。 
表 7-1 递归 过 程 


利 古 次 富 果 
2 
; 3 
4 一 so 


使 用 递归 过 程 时 ， 应 注意 以 下 几 点 : 

口 限制 条 件 。 在 设计 一 个 递归 过 程 时 ， 必 须 至 少 测试 一 个 可 以 终止 此 递归 的 条 件 ， 
并 且 还 必须 对 在 合理 的 递归 调用 次 数 内 未 满足 此 类 条 件 的 情况 进行 处 理 。 如 果 没 
有 一 个 在 正常 情况 下 可 以 满足 的 条 件 ， 则 过 程 将 陷入 执行 无 限 循环 的 高 度 危险 
之 中 。 

口 内 存 使 用 。 应 用 程序 的 局 部 变量 所 使 用 的 空间 有 限 。 过 程 在 每 次 调用 自己 时 ， 都 
会 占用 更 多 的 内 存 空间 以 保存 其 局 部 变量 的 附加 副本 。 如 果 这 个 进程 无 限 持续 下 
去 ， 最 终 会 导致 StackOverflowException 错误 。 

口 效率 。 几 乎 在 任何 情况 下 都 可 以 用 循环 替代 递归 。 循 环 不 会 产生 传递 变量 、 初 始 
化 附加 存储 空间 和 返回 值 所 需 的 开销 ， 因 此 使 用 循环 相对 于 使 用 递归 调用 可 以 大 
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幅 提高 性 能 。 

口 相互 递归 。 如 果 两 个 过 程 相互 调用 ， 可 能 会 使 性 能 变 差 ， 甚 至 产生 无 限 循 环 。 此 
类 设计 所 产生 的 问题 与 单个 递归 过 程 所 产生 的 问题 相同 ， 但 更 难 检 测 和 调试 。 

口 调用 时 使 用 括号 。 当 Function 过 程 以 递归 方式 调用 自己 时 ， 必 须 在 过 程 名 称 后 加 
上 括号 〈 即 使 不 存在 参数 列表 ) 。 和 否则 ， 函 数 名 就 会 被 视 为 表示 函数 的 返回 值 。 

口 测试 。 在 编写 递归 过 程 时 ， 应 非常 细心 地 进行 测试 ， 以 确保 它 总 是 能 满足 某 些 限 
制 条 件 。 还 应 该 确保 不 会 因为 过 多 的 递归 调用 而 耗 尽 内 存 。 


7.8 常用 过 程 实例 


前 面 介绍 了 Sub 过 程 和 Function 函数 过 程 的 相关 内 容 。 本 节 介 绍 一 些 常用 的 过 程 实例 
代码 ， 可 直接 应 用 到 Excel 应 用 程序 中 。 


7.8.1 计算 个 人 所 得 税 


在 工资 管理 系统 中 ， 需 要 计算 员工 应 缴纳 的 个 人 所 得 税 。 我 国 个 人 所 得 税 税额 按 5% 
至 45% 的 9 级 超额 累进 税率 计算 应 缴 税额 ， 税 率 表 如 图 7-9 所 示 。 个 人 所 得 税 的 计算 公 
式 为 : 

应 纳 个 人 所 得 税 税额 = 应 纳税 所 得 额 X 适 用 税率 -速算 扣除 数 


全 月 应 纳税 所 得 额 

不 超过 500 元 的 

超过 500 元 至 2000 元 的 部 分 
超过 2000 元 至 5000 元 的 部 分 
超过 5000 元 至 20000 元 的 部 分 
| 超过 20000 元 至 40000 元 的 部 分 
超过 40000 元 至 60000 元 的 部 分 
超过 60000 元 至 80000 元 的 部 分 
超过 80000 元 至 100000 元 的 部 分 
超过 100000 元 的 部 分 


7-9 个 人 所 得 税 税率 表 


根据 图 7-9 所 示 的 税率 表 编写 以 下 函数 ， 用 来 计算 出 个 人 所 得 税 : 


Public Function taxes (CUrP Rs Currency, Optional dep Rs Integer = 2000) 
Dim curT As Currency 
curP = curP - dep '1600 为 扣除 数 
IE curP > 0 Then 
Select Case curP 
Case Is <= 500 
curT = curP + 0.05 
Case Is <= 2000 


= 
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curT = (curP - 500) * 0.1 + 25 
Case Is <= 5000 

curT = (curP - 2000) * 0.15 + 125 
Case Is <= 20000 

curT = (curP - 5000) * 0.2 + 375 
Case Is <= 40000 

curT = (curP - 20000) + 0.25 + 1375 
Case Is < 60000 

curT (curP - 40000) * 0.3 + 3375 
Case Is < 80000 

curT = (curP - 60000) * 0.35 + 6375 
Case Is < 100000 

curT = (curP - 80000) * 0.4 + 10375 
Case Else 

curT = (curP - 100000) * 0.45 + 15375 


End Select 

taxes = curT 
Else 

taxes = 0 
End If 


End Function 

编写 好 以 上 代码 后 ， 默 认 情况 下 ， 速 扣 数 为 2000， 可 在 单元 格 中 输入 以 下 公式 计算 个 
人 所 得 税 : 

=taxes (3000) 

如 果 调 整 了 速 扣 数 〈 速 扣 数 不 为 2000) ， 则 可 使 用 以 下 格式 调用 taxes 函数 ， 计 算出 
个 人 所 得 税 : 


=taxes (3000, 2500) 


7.8.2 ”将 数值 转换 为 表格 的 列 号 


在 Excel 工作 表 中 ， 用 户 可 使 用 Al 样式 访问 单元 格 ， 这 种 方式 的 列 用 字母 或 字母 组 
合 来 表示 。 有 时 用 户 可 能 想 知道 单元 格 所 在 列 的 序号 ， 可 以 在 Excel 中 可 按 以 下 方式 获得 : 
Sub 显示 列 号 () 
With Worksheets ("sheet1") 
.Activate 
.Range ("AZ1") .Select 
End With 
MsgBox Selection.Column 
End Sub 


但 是 ， 在 Excel 中 没有 内 置 的 函数 或 方法 获取 指定 列 号 的 字母 。 因 此 ， 需 要 用 户 另 外 
编写 函数 。 下 面 的 函数 即 可 完成 该 功能 。 


Public Function NumtoCol (Numbers As Integer) Rs String 


Rs 
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Dim il As Integer, i2 Rs Integer, i3 As Integer 
Dim sl As String, s2 Rs String, s3 Rs String 
i2 = Numbers \ 26 


EN ' 第 3 位 
i2 = i2 Mod 26 ' 第 2 位 
il = Numbers Mod 26 ' 第 1 位 
If i2 > 0 And il = 0 Then 

il = 26 

Fi 
End If 
If i3 > 0 And i2 = 0 Then 

i2 = 26 

3 
End If 


s3 = Chr(i3 + 64) 
s2 = Chr(i2 + 64) 
sl = Chr(il + 64) 


IE s3 = "@" Then 
If s2 = "@" Then 
NumtoCol = sl 
Else 
NumtoCol 
End If 
Else 
NumtoCol = s3 & s2 & sl 
End If 
End Function 


编写 以 下 VBA 代码 ， 测 试 上 面 的 函数 : 
Sub 测试 显示 列 号 () 


Dim intCol Rs Integer 
intCol = Val (InputBox ("请 输入 列 号 (1 一 16384) : ") ) 
IE intCol < 1 Or intCol > 16384 Then 
MsgBox "输入 的 数据 超过 范围 ， 请 重新 输入 ! " 
Exit Sub 
End If 


s2 & sl 


MsgBox " 列 号 : " & intCol & "， 对 应 的 字母 为 : " & Numtocol (intCol) 
End Sub 


运行 以 上 过 程 ， 显 示 如 图 7-10 所 示 对 话 框 ， 输 入 一 个 列 号 后 ， 将 显示 如 图 7-11 所 示 
的 结果 。 


icrosoft Excel 


请 输入 列 号 C1716384) : 
icrosoft Excel 


图 7-10 输入 列 号 


人 
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7.8.3 大写 金额 转换 函数 


在 用 Excel 进行 财务 统计 时 ， 需 要 将 金额 由 阿拉 伯 数 字 转 换 为 中 文大 写 形 式 ， 通 常 是 
将 单元 格格 式 自 定 义 为 “[dbnum2]& 元 ”。 但 是 对 带 有 小 数 的 数值 却 不 能 得 到 正确 的 结果 ， 
如 在 单元 格 中 输入 1234.5， 转 换 的 结果 却 为 “ 壹 任 起 佰 短 拾 肆 . 伍 元 ”。 

可 以 通过 编写 Function 函数 生成 正确 的 中 文大 写 金额 格式 。 具 体 代码 如 下 : 


Function CapsMoney (curMoney As Currency) Rs String ! 转 换 中 文大 写 金额 函数 
Dim curMoneyl As Long 
Dim il As Long ' 保 存 整数 部 分 (元 部 分 ) 
Dim i2 As Integer ! 保 存 十 分 位 ( 角 部 分 ) 
Dim i3 As Integer ' 保 存 百 分 位 (分 部 分 ) 
Dim sl As String, s2 As String, s3 Rs String ' 保 存 转 换 后 的 字符 串 
curMoneyl1 = Round (curMoney * 100) ' 将 金额 扩大 100 倍 ,并 
进行 四 舍 五 入 
il = Int(curMoneyl / 100) ' 获 取 元 部 分 
i2 = Int(curMoneyl / 10) - il * 10 ' 获 取 角 部 分 
i3 = curMoneyl - il * 100 - i2 * 10 "获取 分 部 分 
s1 = RARPPlication.WorksheetFunction.Text(il，"[dqbnum2]") 
"将 元 部 分 转 为 中 文大 写 
s2 = Application.WorksheetFunction.Text (i2, "[dbnum2] ") 
!' 将 角 部 分 转 为 中 文大 写 
s3 = Application.WorksheetFunction.Text (i3, "[dbnum2] ") 
' 将 分 部 分 转 为 中 文大 写 
sa1L = s1 & "元 " "整数 部 分 
If i3 <> 0 And i2 <> 0 Then ! 分 和 和 角 都 不 为 0 
sl1 = sl & s2 & " 角 " & s3 & "分 " 
If il = 0 Then ' 元 部 分 为 0 
Sl = 82 & " 角 " & s3 & "分 " 
End If 
End If 
If i3 = 0 And i2 <> 0 Then !' 分 为 0, 角 不 为 0 
sl = sl & s2 & " 角 整 " 
IE il = 0 Then ' 元 部 分 为 0 
81 = 82 & " 角 整 
End If 
End If 
If i3 <> 0 And i2 = 0 Then ! 分 不 为 0, 角 为 0 
Bl = sl&s2E& 8s3 & "分 " 
IE il = 0 Then ' 元 为 0 
sl = s3 & "分 " 
End If 
End If 
If Right (sl1，1) = "元 " Then sl = s1 & " 整 " ' 为 "元 "后 加 上 一 个 
证 


CapsMoney = sl 
End Function 
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以 上 Function 函数 将 传递 进来 的 数值 分 割 为 3 部 分 : 元 、 角 、 分 ， 将 这 几 个 部 分 单独 
转换 为 [dbnum2] 格 式 ， 再 根据 出 现 的 各 种 可 能 将 这 3 部 分 与 字符 “元 ”、“ 角 ”、“ 分 ” 
进行 组 合 。 在 进行 组 合 时 ， 应 分 别 考虑 元 、 角 、 分 各 自 为 0 时 的 情况 。 

在 VBA 中 编写 好 函数 后 ， 应 在 Excel 工作 表 中 进行 测试 。 下 面 是 测试 的 步骤 ， 

(1) 切换 到 Excel 界面 中 。 

(2) 选中 一 个 单元 格 ， 在 【公式 】 选 项 卡 的 【函数 库 】 组 中 ， 单 击 【 插 入 函数 】 按 钮 ， 
打开 【插入 函数 】 对 话 框 ， 如 图 7-12 所 示 。 
(3) 选中 CapsMoney 函数 ， 单 击 【 确 定 】 按 钮 ， 打 开 【 函 数 参 数 】 对 话 框 ， 选 择 单 元 


格 “A1” 作 为 参数 ， 如 图 7-13 所 示 。 


ET 

请 和 和 一 条 间 旺 志明 来 二 坟 称 址 全 什么 ， 关 后 得 击 “ 转 到 | 
tb 用具 别 :| 用 户 定 多 司 
活 计 1) 


sm 
Denetion 


Capaleney (eroney) 
没有 各 且 久生 


页 关 洛 了 台 的 才 助 


图 7-12 【插入 函数 】 对 话 框 图 7-13 【函数 参数 】 对 话 框 
(4) 在 单元 格 “A1” 中 输入 各 种 数字 , 检查 经 过 函数 转换 后 的 结果 是 否 正确 , 如 图 7-14 


所 示 。 


| ET ~ © ——£| -CapzMoney(Al) re ~ se) ooney Al) 和 EL -Capsloncy(hl) 
8 5 [Ls Te & 
上 1423 1 1423.05 1 1423.5 
3 a 3 
| ET 
图 7-14 测试 函数 
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将 软件 按照 一 定 的 原则 划分 为 一 个 较 小 的 、 相 对 独立 但 又 相关 的 模块 ， 叫 做 模块 化 设 
计 。 在 VBA 中 ， 也 提供 了 模块 化 的 开发 方法 。 

在 第 7 章 中 ， 介 绍 了 过 程 的 概念 及 定义 方法 ， 在 一 个 模块 中 可 包含 多 个 相关 的 过 程 。 
本 章 介 绍 VBA 中 模块 的 相关 知识 。 


8.1 模块 的 分 类 


在 VBA 中 , 将 每 一 个 Excel 工作 短文 件 作 为 一 个 工程 , 统一 在 工程 资源 管理 器 窗口 中 
进行 管理 。 如 图 8-1 所 示 ， 在 【工程 资源 管理 器 】 窗 口 可 以 看 到 ，Excel 工程 按 模块 管理 应 
用 程序 的 代码 ， 可 包含 4 类 模块 ， 每 类 模块 中 可 包含 多 个 模块 。 


下 YBAProject (模块 . xl1s) 
避 和 食量 crosoft Excel 对 象 
转 ] Sheetl (Sheetl) 
转 ] Sheet2 (税率 表 ) 
Sheet3 (Sheet3) 
Thi sWorkbook 
体 


国 VserFornl 
3 - 合 模块 
嗣 党 用 过 程 
名 类 模块 
1 


图 8-1 工程 资源 管理 器 


1. Microsoft Excel 对 象 


Excel 工作 筹 中 的 每 个 工作 表 都 是 一 个 单独 的 模块 。 用 户 可 在 Excel 工作 表 模 块 中 编写 
代码 ， 控 制 工作 表 中 的 数据 〈 通 过 其 他 模块 也 可 控制 工作 表 中 的 数据 ， 但 若 要 在 VBA 中 
捕获 用 户 操作 工作 表 时 的 事件 ， 则 必须 在 工作 表 模 块 中 编写 代码 ) 。 

有 关 Excel 对 象 的 使 用 内 容 将 在 本 书后 续 章 节 中 进行 介绍 。 

2. 窗 体 


窗 体 模块 为 用 户 自 定 的 对 话 框 或 界面 , 用 来 获取 用 户 的 输入 ,或 显示 输出 结果 .在 VBA 
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工程 中 以 “.frm” 为 文件 扩展 名 的 文件 ， 其 中 包含 窗 体 的 图 形 描述 ;其 控件 以 及 控件 的 属 
性 设置 ， 常数、 变量 和 外 部 过 程 的 窗 体 〈 模 块 ) 及 声明 ; 事件 和 通用 过 程 。 

本 书 第 4 部 分 将 介绍 创建 用 户 窗 体 的 方法 。 

3. 模块 

模块 又 称 为 标准 模块 ， 该 类 模块 只 包含 过 程 、 类 型 以 及 数据 的 声明 和 定义 。 在 标准 模 
块 中 ， 模 块 级 别 声明 和 定义 都 被 默认 为 Public。 

在 Excel 环境 中 录制 的 宏 将 保存 在 【模块 】 中 。 

4. 类 模块 

类 模块 用 来 保存 以 类 或 对 象 方式 编写 的 代码 ， 包 括 其 属性 和 方法 的 定义 。 通 过 创建 类 
模块 ， 在 VBA 中 也 可 以 创建 自己 的 类 和 对 象 。 

本 书 第 27 章 中 将 介绍 创建 类 模块 的 方法 。 


8.2 管理 标准 模块 
本 节 介绍 在 VBE 中 管理 标准 模块 的 方法 ， 包 括 插入 模块 、 删 除 模块 等 操作 方法 。 
8.2.1 插入 模块 
在 VBE 中, 用 模块 来 组 织 代码 。 向 工程 中 插入 模块 时 , 将 自动 生成 名 称 “ 模 块 n”( 其 
中 了 为 自动 增加 的 一 个 数值 ) 。 有 多 种 方法 向 VBE 中 插入 模块 ， 常 见 的 方法 如 下 : 


1. 录制 宏 时 插入 模块 


在 Excel 环境 中 录制 宏 时 ,系统 将 自动 在 工程 中 插入 一 个 VBA 模块 ,并 将 录制 的 宏 代 
码 放 在 该 模块 中 。 


外 技巧 : 在 Excel 工作 簿 打开 期 间 ， 录 制 的 宏 都 将 放 在 一 个 模块 中 。 如 果 关 闭 该 工作 簿 ， 
下 次 再 打开 并 录制 宏 时 ，Excel 又 将 插入 一 个 新 的 模块 。 
2. 使 用 菜单 插入 模块 


在 VBE 环境 中 ， 单 击 主 菜单 【插入 】|【 模 块 】 命 令 ， 可 向 工程 资源 管理 器 中 插入 一 
个 模块 。 


3. 使 用 快捷 菜单 插入 模块 


在 VBE 环境 中 ， 右 击 【 工 程 资源 管理 器 】 窗 口 的 某 个 对 象 ， 将 弹出 快捷 菜单 ， 如 
图 8-2 所 示 ， 执 行 【 插 入 】| 【模块 】 命 令 ， 可 向 工程 资源 管理 器 中 插入 一 个 模块 。 


a 
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图 8-2 ”快捷 菜单 


8.2.2 删除 模块 


如 果 准 备 从 工程 中 删除 一 个 模块 ， 可 按 以 下 步骤 操作 : 
(1) 右 击 【工程 】 资 源 管理 器 窗口 中 需要 删除 模块 的 名 称 “ 模 块 1”， 将 弹出 如 图 8-3 
所 示 的 快捷 菜单 。 
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国 习 导入 文件 中- 
5 导出 文件 四 
ea | 
号 合体 | 动 打 BB. 
出 a 加 ss 
人 寓 月 一 隐 配 (H) 
-a ~ |] 
机 类 ! 
图 8-3 删除 模块 


(2) 在 快捷 菜单 中 选择 【 移 除 模块 1】 命 令 即 可 将 该 模块 删除 。 其 中 的 “模块 1” 是 
准备 删除 的 模块 名 称 。 


全 技巧 在 VBE 环境 中 ， 选 择 需要 删除 的 模块 “模块 1”， 再 单 击 主 菜单 【文件 〗|【 移 
除 模块 1〗 命 令 也 可 从 工程 资源 管理 器 中 删除 “模块 1”。 


8.3 ”模块 的 导入 导出 


正常 情况 下 ，Excel 应 用 程序 中 的 模块 与 Excel 工作 敌 保 存在 一 起 ,用户 只 有 打开 工作 
敌后 才能 查看 模块 的 内 容 。 

对 于 一 些 具有 通用 性 过 程 的 模块 ， 可 将 其 导出 保存 为 单独 的 文件 ， 在 需要 的 工程 中 再 
导入 ， 可 节省 应 用 程序 的 开发 时 间 。 
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8.3.1 导出 模块 


导出 模块 的 操作 步骤 如 下 : 

(1) 在 Excel 2007 中 打开 工作 筹 ， 该 工作 筹 包含 有 要 导出 的 模块 。 

(2) 按 快捷 键 Alt+F11 进入 VBE 环境 。 

(3) 右 击 【 工 程 】 资 源 管理 器 窗口 中 需要 导出 的 模块 名 称 ， 将 弹出 如 图 8-4 所 示 的 快 
捷 菜单 。 

(4) 在 快捷 菜单 中 选择 【导出 文件 】 命 令 ， 将 打开 如 图 8-5 所 示 的 对 话 框 ， 输 入 导出 
文件 的 名 称 “ 导 出 模块 ”后 ， 单 击 【保存 】 按 钮 即 可 将 选中 模块 的 代码 保存 为 一 个 扩展 名 
为 “.bas” 的 Basic 代码 文件 。 


| 
RD [niceZR pt 可 册 


玫 助 oD 


图 8-4 【导出 文件 】 命 令 图 8-5 保存 文件 


(5) 导出 的 扩展 名 为 “.bas” 的 文件 为 文本 文件 格式 ， 可 用 记事 本 打开 ， 查 看 其 中 的 
代码 ， 如 图 8-6 所 示 。 


ttrbute VB_Name ~ “第 用 过 程 ” 
Pubic Function taxes(curP As Currency, Optional dep As Integer = 2000) 
Dim curT As Curency 
-~ dep “1600 为 扣除 涩 


= 2000 
curT = (Cup - 500) * 0.1+ 25 
Case Is <= S000 
CurT = (curP - 2000) * 0.15 + 125 
20000 


CUT = (curp - 20000) * 0.25 + 1375 
Case 1s < 60000 
CurT = (curP - 40000) * 0.3 + 3375 


Case 
curT = (curp - 60000) * 0.35 + 6375 


8-6 ”导出 模块 的 代码 


外 技巧 : 导出 的 对 象 不 同 ， 其 扩展 名 也 不 同 ， 对 于 模块 其 扩展 名 为 “ .bas”; 对 于 窗 体 其 
扩展 为 “ .frm”; 对 于 类 模块 其 扩展 名 为 “ .cls”。 
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8.3.2 导入 模块 


与 导出 操作 相反 ， 导 入 模块 操作 可 将 导出 的 模块 置 入 当前 工程 中 。 对 于 导入 的 模块 ， 
其 使 用 方法 与 在 工程 中 编写 的 代码 〈 或 设计 制作 窗 体 ) 完全 相同 ， 因 此 对 于 一 些 通用 模块 
使 用 导入 的 方法 可 显著 提高 应 用 程序 的 开发 效率 。 将 模块 导入 到 当前 工程 中 有 两 种 方式 : 

口 将 其 他 工程 的 模块 导入 当前 工程 中 。 

口 将 其 他 工程 导出 的 模块 导入 当前 工程 中 。 


1. 导入 其 他 工程 的 模块 


导入 其 他 工程 模块 的 操作 步骤 如 下 : 

(1) 在 Excel 2007 中 打开 两 个 Excel 工作 短 〈 分 别 为 源 模块 所 在 工作 短 “ 模 块 .xls” 和 
需要 导入 模块 的 工作 敌 “ 导 入 模块 .xls”》。 

(2) 按 快捷 键 AltrF11 进入 VBE 环境 。 

(3) 在 【工程 】 资源 管理 器 窗口 中 展开 “模块 .xls”， 找 到 “常用 过 程 ” 模 块 ， 拖 动 到 
“导入 模块 .xls” 列 表 上 ， 如 图 8-7 左 图 所 示 。 松 开 鼠 标 可 看 到 “导入 模块 xls” 下 也 新 增 了 
“常用 过 程 ”模块 ， 如 图 8-7 右 图 所 示 。 


图 8-7 拖 动 模块 


2. 导入 其 他 工程 导出 的 模块 


将 其 他 工程 导出 的 模块 导入 当前 工程 中 ， 具 体操 作 步 骤 如 下 : 

(1) 在 Excel 2007 中 打开 工作 筹 “ 导 入 模块 .xls”。 

(2) 按 快 捷 键 AlttF11 进入 VBE 环境 。 

(3) 右 击 【 工 程 】 资 源 管 理 器 窗口 中 的 工程 名 称 “ 导 入 模块 .xls”， 将 弹出 如 图 8-8 所 
示 的 快捷 菜单 。 

(4) 在 快捷 菜单 中 选择 【导入 文件 】 命 令 ， 将 打开 【导入 文件 】 对 话 框 ， 如 图 8-9 所 
示 。 选 择 需要 导入 的 文件 “导出 模块 -bas”。 
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文件 SD: [ER 
BE fm best cl 本 mw 


一 eh l 帮助 了 0 
图 8-8 快捷 菜单 图 8-9 【导入 文件 】 对 话 框 


全 提示 : 在 图 8-9 所 示 的 对 话 框 中 ,在 【文件 类 型 下拉 列表 框 中 分 别 列 出 了 扩展 名 为 “frm” 
和 “.cls” 的 类 型 ， 可 用 来 导入 窗 体 和 类 模块 中 的 代码 。 


(5) 单 击 【打开 ]】 按 钮 即 可 将 该 文件 的 代码 导入 到 当前 工程 中 ， 如 图 8-10 所 示 。 


了 O11 


a 
局 A 当 课 | 四 三 


) 
Thishorkbook 


图 8-10 导入 模块 的 代码 


8.4 使 用 代码 窗口 


在 VBA 工程 的 各 种 模块 Excel 工作 表 对 象 、 窗 体 、 模 块 和 类 模块 ) 中 都 可 以 编写 
VBA 代码 ， 这 些 模块 都 有 自己 的 代码 窗口 。VBE 的 代码 窗口 像 一 个 专门 的 文字 处 理 软件 ， 
提供 了 许多 便于 编写 VBA 代码 的 快捷 功能 。 这 些 代码 窗口 的 使 用 方法 都 相同 ， 本 节 主 要 
介绍 代码 窗口 的 使 用 技巧 。 
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代码 编辑 工具 栏 


VBE 的 【编辑 】 工 具 栏 是 专 为 代码 窗口 使 用 的 。 一 般 情况 下 ，【 编 辑 】 工 具 栏 是 隐藏 
的 。 可 单 击 主 菜单 【视图 】| 【工具 栏 ]|【 编 辑 】 命 令 将 其 显示 出 来 。 如 图 8-11 所 示 的 【 编 
辑 】 工 具 栏 上 有 很 多 按钮 ， 可 帮助 用 户 快速 地 输入 、 编 写 、 编 辑 VBA 代码 。 


属 常 快 参 自 缩 凸 切 设 解 切 下 上 清 

性 数 速 数 动 进出 换 置 除 换 一 二 除 

方 列 信 信 完 断 注 注 书 书 书 所 

你 表 息 息 成 点 释 释 签 签 签 有 

江 关 块 据 书 

列 从 答 
字 


图 8-11 【编辑 】 工 具 栏 


【编辑 】 工 具 栏 中 各 按钮 的 功能 如 下 所 述 。 


口 


口 


口 


OOOOOOOOOO 


8.4.2 


属性 /方法 列表 : 在 代码 窗口 中 打开 列表 框 ， 其 中 含有 前 面 带 有 句点 〈.) 的 该 对 象 
可 用 的 属性 及 方法 。 

常数 列表 : 在 代码 窗口 中 打开 一 列表 框 ， 其 中 含有 所 键入 属性 的 可 选 常数 及 前 面 
带 有 等 号 (=) 的 常数 。 

快速 信息 : 根据 指针 所 在 的 函数 、 方 法 或 过 程 的 名 称 提供 变量 、 函 数 、 方 法 或 过 
程 的 语法 。 

参数 信息 : 在 代码 窗口 中 显示 快捷 菜单 ， 其 中 包含 指针 所 在 函数 的 参数 的 有 关 
信息 。 

自动 完成 关键 字 : 接受 VB 在 所 键入 字 之 后 自动 添加 的 字符 。 

缩 进 : 将 所 有 选择 的 程序 行 移 到 下 一 个 定位 点 。 

凸 出 : 将 所 有 选择 的 程序 行 移 到 前 一 个 定位 点 。 

切换 断 点 : 在 当前 的 程序 行 上 设置 或 删除 一 个 断 点 。 

设置 注释 块 : 在 所 选 文本 区 块 的 每 一 行 开头 处 添加 一 个 注释 字符 。 

解除 注释 块 : 在 所 选 文本 区 块 的 每 一 行 处 删除 注释 字符 。 

切换 书签 : 在 程序 窗口 中 使 用 的 程序 行 添加 或 删除 书签 。 

下 一 个 书签 : 将 焦点 移 到 书签 堆栈 中 的 下 一 个 书签 。 
上 一 个 书签 : 将 焦点 移 到 书签 堆栈 中 的 上 一 个 书签 。 
清除 所 有 书签 : 删除 所 有 书签 。 


属性 /方法 列表 


使 用 VBA 开发 应 用 程序 时 ， 需 要 调用 Excel 中 的 许多 对 象 (如 单元 格 、 图 表 等 ) 。 这 
些 对 象 包含 许多 属性 和 方法 。 如 果 手 工 输入 对 象 的 方法 和 属性 ， 会 很 容易 输入 错误 的 单词 
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拼写 ， 导 致 程序 运行 出 错 。 

在 VBE 环境 中 ， 为 开发 人 员 提 供 了 辅助 工具 一 一 属性 /方法 列表 。 开 发 人 员 在 代码 窗 
口中 输入 对 象 名 称 和 一 个 句点 时 ， 将 弹出 一 个 下 拉 列 表 ， 该 列表 中 列 出 了 对 象 所 有 可 用 的 
属性 和 方法 。 

使 用 【属性 /方法 列表 】 的 方法 如 下 : 

(1) 启动 Excel 2007， 或 新 建 一 个 工作 禾 。 

(2) 按 快 捷 键 AlttF11 进入 VBE 开发 环境 。 

(3) 单 击 主 菜单 【插入 】| 【模块 】 命 令 向 工程 中 插入 一 个 模块 。 

(4) 在 【模块 1】 中 输入 一 个 过 程 test， 在 过 程 中 输入 对 象 sheetl 和 一 个 句点 , 将 弹出 
如 图 8-12 所 示 的 【属性 /方法 】 列 表 框 。 


全 提示 : 在 【属性 /方法 列表 】 中 ， 图 标 : 忽 表示 方法 ， 图 标 咯 表示 属性 。 


(5) 在 【属性 /方法 列表 】 中 找到 Cells 属性 ， 双 击 该 属性 即 可 将 其 填写 到 代码 窗口 。 
接着 输入 相应 的 代码 即 可 ， 如 图 8-13 所 示 。 


模块 .xls -模块 ! (代码 ) 


图 8-12 属性 /方法 列表 图 8-13 输入 代码 


打开 【属性 /方法 列表 】 后 ， 可 用 鼠标 拖 动 右 侧 的 滚动 条 查找 所 需要 的 属性 或 方法 ， 找 
到 后 双击 该 项 目 ， 可 将 其 插入 到 代码 中 。 也 可 不 理会 弹出 的 列表 ， 在 句点 后 面 接着 输入 属 
性 或 方法 的 前 几 个 字母 ， 当 VBE 突出 显示 需要 的 项 目 时 ， 按 下 Enter 键 可 插入 该 项 目 到 代 
码 中 并 开始 新 的 一 行 〈 可 以 按 Tab 键 插入 项 目 ， 并 在 当前 行 继续 输入 代码 ) 。 

按 Esc 键 可 关闭 列表 框 ， 并 且 不 插入 任何 内 容 到 代码 窗口 中 。 当 按 Esc 键 取 消 了 弹出 
的 列表 框 后 ， 对 同样 的 对 象 VBE 将 不 会 再 弹出 该 列表 框 ， 可 使 用 以 下 方法 再 次 显示 该 列 


口 单 击 【 编 辑 】 工 具 栏 中 的 【属性 /方法 列表 】 按 钮 。 
口 按 组 合 键 Ctrl+J。 
口 右 击 代码 窗口 中 的 对 象 代码 ， 在 弹出 的 快捷 菜单 中 选择 【属性 /方法 列表 】 命 令 。 


8.4.3 ”常数 列表 


在 程序 中 ， 经 常 需要 使 用 到 一 些 固定 的 值 (如 一 个 整数 、 字 符 串 等 ) ， 而 这 些 数值 很 
抽象 。 例 如 ， 用 0 表示 星期 天 、1 表示 星期 一 ， 这 时 程序 中 的 0 和 1 可 能 有 多 种 解释 ， 如 
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果 用 Sunday 和 Monday 来 表示 ， 则 其 意义 将 非常 明确 ， 因 此 ， 可 在 程序 中 定义 Sunday=0 
和 Monday=1 两 个 常数 ， 以 增强 程序 的 可 读 性 。 

VBA 中 还 提供 了 很 多 预定 义 的 常数 。 在 编写 程序 时 ， 手 工 输入 这 些 常数 容易 出 错 ， 通 
过 VBE 提供 的 常数 列表 可 快速 、 准 确 地 输入 这 些 常数 。 


外 提示 : 有 关 常 数 的 相关 概念 、 定 义 参见 本 书 第 4 章 的 相关 介绍 。 


在 Excel 中 , 通过 Window 对 象 的 View 属性 ， 可 设置 在 窗口 中 显示 的 视图 。 设 置 该 视 
图 可 分 为 以 下 3 种 方式 ， 这 三 种 方式 定义 为 XIWindowView 枚 举 类 型 。 

口 xINormalView: 值 为 1， 表 示 普 通 视图 方式 。 

口 xlPageBreakPreview: 值 为 2， 表示 分 页 预览 视图 。 

口 xlPageLayoutView: 值 为 3， 表 示 页 面 视图 方式 。 

这 些 常 数 名 很 长 ， 开 发 人 员 不 容易 记忆 。 这 时 ， 可 使 用 VBE 提供 的 常数 列表 来 帮助 
用 户 输入 ， 有 具体 步骤 如 下 : 

(1) 在 代码 窗口 中 输入 以 下 代码 : 


ActiveWindow.View = 


(2) 输入 等 号 (=) 后 ，VBE 可 能 会 自动 弹出 如 图 8-14 所 示 的 常数 列表 ， 供 用 户 选择 
需要 设置 的 值 。 


Sub test 0) 
ActiveWindow. View= 


End Sub xlHornalView 
国 
xlP outView 


8-14 常数 列表 


(3) 双击 xlPageBreakPreview 选项 即 可 将 其 输入 到 代码 中 。 
按 Esc 键 可 关闭 该 列表 框 ， 通 过 单 击 工 具 栏 中 的 【常数 列表 】 按 钮 (或 按 Ctrl+Shift+J 
组 合 键 ) 可 以 再 次 显示 出 常数 列表 。 


8.4.4 快速 信息 


当 在 代码 窗口 中 选择 了 VBA 指令 、 函 数 、 方 法 、 过 程 名 或 常数 后 ， 再 单 击 【 编 辑 】 
工具 栏 上 的 【快速 信息 】 按 钮 (或 按 Ctrl+I 快捷 键 ) ，VBA 将 会 显示 所 选项 目的 语法 或 常 
数 的 值 。 使 用 快速 信息 查看 VBA 关键 字 的 方法 如 下 : 

(1) 在 如 图 8-15 所 示 代 码 中 ， 鼠 标 单 击 xlIPageBreakPreview (或 选中 该 常数 ) 。 

(2) 按 Ctrl+I 快捷 键 ， 将 显示 插入 点 所 在 常数 的 值 ， 如 图 8-15 所 示 《〈 本 例 显 示 出 该 常 
数 的 值 ) 。 
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Sub testO 
Activagindow View = xlPageBrealFrevier 


End Sub xlPageBreakPreview = 了 


图 8-15 ”快速 信息 


8.4.5 ”参数 信息 


在 VBA 的 函数 中 ， 通 常 每 个 参数 的 顺序 是 一 定 的 。 调 用 函数 时 按 参 数 的 顺序 输入 参 
数 即 可 。 

在 VBA 中 支持 命名 参数 。 所 谓 命名 参数 是 指 参数 在 对 象 库 中 预先 定义 了 其 名 称 。 对 
每 个 参数 ， 不 必 局 限于 语法 所 规定 的 特定 顺序 来 提供 值 ， 而 是 可 以 按 任 何 顺序 用 命名 参数 
分 配 值 。 例 如 ， 假 设 MsgBox 函数 的 语法 格式 如 下 : 

MsgBox (Prompt [，buttons] [, title] [, helpfile, context]) 

调用 该 函数 时 可 使 用 以 下 格式 ( 按 参 数 的 顺序 赋值 〉: 

MsgBox "测试 参数 信息 "，, "测试 " 


以 上 代码 省 略 了 按钮 (buttons) 参数 ， 因 为 是 按 参 数 顺 序 赋值 ， 所 以 需要 连续 输入 两 
个 逗号 。 如 果 使 用 命名 参数 调用 ， 则 可 使 用 以 下 格式 : 
MsgBox Prompt :=" 测 试 参 数 信息 "，title:=" 测 试 " 


命名 的 参数 不 必 按 语 法 中 安排 的 正规 顺序 出 现 ， 以 上 语句 写成 以 下 形式 也 可 得 到 同样 
的 结果 : 
MsgBox title:=" 测 试 "，prompt :=" 测 试 参数 信息 " 


在 VBE 中 输入 VBA 函数 时 ， 如 果 该 函数 需要 参数 ， 在 输入 函数 名 和 左 括号 后 ， 在 光 
标 下 将 显示 一 个 提示 框 。 该 提示 框 显示 函数 需要 的 参数 ， 在 参数 信息 中 列 出 了 参数 的 顺序 
以 及 每 个 参数 的 数据 类 型 。 

例如 : 在 【模块 1】 窗 口中 输入 一 个 过 程 test， 在 过 程 中 输入 内 置 函 数 MsgBox， 再 输 
入 空格 键 (或 括号 ) 后 将 弹出 如 图 8-16 所 示 的 参数 信息 提示 框 ， 其 中 列 出 了 MsgBox 函数 
中 各 参数 的 名 称 及 数据 类 型 等 内 容 ， 可 以 按照 参数 提示 信息 输入 函数 的 各 个 参数 。 


了 ] [eest 


司 


Hnd 有 seFox(Proapt [pattons As ycg8oxStyls = whORDaly], (Trt1d liolpFi1d [Contard) As VofiseBoxkesult 


3 
8-16 ”参数 信息 
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8.4.6 自动 完成 关键 字 


VBA 中 很 多 对 象 、 方 法 或 属性 的 关键 字 很 长 ， 输 入 时 容易 出 错 。VBE 为 开发 人 员 提 
供 了 自动 完成 关键 字 的 功能 ， 可 帮助 开发 人 员 快 速 、 准 确 地 输入 这 些 关键 字 。 

在 代码 窗口 中 ， 当 输入 一 个 关键 字 的 前 几 个 字母 ， 然 后 单 击 【 编 辑 】 工 具 栏 上 的 【 自 
动 完成 关键 字 】 按 钮 (或 按 Ctrl+ 空 格 组 合 键 ) 后 ，VBE 会 自动 输入 该 关键 字 的 剩余 字母 。 
如 果 输 入 的 前 几 个 字母 可 适用 于 多 个 关键 字 ，VBE 将 弹出 一 个 列表 框 供用 户 选择 。 

例如 ， 下 面 的 操作 步骤 可 使 用 户 自 动 完 成 关键 字 的 输入 : 

(1) 启动 Excel2007， 或 新 建 一 个 工作 每 。 

(2) 按 快捷 菜单 Alt+F11 进入 VBE 开发 环境 。 

(3) 单 击 主 菜单 【插入 】|【 模 块 〗 命 令 向 工程 中 插入 一 个 模块 。 

(4) 在 新 插入 的 模块 中 输入 一 个 过 程 test， 在 过 程 中 输入 对 象 worksheets 的 前 几 个 字 
母 work， 如 图 8-17 所 示 。 


导入 模块 .xls - 模块 2 (代码 ) 


Sub testO 


Wor] 
End Sub 


图 8-17 输入 关键 字 的 前 几 个 字母 


(5) 单 击 主 菜单 【编辑 】|【 自动 完成 关键 字 】 命 令 ， 将 显示 如 图 8-18 所 示 的 列表 框 ， 
其 中 列 出 了 与 输入 字母 相 匹配 的 关键 字 。 


导入 模块 .xls 一 模块 2 (代码) 


Sub test 0 


io ee ~ 


YorksheetFunction 


图 8-18 显示 关键 字 列 表 


(6) 在 列表 中 双击 Worksheets， 可 将 该 关键 字 填 充 到 代码 窗口 。 
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全 注意 :VBE 中 环境 中 按 快 捷 键 Ctrl+ 空 格 也 可 调用 [自动 完成 关键 字 ] 命 令 . 但 在 Windows 
XP 中 文 版 中 ， 默 认 情 况 下 ，Ctrl+ 空 格 为 打开 /关闭 中 文 输入 法 的 快捷 键 ， 因 此 ， 
该 快捷 键 将 失效 .要 在 VBE 中 使 用 该 快捷 键 功能 ,需要 修改 XP 的 输入 法 快捷 键 。 


(7) 接着 输入 后 续 的 代码 ， 如 图 8-19 所 示 。 


导入 模块 .xls 一 模块 2 (代码 } 


Sub testO 
Worksheets ("sheet1").range ("A1")=" 自 动 充 成 关键 字 " 
End Sub 


图 8-19 输入 代码 
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在 Excel 工作 表 中 ， 既 可 以 保存 和 处 理 文字 类 型 数据 ， 也 可 保存 和 处 理 日 期 类 型 的 数 
据 。Excel 提供 了 很 多 处 理 文字 或 日 期 的 函数 ， 可 直接 在 工作 表 中 使 用 。VBA 为 VB 的 子 
集 ， 所 以 也 可 使 用 VB 中 的 大 部 分 函数 处 理 文字 和 日 期 。 


9.1 了 解 处 理 字符 串 


字符 串 处 理 是 程序 设计 中 最 常见 的 操作 ， 一 般 来 说 ， 掌 握 对 字符 串 的 处 理 也 是 开始 学 
习 一 种 新 语言 的 基础 ， 对 后 续 的 深入 学 习 是 非常 重要 的 。 本 节 首 先 简单 介绍 字符 串 的 存储 
方式 。 

9.1.1 字符 串 的 存储 


VBA 字符 串 就 是 字 节 的 集合 ， 为 了 使 VBA 方便 地 处 理 字符 串 ， 每 个 字符 串 还 保存 了 
字符 串 的 长 度 信息 。 

1. 定义 字符 串 变 量 

VBA 提供 了 两 类 字符 串 : 定 长 字符 串 和 变 长 字符 串 。 定 长 字符 串 的 声明 方式 如 下 : 

Dim strl As String * 10 

此 时 ， 变 量 strl 只 能 保存 10 个 字符 。 并 且 ， 无 论 是 否 保 存 有 字符 ， 变 量 strl 都 将 占 
用 10 个 字符 的 内 存 位 置 , 而 且 除 保存 的 字符 外 ， 其 他 位 置 以 空格 填充 , 这 样 字符 串 长 度 始 
终 为 10。 

相反 ,， 变 长 字符 串 的 长 度 是 可 变 的 。 按 照常 规 方法 声明 的 变量 都 是 变 长 字符 串 。 例 如 : 


Dim str2 As String 
这 样 ， 变 量 str2 可 保存 任意 长 度 的 字符 ， 字 符 串 长 度 为 其 保存 字符 的 实际 数量 。 
2. 字符 编码 


字符 在 内 存 中 按 一 定 的 编码 规则 保存 。 在 Windows 操作 系统 中 , 字符 可 按 两 种 编码 标 
准 保存 ， 分 别 为 ANSI 标准 和 Unicode 标准 。 
ANSI 字符 集中 最 多 只 能 表示 256 种 字符 ， 每 个 字符 只 占用 1 个 字 节 的 存储 空间 。 
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Unicode 标准 最 多 可 表示 65 536 个 字符 ， 每 个 字符 占用 2 个 字 节 的 存储 空间 。 
VBA 内 部 都 是 用 Unicode 标准 保存 字符 串 。 这 样 ， 每 个 字符 将 占用 2 个 字 节 空间 。 在 
使 用 过 程 中 ，VBA 将 动态 进行 ANSI 和 Unicode 之 间 的 转换 。 


9.1.2 ”计算 字符 串 长 度 


在 VBA 中 处 理 字 符 串 时 ， 常 常 需要 知道 字符 串 的 长 度 。 使 用 Len 函数 可 方便 地 获得 
字符 串 内 字符 的 数目 。 其 语法 格式 如 下 : 


Len(string | varname) 


参数 string 为 任何 有 效 的 字符 串 表达 式 。 也 可 使 用 变量 Vamame， 函 数 将 返回 变量 占 
用 内 存 的 长 度 。 

例如 ， 以 下 代码 将 返回 字符 串 变 量 的 长 度 : 

MyString = "Hello World" ， 设置 变量 初 值 

MyLen = Len(Mystring) ， 返回 11 


使 用 Len 函数 还 可 获取 变量 或 自 定义 数据 类 型 所 占用 内 存 空间 大 小 。 例 如 ， 以 下 代码 
使 用 Type.….End 语句 ，Type 定义 一 个 自 定义 数据 类 型 CustomerRecord， 再 使 用 Len 函数 获 
取 其 占用 内 存 的 字 节 数 。 

Type CustomerRecord ， 定义 用 户 自 定义 的 数据 类 型 

ID As Integer ， 将 此 定义 放 在 常规 模块 中 


Name As String * 10 
Address As String * 30 


End Type 
Sub 获取 自 定义 类 型 字 节 () 

Dim Customer As CustomerRecord ， 声明 变量 

mylen = Len(Customer) ， 返回 42 

MsgBox " 自 定义 类 型 customerRecord 所 占用 的 字 节 为 : " & mylen 
End Sub 


运行 以 上 代码 ， 将 显示 如 图 9-1 所 示 的 对 话 框 ， 在 对 话 框 中 显示 出 自 定义 类 型 所 占 的 
字 节 数 。 


Nicrosoft Ezcel 


自 定义 类 型 CustomerRecord 所 占用 的 字 节 为 : 42 


图 9-1 自 定义 类 型 所 占 的 字 节 数 


以 上 自 定义 类 型 中 ，Integer 变量 占用 2 个 字 节 ， 再 加 上 2 个 定 长 字符 串 变量 的 长 度 
(10+30) ， 共 占用 42 个 字 节 长 度 。 
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9.2 生成 重复 字符 串 


一 般 情 况 下 ， 将 字符 串 常数 用 引号 括 起 来 就 可 使 用 到 VBA 程序 中 。 在 一 般 的 情况 下 ， 
需要 使 用 多 个 重复 的 字符 组 成 一 个 字符 串 ， 例 如 ， 输 出 数据 时 ， 使 用 多 个 “ ”符号 生成 一 
个 分 隔 线 。 可 使 用 多 种 方法 生成 该 重复 字符 串 。 本 节 将 主要 介绍 这 几 种 方法 。 


9.2.1 用 循环 生成 重复 字符 串 


可 使 用 以 下 代码 来 完成 该 字符 串 : 


Sub 用 循环 生成 重复 字符 串 () 
Dim s As String 
Fori=1To 10 

| 
Next 
Debug.Print s 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 将 显示 一 条 直线 ， 如 图 9-2 所 示 。 


9-2 ”生成 重复 字符 串 


9.2.2 用 String 函数 生成 重复 字符 串 


在 VBA 中 还 提供 了 一 个 String 函数 ， 可 用 来 完成 上 面 代码 的 功能 ， 生 成 一 个 包含 指 
定 长 度 重复 字符 的 字符 串 。 其 语法 格式 如 下 : 

String (number, character) 

其 中 各 参数 的 意义 如 下 所 示 。 

口 number: 为 返回 的 字符 串 长 度 。 

口 character: 为 指定 字符 的 字符 码 或 字符 串 表 达 式 ， 其 第 一 个 字符 将 用 于 建立 返回 的 

字符 串 。 
如 果 指 定 character 的 数值 大 于 255，String 会 按 下 面 的 公式 将 其 转 为 有 效 的 字符 码 : 


character Mod 256 


hs 
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例如 ， 使 用 以 下 代码 可 生成 一 个 指定 长 度 ， 且 只 含 单一 字符 的 字符 串 : 
Sub 生成 重复 字符 () 


Debug.Print string(5, "*") ， 返回 "#####m 

Debug.Print string(5, 42) 1 返回 "本 # 本 本 本 

Debug.Print string(10, "ABC") ， 返回 "AAAAAAAAAA" 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 的 列表 框 中 将 输出 各 重复 字符 ， 如 图 9-3 所 示 。 


Pr 


RAARAAAAAR 


图 9-3 ”生成 重复 字符 
使 用 String 函数 创建 一 条 分 隔 线 ， 可 使 用 以 下 语句 : 


Debug.Print Sstring(10, "_") 


由 该 语句 就 可 完成 多 条 循环 语句 的 功能 。 
9.2.3 ”使 用 Space 函数 生成 重复 空格 


使 用 Space 函数 可 生成 指定 数目 空格 的 字符 串 。 其 语法 格式 如 下 : 
Space (number) 


参数 number 为 字符 串 中 想 要 的 空格 数 。 
Space 函数 在 格式 输出 或 清除 固定 长 度 字符 串 数据 时 很 有 用 。 例如， 以 下 代码 用 Space 
函数 来 生成 一 个 字符 串 ， 字 符 串 的 内 容 为 5 个 空格 ， 使 用 该 字符 串 来 分 隔 单词 。 
Sub 生成 重复 空格 () 
Debug.Print "12345678901234567890" 
Debug.Print "Hello" & Space(5) & "Excel VBR" ' 将 5 个 空格 插入 两 个 字符 串 
中 间 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-4 所 示 。 


12345678901234567890 四 
Hello Excel VBA 


: 站 
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为 了 观察 生成 的 空格 数量 ， 以 上 代码 特别 输出 了 一 串 数字 ， 用 来 和 下 方 输出 的 字符 串 
对 应 。 


9.3 变换 字符 串 


字符 串 的 转换 包括 英文 字母 大 小 写 的 转换 、 字 母 和 编码 的 转换 两 种 方式 。VBA 提供 了 
多 个 函数 来 完成 字符 串 的 转换 。 


9.3.1 大 小 写字 母 转 换 一 一 Lcase 函数 和 Ucase 函数 


使 用 Lease 函数 可 将 字符 串 中 的 大 写字 母 转换 为 小 写字 母 。 使 用 Ucase 函数 可 将 字符 
串 中 的 小 写字 母 转换 为 大 写字 母 。 
例如 ， 以 下 代码 将 对 字符 串 中 的 大 小 写字 母 进行 转换 : 
Sub 大 小 写字 母 转换 () 
Dim strl, strLower, strUpper 


strl = "Hello Excel 2007 VBA" ， 要 输送 的 字符 串 
strLower = LCase(str1) ， 返回 " hello excel 2007 vba" 
strUpper = UCase(str1) ， 返回 " HELLO EXCEL 2007 VBA" 


Debug.Print strLower 
Debug.Print strUpper 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-5 所 示 。 


hello excel 2007 vba 
Ee” EXCEL 2007 VBA 


图 9-5 大 小 写 转 换 


9.3.2 ”字符 转换 一 一 StrConyv 函数 


StrConv 函数 的 功能 很 强大 ， 既 可 转换 字母 大 小 写 ， 还 可 将 字符 串 首 字母 转换 为 大 写 。 
该 函数 的 语法 格式 如 下 : 

StrConv (string, conversion, LCID) 

各 参数 的 含义 如 下 所 述 。 

口 string: 转换 的 字符 串 表 达 式 。 

口 conversion: 为 一 个 整 型 值 ， 其 值 的 和 决定 转换 的 类 型 。 
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口 LCID: 该 参数 可 省 略 ， 一 般 不 使 用 。 

参数 conversion 决定 转换 的 类 型 ， 可 设置 9 个 值 ， 下 面 列 出 的 为 其 中 常用 的 3 个 值 。 
口 vbUpperCase: 值 为 1， 将 字符 串 文 字 转 成 大 写 。 

口 vbLowerCase: 值 为 2， 将 字符 串 文字 转 成 小 写 。 

口 vbProperCase: 值 为 3， 将 字符 串 中 每 个 字 的 开头 字母 转 成 大 写 。 

例如 ， 以 下 代码 将 对 字符 串 中 的 大 小 写字 母 进行 转换 : 


Sub 字符 转换 () 
Dim strl, strLower, strUpper, strProper 
strl = "Hello Excel 2007 VBR" ， 要 输送 的 字符 串 
strLower = StrConv(strl, vbLowerCase) 1 返回 " hello excel 2007 vba" 
strUpper = StrConv(strl, vbUpperCase) ' 返回 " HELLO EXCEL 2007 VBA " 


strProper = StrConv (strl, vbProperCase) ' 返回 " Hello excel 2007 vba " 
Debug.Print strLower 
Debug.Print strUpper 
Debug.Print strProper 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-6 所 示 。 


hello excel 2007 vba 
HELLD EXCEL 2007 VBA 
je。 Excel 2007 Yba 


图 9-6 字符 转换 


9.3.3 查询 字符 编码 一 一 Asc 函数 


Asc 函数 可 返回 字符 串 中 首 字母 的 字符 代码 。Asc 函数 的 语法 格式 如 下 : 

Asc (string) 

参数 string 可 以 是 任何 有 效 的 字符 串 表 达 式 。 如 果 string 中 没有 包含 任何 字符 ， 则 会 
产生 错误 。 

例如 ， 以 下 代码 使 用 Asc 函数 返回 字符 串 首 字母 的 字符 值 (ASCI 值 ) 。 

Sub 查询 字符 编码 () 


Debug.Print "字符 A 的 编码 : " & Asc("A") ' 返回 65 

Debug.Print "字符 a 的 编码 : " & Asc("a") ' 返回 97 

Debug.Print "字符 串 Excel 的 编码 : " & Asc("Excel") ， 返回 69 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-7 所 示 。 


i 
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宇和 罕 的 编码 : 97 


字符 审 Excel 的 编码 : 69 


图 9-7 查询 字符 编码 


9.3.4 生成 字符 一 一 Chr 函数 


使 用 Chr 函数 可 将 字符 代码 转换 为 对 应 的 字符 ， 其 语法 格式 如 下 : 
Chr (charcode) 


参数 charcode 是 一 个 用 来 识别 某 字 符 的 代码 .0 一 31 之 间 的 数字 与 标准 的 非 打 印 ASCII 
代码 相同 。 例 如 ，Chr(10) 可 以 返回 换行 字符 。charcode 的 正常 范围 为 0 一 255。 
例如 ， 以 下 代码 使 用 Chr 函数 来 返回 指定 字符 码 所 代表 的 字符 。 
sub 生成 字符 () 
Debug .Print "编码 65 对 应 的 字母 : " & chr (65) ' 返回 AA 
Debug .Print "编码 97 对 应 的 字母 : " & chr (97) ' 返回 a 
Debug .Print "编码 69 对 应 的 字母 : " & chr (69) ' 返回 EE 
Debug .Print "编码 37 对 应 的 字母 : " & chr (37) ， 返回 % 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-8 所 示 。 


编码 65 对 应 的 字母 : 
编码 局 的 过 
编码 69 对 应 的 字 考 : 
编码 37 对 应 的 字 考 : 


9-8 生成 字符 


9.4 比较 字符 串 


VBA 提示 了 3 种 比较 字符 串 的 方式 ， 分 别 为 : 
口 使 用 比较 运算 符 ( 如 >、<、=、>=、< 等 ); 
口 使 用 Like 运算 符 ; 

口 使 用 StrComp 函数 。 


. 154 。 
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9.4.1 使 用 比较 运算 符 


可 以 使 用 简单 的 逻辑 运算 符 进行 两 个 字符 串 的 比较 ， 例 如 : 
If "excel" > "Excel" Then 
VBA 将 两 个 比较 字符 串 进行 逐 字 符 比较 ， 比 较 的 结果 将 根据 Option Compare 语句 的 
设置 而 有 所 不 同 。 
Option Compare 语句 用 于 声明 字符 串 比较 时 所 用 的 默认 比较 方法 。 其 语法 格式 如 下 : 
Option Compare {Binary | Text | Database} 
Option Compare 语句 为 模块 指定 字符 串 比 较 的 方法 (Binary、Text 或 Database) 。 如 
果 模 块 中 没有 Option Compare 语句 ， 则 默认 的 文本 比较 方法 是 Binary。 
口 Option Compare Binary 是 根据 字符 的 内 部 二 进 制 表示 而 导出 的 一 种 排序 顺序 来 进 
行 字符 串 比 较 。 在 Windows 中 ， 排 序 顺序 由 代码 页 确定 。 典 型 的 二 进 制 排序 顺序 
如 下 例 所 示 : 
AcB eB eo < a be oe 
口 Option Compare Text 根据 由 系统 区 域 确定 的 一 种 不 区 分 大 小 写 的 文本 排序 级 别 来 
进行 字符 串 比 较 。 当 使 用 Option Compare Text 对 相同 字符 排序 时 ， 会 产生 下 述 文 
本 排序 级 别 : 
(A=a) < (B=b) < (E=e) < (Z=z) 
口 Option Compare Database 只 能 在 Access 中 使 用 。 当 需要 字符 串 比较 时 ， 将 根据 数 
据 库 的 区 域 ID 确定 的 排序 级 别 进行 比较 。 


全 注意 :' Option Compare 语句 必须 写 在 模块 的 所 有 过 程 之 前 。 


9.4.2 ”使 用 Like 运算 符 


还 可 使 用 Like 运算 符 用 来 比较 两 个 字符 串 。 其 语法 格式 如 下 : 
result = string Like pattern 


各 参数 的 含义 分 别 如 下 。 
口 string: 可 为 任何 字符 串 表 达 式 。 
口 pattern: 任何 字符 串 表达 式 ， 可 使 用 通配符 、 字 符 表 和 字符 范围 ， 如 表 9-1 所 示 。 
表 9-1 模式 匹配 
pattern 中 的 字符 


? 


守 合 string 中 的 字符 
任何 单一 字符 
零 个 或 多 个 字符 


大 


a 
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续 表 
pattern 中 的 字符 合 string 中 的 字符 
# 任何 一 个 数字 (0~9) 
[charlist] charlist 中 的 任何 单一 字符 
[!charlist] 不 在 charlist 中 的 任何 单一 字符 


如 果 string 与 pattern 匹配 ， 则 result 为 True; 如 果 不 匹 配 ， 则 result 为 False。 
Like 运算 符 的 特性 随 着 Option Compare 语句 而 不 同 。 
例如 ， 以 下 代码 使 用 Like 运算 符 做 字符 串 的 方式 比较 。 


Sub 使 用 1ike 比较 字符 串 () 
Debug.Print """aBBBa"" Like ""a*a"" 的 结果 为 : "; "aBBBa" Like "a*a" 
Debug.Print """F"" Like "" [A-Z]"" 的 结果 为 : "; "F" Like "[R-Z]" 
Debug.Print """E"" Like ""[!R-Z]"" 的 结果 为 : "; "F" Like "[!A-2Z]" 
Debug.Print """a2a"" Like ""a#a"" 的 结果 为 : "; "a2a" Like "a#a" 
Debug.Print """aMSb"" Like ""a[L-P]#[!c-e]"" 的 结果 为 : "; "aM5b" Like 
"a[L-P]#[!c-e]" 
Debug.Print """BAT123khg"" Like ""B?T#"" 的 结果 为 : "; "BAT123khg" Like 
Ys 
Debug.Print """CAT123khg"" Like ""B?T*"" 的 结果 为 : 
"B?T*" 

End sub 


"; "CAT123khg" Like 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 的 内 容 如 图 9-9 所 示 。 


结果 为 : 

PJ#[!c-e] 本 车 果 为 : True 
“ATs Like“B?T#“ 的 结果 为 : True 
"CAT123khe”Like “B?T*" 的 结果 为 : False 


9-9 ”使 用 Like 比较 字符 串 


9.4.3 使 用 StrComp 函数 


使 用 StrComp 函数 可 对 两 个 字符 串 进行 比较 ， 在 进行 字符 串 比较 时 可 设置 与 Option 
Compare 语句 不 同 的 比较 方式 。 该 函数 的 语法 格式 如 下 : 

StrComp(stringl, string2[, compare]) 

以 上 语句 中 的 两 个 文本 字符 串 可 以 是 任何 字符 串 表 达 式 ，compare 参数 可 设 为 以 下 值 
之 一 ， 用 来 指定 字符 串 的 比较 方法 。 

口 vbUseCompareOption: 值 为 -1， 使 用 Option Compare 语句 设置 执行 比较 。 

口 vbBinaryCompare: 值 为 0， 执 行 一 个 二 进 制 比 较 。 

口 vbTextCompare: 值 为 1， 执行 一 个 按照 原文 的 比较 。 
“5% 
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口 vbDatabaseCompare: 值 为 2， 仅 适用 于 Access， 执 行 一 个 基于 数据 库 信 息 的 比较 。 
StrComp 函数 的 返回 值 有 以 下 几 种 情况 : 
口 stringl 小 于 string2， 返 回 值 为 -1; 
口 stringl 等 于 string2， 返 回 值 为 0; 
口 stringl 大 于 string2， 返 回 值 为 1; 
口 stringl 或 string 2 为 Null， 返 回 值 为 Null。 
例如 ， 以 下 代码 使 用 StrComp 函数 对 字符 串 进行 比较 : 
Sub 使 用 strcomp 比较 字符 串 () 
Dim strl, str2, MyComp 


strl1 = "ABCD" 
str2 = "abcd" 


Debug.Print strCompl(strl, str2, 1) 返回 0 

Debug.Print strComp(strl, str2, 0) ， 返回 -1 

Debug.Print strComp(str2, str1) ， 返回 1 
End sub 


9.5 处 理子 字符 串 


在 处 理 字符 串 时 , 经 常 需要 获取 字符 串 中 的 一 部 分 内 容 , 这 部 分 内 容 称 为 子 串 。 在 VBA 
中 可 使 用 以 下 函数 来 处 理子 串 。 
Left: 返回 字符 串 中 左 侧 指 定数 量 的 字符 。 
Right: 返回 字符 串 中 右 侧 指定 数量 的 字符 。 
Mid: 返回 的 字符 串 是 指定 位 置 开始 ， 指 定 字 符 长 度 的 字符 。 
InStr: 返回 一 字符 串 在 男 一 字符 串 中 最 先 出 现 的 位 置 。 
Ltrim: 返回 去 掉 左 侧 空 白 的 字符 串 。 
Rtrim: 返回 去 掉 右 侧 空 白 的 字符 串 。 
Trim: 返回 去 掉 两 侧 空白 的 字符 串 。 


OOOOOOO 


9.5.1 取 左 侧 子 串 一 一 Left 函数 


使 用 Left 函数 可 返回 指定 字符 串 左 侧 的 部 分 字符 ， 其 语法 格式 如 下 : 
Left (string, length) 


各 参数 的 含义 分 别 如 下 。 

口 string: 字符 串 表达 式 。 其 中 最 左边 的 那些 字符 将 被 返回 。 

口 length: 为 数值 表达 式 , 指出 将 返回 多 少 个 字符 。 如 果 为 0, 返回 零 长 度 字 符 串 ("")。 
如 果 大 于 或 等 于 string 的 字符 数 ， 则 返回 整个 字符 串 。 

例如 ， 以 下 代码 使 用 Left 函数 来 得 到 某 字 符 串 最 左边 的 几 个 字符 。 

sub 取 左 侧 子囊 () 


全 人 本 下 二 


Excel VBA 开发 技术 大 全 


Dim strl As String 


strl = "Hello Excel 2007 VBA"  ' 定义 字符 串 

Debug.Print Left(stri1, 1) ， 返回 "av 

Debug.Print Left(str1l，7) 1 返回 "Hello E" 

Debug.Print Left (str1, 30) ， 返回 "Hello Excel 2007 VBA" 
End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-10 所 示 。 


站 
Hello E 
Hello Excel 2007 VBA 


图 9-10 取 左 侧 子 串 


9.5.2” 取 右 侧 子 串 一 一 Rigth 函数 


使 用 Right 函数 可 返回 指定 字符 串 右 侧 的 部 分 字符 ， 其 语法 格式 如 下 : 
Right (string, length) 


Right 函数 的 参数 与 Left 函数 的 参数 类 似 。 
例如 ， 以 下 代码 使 用 Right 函数 来 得 到 某 字 符 串 最 右边 的 几 个 字符 。 


Sub 取 右 侧 子 串 () 
Dim strl As String 
strl = "Hello Excel 2007 VBR" 
Debug.Print Right (str1, 1) 
Debug.Print Right (str1, 7) 
Debug.Print Right (str1, 30) 
End sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-11 所 示 。 


定义 字符 串 

返回 "A" 

返回 "007 VBA " 

返回 "Hello Excel 2007 VBA" 


图 9-11 取 右 侧 子 串 


9.5.3 ”获取 部 分 子 串 一 一 Mid 函数 


使 用 Left 函数 和 Rigth 函数 可 分 别 获取 字符 串 左 侧 或 右 侧 指 定数 量 的 字符 ， 更 多 的 情 


和 
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况 下 可 能 需要 从 字符 串 的 中 间 某 个 位 置 开始 获取 一 个 子 串 ， 这 就 需 使 用 Mid 函数 ， 其 语法 
格式 如 下 : 


Mid(string, start[, length]) 


各 参数 的 含义 分 别 如 下 。 

口 string: 为 字符 串 表 达 式 ， 从 中 返回 字符 。 

口 start: 为 Long 型 数据 。 指 定 从 string 中 被 取出 子 串 的 起 始 位 置 。 如 果 start 超过 
string 的 字符 数 ，Mid 返回 零 长 度 字 符 串 〈"") 。 

口 length: 为 Long 型 数据 。 指 定 要 返回 子 串 的 字符 数 。 如 果 省 略 或 length 超过 文本 
的 字符 数 〈 包 括 start 处 的 字符 ) ， 将 返回 字符 串 中 从 start 到 尾 端的 所 有 字符 。 该 
参数 可 省 略 。 

例如 ， 以 下 代码 使 用 Mid 函数 取 字符 串 中 的 子 串 : 


Sub 获取 部 分 子 串 () 
Dim strl Rs String 


strl = "Hello Excel 2007 VBR" ， 定义 字符 串 

Debug.Print Mid(str1, 1, 5) ! 返回 "Hello" 

Debug.Print Mid(str1, 7, 5) ， 返回 "Excel" 

Debug.Print Mid(str1, 7) 1 返回 "Excel 2007 VBA" 
End sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-12 所 示 。 


图 9-12 ”获取 部 分 子 串 


9.5.4 删除 字符 串 两 侧 空格 


在 VBA 程 序 中 ,有 时 从 Excel 单 元 格 或 数据 库 中 获取 的 数据 前 后 会 有 一 定数 量 的 空格 ， 
前 面 有 空格 将 影响 字符 串 的 比较 运算 ， 在 输出 字符 串 时 ， 前 后 的 空格 也 会 导致 输出 对 位 不 
正 。 在 进行 这 些 处 理 时 ， 可 使 用 Trim 函数 、LTrim 函数 和 RTrim 函数 去 掉 字 符 串 两 侧 的 
空格 。 这 3 个 函数 的 语法 格式 相同 ， 下 面 是 Trim 函数 的 语法 格式 : 

Trim(string) 

参数 string 为 需要 处 理 的 字符 串 。 

例如 ， 以 下 代码 使 用 这 3 个 函数 分 别 删除 字符 串 首尾 的 空格 : 

Sub 删除 字符 串 两 侧 空格 () 


Dim strl As String, str2 Rs String 


生生 
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str2 = "end" ' 用 来 定位 属于 空格 的 位 置 

strl = " Hello Excel 2007 VBR " ， 定义 字符 串 (首尾 各 有 两 个 
空格 ) 

Debug.Print "123456789012345678901234567890"  ”' 显 示 坐 标 


Debug.Print Trim(str1); str2 
Debug.Print LTrim(str1); str2 
Debug.Print RTrim(str1); str2 
End Sub 
运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-13 所 示 。 为 了 观察 
两 侧 空格 的 输出 情况 ， 在 【立即 窗口 】 列 表 框 首 行 显示 了 一 个 输出 字符 位 置 号 。 在 输出 每 
个 字符 串 后 ， 紧 接着 该 字符 串 输入 一 个 “end”， 以 观察 字符 串 右 侧 的 空格 是 否 被 删除 。 


123456789012345678901234567890 全 


so 


图 9-13 ”删除 字符 串 两 侧 空格 


Hello Excel 2007 VBAend 


9.5.5 ”查找 子 串 位 置 一 一 InStr 函数 


在 有 的 情况 下 ， 用 户 不 知道 子 串 在 字符 串 中 的 具体 位 置 ， 这 时 可 使 用 InStr 函数 查找 
具体 的 位 置 ， 再 使 用 Mid 函数 取出 该 子 串 。 
InStr 函数 可 指定 一 个 字符 串 在 男 一 字符 串 中 最 先 出 现 的 位 置 。 其 语法 格式 如 下 : 


Instrl([start, ]stringl, string2[, compare]) 


各 参数 的 含义 分 别 如 下 。 
口 start: 为 数值 表达 式 ， 设 置 每 次 搜索 的 起 点 。 如 果 省 略 ， 将 从 第 一 个 字符 的 位 置 开 
口 string1: 接受 搜索 的 字符 串 表达 式 。 
口 string2: 搜索 的 字符 串 表 达 式 ， 即 子 串 。 
口 compare: 指定 字符 串 比较 规则 。 如 果 省 略 compare，Option Compare 的 设置 将 决 
定 比较 的 类 型 。 
例如 ， 以 下 代码 使 用 InStr 函数 搜索 字母 “e” 的 位 置 : 
Sub 搜索 子 串 位 置 () 
Dim strl As String 
Strl = "Hello Excel 2007 VBA" 
Debug.Print Instr(strl, "e") 
Debug.Print Instr(3, strl, "e") 


Debug.Print Instr(3, strl, "e", vbTextCompare) 
End Sub 
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运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-14 所 示 。 


图 9-14 查找 子 串 位 置 


在 以 上 代码 中 ， 语 句 : 

Instr(3, strl, "e") 

从 第 3 个 字符 开始 ， 以 系统 默认 的 方式 搜索 字母 “e” 的 位 置 ， 默 认 情 况 下 使 用 
vbBinaryCompare 方式 对 字符 进行 比较 ， 因 此 ， 搜 索 时 将 跳 过 大 写字 母 “E”， 找 到 第 10 
个 字符 处 的 小 写字 母 “e”。 

而 以 下 语句 : 

Instr(3, strl, "e", vbTextCompare) 

使 用 vbTextCompare 方式 对 字符 比较 ， 这 时 小 写字 母 “e” 和 大 写字 母 “E” 是 一 样 的 ， 
因此 ， 返 回 的 值 为 7。 


9.6 处理 日 期 时 间 数 据 


在 信息 处 理 系 统 中 ， 日 期 时 间 信息 是 最 常用 的 数据 之 一 。 因 此 ， 了 解 日 期 时 间 类 型 数 
据 的 存储 、 处 理 过 程 ， 是 开发 Excel 应 用 程序 必 备 的 知识 。 


9.6.1 日 期 时 间 数 据 的 保存 


在 Excel 的 单元 格 中 ， 可 按 各 种 形式 表示 日 期 。 不 论 以 何 种 形式 表示 日 期 ， 在 Excel 
内 部 都 是 以 一 个 序列 数 的 形式 来 保存 日 期 数据 。 数 值 的 整数 部 分 表示 从 1899 年 12 月 30 
日 算 起 的 天 数 ， 数 值 的 小 数 部 分 表示 当天 的 具体 时 间 。 

例如 ， 北 京 奥运 会 开幕 式 时 间 为 2008 年 8 月 8 日 20:00， 在 Excel 中 将 其 存放 为 
39668.833。 表示 该 日 期 距 1899 年 12 月 30 日 为 39668 天 , 而 时 间 20:00 则 为 当天 的 20/24。 

对 VBA 用 户 来 说 ， 一 般 不 用 理会 数据 内 部 的 保存 方式 ， VBA 能 自动 进行 浮 点 数 与 显 
示 的 日 期 格式 间 的 转换 。 


9.6.2 ”获取 和 设置 日 期 


在 Windows 等 操作 系统 中 , 用 户 可 查看 和 设置 计算 机 系统 当前 的 日 期 和 时 间 。 在 VBA 
程序 中 ， 也 提供 了 相应 的 函数 和 语句 来 获取 和 设置 系统 日 期 。 
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1. 获取 当前 日 期 和 时 间 
使 用 Now 函数 可 返回 计算 机 系统 的 日 期 和 时 间 。 
例如 ， 以 下 代码 将 显示 如 图 9-15 所 示 的 对 话 框 ， 显 示 当 前 日 期 和 时 间 。 


Sub 显示 当前 日 期 和 时 间 () 
MsgBox "当前 日 期 和 时 间 为 : " & Now 
End Sub 
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当前 日 期 和 时 间 为 : 2008-02-08 10:18:12 


图 9-15 当前 日 期 和 时 间 


2. 获取 或 设置 系统 日 期 

与 Now 函数 类 似 ， 使 用 Date 函数 可 获得 系统 当前 的 日 期 。 
要 设置 系统 日 期 ， 需 使 用 Date 语句 ， 其 语法 格式 如 下 : 
Date = 日 期 表达 式 

例如 ， 以 下 代码 将 计算 机 当前 日 期 设置 为 2008-8-8。 

Date = #8/8/2008# 

3. 获取 或 设置 系统 时 间 

使 用 Time 函数 或 获得 系统 当前 的 时 间 。 

要 设置 系统 时 间 ， 需 使 用 Time 语句 ， 其 语法 格式 如 下 : 
Time = 时 间 格 式 的 字符 串 / 数 值 表达 式 


如 果 参 数 是 一 字符 串 ， 则 Time 语句 会 试 着 根据 系统 指定 的 时 间 ， 利 用 时 间 分 隔 符 将 
其 转换 成 一 个 时 间 。 如 果 无 法 转换 成 一 个 有 效 的 时 间 ， 则 会 导致 错误 发 生 。 
例如 ， 以 下 代码 将 设置 计算 机 当前 时 间 : 


Time = #8:08:00 PM# 


9.6.3 生成 日 期 /时 间 数 据 


通过 Date、Now、Time 函数 可 获取 系统 当前 的 日 期 和 时 间 。 但 在 VBA 程序 中 ， 
有 时 需要 处 理 将 来 的 某 一 个 时 间 。 这 时 可 使 用 VBA 提供 的 函数 来 生成 这 种 日 期 /时 间 
数据 。 
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1. 用 字符 串 生成 时 间 
TimeValue 函数 可 将 一 个 表示 时 间 的 字符 串 生成 为 一 个 时 间 值 。 其 语法 格式 如 下 : 
TimeValue (上 time) 


参数 time 通 常 是 一 个 字符 串 表 达 式 ,表示 0:00:00 (12:00:00 A.M.) 到 23:59:59(11:59:59 


P.M.) 之 间 的 时 刻 。 但 是 ，time 也 可 以 是 表示 在 同一 时 间 范 围 取 值 的 任何 其 他 表达 式 。 


可 以 使 用 12 小 时 制 或 24 小 时 制 的 时 间 格 式 。 例 如 ，“2:24PM” 和 “14:24” 均 是 有 


效 的 time 表达 式 。 


间 ， 


间 ， 


如 果 time 参数 包含 日 期 信息 ，TimeValue 将 不 会 返回 它 。 
例如 ， 以 下 代码 使 用 TimeValue 函数 将 字符 串 转 换 为 时 间 。 


MyTime = TimeValue ("8:08:08 PM") 


2. 使 用 时 、 分 、 秒 数值 生成 时 间 


除了 将 字符 串 转换 为 时 间 数 据 外 ， 还 要 使 用 TimeSerial 函数 按时 、 分 、 秒 数值 生成 时 
该 函数 的 语法 格式 如 下 : 
TimeSerial (hour, minute, second) 


各 参数 的 含义 分 别 如 下 。 

口 hour: 表示 小 时 数 。 其 值 从 0 (12:00 A.M.) 到 23 (11:00 P.M.) ， 或 者 是 一 个 数 
值 表达 式 。 

口 minute: 表示 分 钟 数 。 

口 second: 表示 秒 数 。 

为 了 指定 一 个 时 刻 ，TimeSerial 的 参数 取 值 应 在 正常 范围 内 ， 小 时 数 应 介 于 0 一 23 之 

而 分 钟 与 秒 应 介 于 0 一 59 之 间 。 但是， 当 一 个 数值 表达 式 表示 某 时 刻 之 前 或 其 后 的 时 、 


分 钟 或 秒 数 时 ， 也 可 以 为 每 个 使 用 这 个 数值 表达 式 的 参数 指定 相对 时 间 。 


如 ， 


据 。 


当 任 何 一 个 参数 的 取 值 超出 正常 范围 时 ， 它 会 适时 进位 到 下 一 个 较 大 的 时 间 单 位 。 例 
如 果 参 数 minute 设置 为 75(75 分 钟 ) ， 则 这 个 时 间 被 解释 成 一 小 时 零 十 五 分 钟 。 
例如 ， 以 下 代码 使 用 TimeSerial 函数 生成 时 间 。 

MyTime = TimeSerial(8，8，8) 


3. 生成 日 期 数据 
与 生成 时 间 数 据 类 似 ，VBA 也 提供 了 两 个 函数 (DateSerial 和 DateValue) 生成 日 期 数 


例如 ， 下 面 的 代码 即 可 生成 相同 的 日 期 数据 。 
MyDate = DateValue ("September 13，1973") 
MyDate = DateSerial(1973，9，13) 


A 
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计算 日 期 数据 


使 用 加 减法 运算 


日 期 数据 保存 为 一 个 浮 点 数 ， 因 此 可 对 日 期 进行 加 减法 运算 。 例 如 ， 以 下 代码 将 对 系 
统 当前 日 期 进行 加 减 计算 : 


Sub 日 期 运算 () 


Dim MyDate As Date 
MyDate = Date 


Debug .Print "当前 日 期 : " & MyDate ' 当 前 日 期 

Debug.Print "10 天 后 的 日 期 : " & MyDate + 10 ' 返 回 10 天 后 的 日 期 

Debug.Print "10 天 前 的 日 期 : " & MyDate - 10 ' 返 回 10 天 前 的 日 期 
End sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-16 所 示 。 


2; 


图 9-16 日 期 运算 


增加 日 期 指定 部 分 的 值 


使 用 加 减法 对 日 期 值 进行 运算 时 ， 只 能 对 天 数 进行 操作 。 因 为 日 期 的 特殊 性 (月 大 为 


31 天 ， 


月 小 为 30 天 ) ， 只 使 用 天 数 黑 加 将 得 不 到 对 应 日 期 的 下 月 或 上 月 日 期 。 例 如 ， 


2008-2-8 日 加 30 天 则 为 2008-3-9 日 ， 若 需要 得 到 2008-3-8 日 ， 则 不 能 使 用 这 种 累加 天 数 


的 方法 。 


这 时 ， 可 使 用 DateAdd 函数 对 日 期 中 的 指定 部 分 进行 运算 ， 其 语法 格式 如 下 : 


DateAdd (interval, number, date) 


各 参数 的 含义 分 别 如 下 。 

口 interval: 为 一 个 字符 串 表达 式 ， 是 所 要 加 上 去 的 时 间 间 隔 。 各 字符 串 表示 的 意义 
如 表 9-2 所 示 。 

口 number: 为 一 个 数值 表达 式 ， 是 要 加 上 的 时 间 间 隔 的 数目 。 其 数值 可 以 为 正 数 (得 
到 未 来 的 日 期 ， 也 可 以 为 负数 〈 得 到 过 去 的 日 期 ) 。 

口 date: 为 一 个 表示 日 期 的 文字 ， 用 这 一 日 期 累加 指定 的 时 间 间 隔 。 


. 164 


第 9 章 ， 处理 字符 串 和 日 期 


表 9-2 interval 参 数 设 定 值 


设 是 描 述 描 述 
yyYY 年 季 
m 月 一 年 的 日 数 
d 日 一 周 的 日 数 
ww 周 时 
n 分 钟 秒 
可 以 使 用 DateAdd 函数 对 日 期 加 上 或 减 去 指定 的 时 间 间 隔 。 例 如 ， 可 以 用 DateAdd 来 
计算 距 今天 为 三 十 天 的 日 期 ;或 者 计算 距 现在 为 45 分 钟 的 时 间 。 


为 了 对 date 加 上 “上 日 ”， 可 以 使 用 “一 年 的 日 数 ”(“y”)，“ 上 日 ”(“d”) 或 “一 周 
的 日 数 ”(“w”)。 
使 用 以 下 代码 可 以 将 1 月 31 日 加 上 一 个 月 : 


DateAdd("m", 1, "31-Jan-2008") 


DateAdd 函数 将 返回 2008 年 2 月 29 日 ,而 不 是 2008 年 2 月 31 日 。 
下 面 的 代码 演示 DateAdd 函数 的 使 用 方法 : 


sub 增加 日 期 指定 部 分 的 值 () 
Dim MyDate As Date 
MyDate = "31-Jan-2008" 
Debug.Print "当前 日 期 : " & MyDate 
Debug.Print "前 10 天 的 日 期 : " & DateAdd("d",， -10, MyDate) 
Debug .Print "后 10 天 的 日 期 : " & DateAdd("d",，10, MyDate) 
Debug.Print "下 月 的 今日 : " & DateAdd("m", 1, MyDate) 
Debug .Print "下 周 同 星期 数 的 日 期 : " & DateAdd("ww", 1, MyDate) 
Debug.Print "明年 的 今日 : " & DateAdd("yyyy", 1, MyDate) 

End Sub 


运行 以 上 代码 ， 在 【立即 窗口 】 列 表 框 中 输出 相应 的 内 容 ， 如 图 9-17 所 示 。 


前 10 天 的 日 期 : 2008-01-21 ~ 
后 10 天 的 日 期 : 2008-02-10 5 
下 月 的 今日 : 2008-02-29 
下 周 同 星期 数 的 日 期 : 2008-02-07 一 
明年 的 今日 : 2009-01-31 

加 加 全 


图 9-17 增加 日 期 指定 部 分 的 值 


3. 求 两 个 日 期 的 间隔 值 
使 用 DateDi 函数 可 返回 两 个 指定 日 期 间 的 时 间 间 隔 数目 。 其 语法 格式 如 下 : 


DateDiff (interval, datel, date2[, firstdayofweek[, firstweekofyear]]) 


各 参数 的 含义 分 别 如 下 。 
口 interval: 为 字符 串 表达 式 ， 表 示 用 来 计算 datel 和 date2 的 时 间 差 的 时 间 间 隔 ， 其 


a 
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设置 值 如 表 9-2 所 示 。 
口 datel 、date2: 为 计算 中 要 用 到 的 两 个 日 期 。 
口 firstdayofweek: 指定 一 个 星期 的 第 一 天 的 常数 。 如 果 未 予 指定 ， 则 以 星期 日 为 第 
一 天 。 该 参数 可 省 略 。 
口 firstweekofyear: 指定 一 年 的 第 一 周 的 常数 。 如 果 未 予 指定 ， 则 以 包含 1 月 1 日 的 
星期 为 第 一 周 。 该 参数 可 省 略 。 
DateDiff 函数 可 用 来 决定 两 个 日 期 之 间 所 指定 的 时 间 间 隔 数目 。 例 如 ， 可 以 使 用 
DateDiff 来 计算 两 个 日 期 之 间 相 隔 几 日 ， 或 计算 从 今天 起 到 年 底 还 有 多 少 个 星期 。 
如 果 datel 比 date2 来 得 晚 ， 则 DateDiff 函数 的 返回 值 为 负数 。 
例如 ， 以 下 代码 可 求 出 今日 距 北京 奥运 会 开幕 的 日 期 ， 
Sub 上 距 奥运 会 开幕 日 期 () 
Dim oDate As Date, today Rs Date 
Dim tl As Integer, t2 As Integer 
oDate #8/8/2008# 
today Date 
t1 = DateDiff("d", today, oDate) 
t2 = DateDiff ("ww", today, oDate) 


MsgBox "今日 距 北 京 奥运 会 开幕 还 有 : " & tl & "天 (" & t2 & " 周 ) !" 
End sub 


运行 以 上 代码 ， 将 显示 如 图 9-18 所 示 的 对 话 框 ， 在 该 对 话 框 中 显示 出 了 计算 的 日 期 。 


图 9-18 日 期 间隔 值 


9.6.5 ”使 用 计时 器 


在 VBA 中 , 没有 专门 的 计时 器 。 可 使 用 Timer 函数 来 模拟 计时 器 的 功能 。Timer 函数 
将 返回 一 个 Single 类 型 的 值 ， 代 表 从 午夜 开始 到 现在 经 过 的 秒 数 。 

例如 ,以 下 代码 使 用 Timer 函数 来 暂停 应 用 程序 。 同 时 用 DoEvents 在 暂停 期 间 将 控制 
让 给 其 他 进程 。 

sub 暂停 程序 的 执行 () 


Dim PauseTime, Start, Finish, TotalTime 
IE (MsgBox (" 是 否 暂停 程序 5 秒 钟 "，vbouestion + vbYesNo)) = vbYes Then 


PauseTime = 5 ， 设置 暂停 时 间 
Start = Timer ， 设置 开 始 暂停 的 时 刻 
Do While Timer < Start + PauseTime 

DoEvents ”将 控制 让 给 其 他 程序 
Loop 
Finish = Timer ， 设置 结束 时 刻 


= 0s 
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TotalTime = Finish - Start ， 计算 总 时 间 
MsgBox "程序 暂停 时 间 为 : " & TotalTime & " 秒 ! " 
Else 
End 
End If 
End Sub 


运行 以 上 代码 ， 首 先 将 显示 如 图 9-19 左 图 所 示 的 对 话 框 ， 用 户 单 击 【 是 】 按 钮 ， 程 序 
将 暂停 5 秒 ， 此 时 用 户 可 进行 其 他 操作 。5 秒 钟 后 ， 将 显示 如 图 9-19 右 图 所 示 的 提示 对 
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图 9-19 程序 执行 提示 信息 
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对 象 模 型 用 来 描述 对 象 之 间 的 关系 。 使 用 VBA 在 Excel 环境 下 开发 应 用 程序 ,实际 就 
是 访问 和 控制 Excel 各 对 象 的 过 程 。 使 用 VBA 在 Excel 中 进行 编程 时 ， 必 须 先 了 解 Excel 
的 对 象 模型 。 

Excel 2007 有 200 多 个 对 象 ， 如 果 这 些 对 象 之 间 没 有 任何 逻辑 联系 ， 那 么 这 些 对 象 将 
非常 难于 掌握 和 使 用 。 事 实 上 ， 在 Excel 中 所 有 对 象 都 处 于 一 个 完整 的 体系 中 ， 每 个 对 象 
都 不 是 孤立 的 。 

本 部 分 共 6 章 ， 详 细 介 绍 了 Excel 中 常用 对 象 的 使 用 方法 。 


0 章 Excel 对象 概述 


使 用 Application 对 象 


渡 小 小 
贡 


2 章 使 用 Workbook 对 象 


”第 13 章 使 用 Worksheet 对 象 


WP 第 14 章 使 用 Range 对 象 


PI 第 15 其 他 常用 Exce1 对 象 


第 10 章 Excel 对 象 概述 


面向 对 象 程序 设计 方法 是 一 种 非常 实用 的 软件 开发 方法 ， 其 以 客观 世界 中 的 对 象 为 中 
心 , 分 析 和 设计 思想 符合 人 们 的 思维 方式 , 分 析 和 设计 的 结果 与 客观 世界 的 实际 比较 接近 ， 
容易 被 人 们 所 接受 。 

VBA 为 面向 对 象 的 程序 设计 语言 ， 将 其 嵌入 到 Excel 中 后 ， 就 可 以 直接 访问 Excel 中 
的 各 对 象 。 本 章 将 介绍 对 象 、Excel 对 象 模型 的 相关 知识 。 


10.1 对 象 的 概念 


本 节 介 绍 对 象 的 概念 ， 以 及 与 对 象 相 关 的 属性 、 方 法 、 事 件 等 相关 内 容 。 
10.1.1 了 解 对 象 


在 面向 对 象 的 程序 中 , “对 象 ”是 系统 中 的 基本 运行 实体 。VBA 中 的 对 象 与 其 他 面向 
对 象 程序 设计 语言 《如 C++ 等 ) 中 的 对 象 在 概念 上 是 相同 的 ， 但 在 使 用 上 有 很 大 区 别 。 在 
C++ 之 类 的 程序 设计 语言 中 , 需要 程序 设计 人 员 编写 代码 设计 对 象 。 而 Excel VBA 中 , Excel 
已 为 开发 人 员 提 供 了 很 多 的 对 象 ， 开 发 人 员 可 直接 访问 这 些 对 象 。 在 VBA 中， 开发 人 员 
也 可 自己 编写 类 ， 用 来 创建 自己 的 对 象 〈 与 C++ 程序 设计 语言 类 似 ) 。 

在 Excel 中 ， 对 象 是 指 一 组 属性 及 这 组 属性 上 的 专用 操作 的 封装 体 。 属 性 可 以 是 一 些 
数据 ， 也 可 以 是 另 一 个 对 象 。 例 如 ，Excel 工作 矢 为 一 个 对 象 ， 它 的 属性 有 工作 短 名 称 、 
保存 位 置 、 作 者 、 工 作 表 等 ， 而 工作 表 又 可 以 是 一 个 对 象 ， 还 可 以 有 自己 的 属性 。 每 个 对 
象 都 有 它 自 己 的 属性 值 ， 表 示 该 对 象 的 状态 。 对 象 中 的 属性 只 能 通过 该 对 象 所 提供 的 操作 
来 存 取 和 修改 。 操 作 也 称 为 方法 或 服务 ， 它 规定 了 对 象 的 行为 ,表示 对 象 所 能 提供 的 服务 。 
一 个 对 象 通常 由 对 象 名 、 属 性 和 操作 3 部 分 组 成 。 

在 Excel 中 ， 对 象 代表 应 用 程序 中 的 元 素 ， 例 如 ， 工 作 表 、 单 元 格 、 图 表 、 窗 体 ， 或 
是 一 份 报告 。 在 VBA 的 代码 中 ， 在 使 用 对 象 的 任 一 方法 或 改变 它 的 属性 之 一 的 值 之 前 ， 
必须 先 识别 对 象 。 


10.1.2 ”对 象 的 属性 


属性 是 一 个 对 象 的 特性 ， 决 定 了 一 个 对 象 的 外 观 和 行为 。 要 改变 一 个 对 象 的 外 观 和 行 
为 ， 可 以 通过 改变 对 象 的 属性 来 实现 。 大 多 数 对 象 属性 是 在 对 象 生成 时 自动 设置 的 ， 用 户 
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可 以 在 设计 时 通过 【属性 】 窗 口 修改 属性 值 ， 也 可 在 VBA 代码 运行 时 通过 代码 改变 属性 。 
有 些 属性 值 在 运行 时 不 允许 VBA 代码 进行 修改 ， 这 种 属性 称 为 只 读 属性 。 

下 面 介绍 在 VBA 代码 中 设置 和 访问 属性 的 方法 。 

1. 设置 属性 值 

在 VBA 代码 中 ， 可 使 用 以 下 格式 设置 指定 属性 的 值 。 

对 象 名 .属性 名 = 属性 值 表达 式 

例如 ， 下 面 的 代码 设置 Excel 工作 表 Sheetl 的 标签 为 “第 1 张 工作 表 ”: 


Sub 更 改 工作 表 标 签 () 
Sheet1.Name = "第 1 张 工 作 表 " 
End sub 
在 以 上 代码 中 ，Sheetl 为 工作 表 对 象 的 名 称 ，Name 为 属性 名 。 
在 VBA 的 很 多 情况 下 ， 对 象 的 属性 又 可 返回 一 个 对 象 ， 这 里 可 通过 多 个 句点 符号 (.) 
来 逐 级 引用 对 象 的 子 对 象 ， 及 子 对 象 的 属性 。 例 如 ， 有 以 下 的 代码 : 
Sub 设置 单元 格 的 值 () 


Sheet1.Range ("A1") .Value = "测试 " 
End Sub 


其 中 Sheetl 为 Excel 工作 表 对 象 ，Range("Al") 为 单元 格 对 象 A1，Value 为 属性 名 。 
2. 读 取 属 性 值 

可 以 通过 属性 的 返回 值 ， 来 检索 对 象 的 信息 。 读 取 属 性 值 可 以 用 以 下 语法 : 

变量 名 = 对 象 名 .属性 名 

例如 ， 下 面 的 代码 可 获取 工作 表 Sheetl 中 单元 格 Al 中 的 值 : 

Sub 获取 单元 格 的 值 () 


Dim 工 
r= Sheet1.Range("R1") .Value 
MsgBox 工 

End Sub 


属性 值 也 可 以 作为 表达 式 的 一 部 分 ， 而 不 必 将 属性 赋予 变量 。 下 面 的 代码 计算 工作 表 
Sheetl 两 单元 格 的 数据 之 和 。 

intSum = Sheetl1.Cells(2, 1) .Value + Sheet1l.Cells(2，2) .Value 

在 工作 表 Sheetl 的 对 象 中 又 包含 很 多 对 象 ， 其 中 Cells 对 象 为 工作 表单 元 格 的 集合 对 
象 ， 父 对 象 引用 子 对 象 时 将 通过 点 运算 符 进行 。 


10.1.3 “对象 的 方法 
在 面向 过 程 的 程序 设计 中 ， 过 程 和 函数 是 程序 的 主要 部 件 。 而 在 面向 对 象 的 程序 设计 


中 ， 引 入 了 称 为 方法 的 特殊 过 程 和 函数 。 方 法 的 操作 与 过 程 、 函 数 相 同 。 不 同 的 是 ， 方 法 
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只 能 是 特定 对 象 的 一 部 分 ， 即 一 个 对 象 的 方法 不 能 应 用 到 另 一 个 对 象 中 。 
在 调用 方法 时 使 用 点 操作 符 引 用 ， 如 果 有 参数 ， 在 方法 后 加 上 参数 值 ， 参 数 间 用 空格 
隔 开 。 在 代码 中 使 用 方法 的 格式 如 下 : 
对 象 名 .方法 名 称 
例如 ， 单 元 格 区 域 对 象 为 Range， 可 以 使 用 Clear 方法 清除 单元 格 中 的 内 容 。 


Sub 清除 单元 格 的 值 () 
Sheet1.Range ("A1") .Clear 
End Sub 


10.1.4 ”对 象 的 事件 


事件 是 一 个 对 象 可 以 辨认 的 动作 ， 像 单 击 鼠 标 或 按 下 某 键 等 ， 并 且 可 以 写 某 些 代码 针 
对 此 动作 做 出 的 响应 。 用 户 做 的 动作 或 程序 代码 的 结果 都 可 能 导致 事件 的 发 生 ， 或 是 由 系 
统 引发 。 在 VBA 中 ， 可 以 激发 事件 的 用 户 动作 包括 : 切换 工作 表 、 选 择 单元 格 、 单 击 鼠 
标 等 儿 十 种 事件 。 当 事件 发 生 时 ， 将 执行 包含 在 事件 过 程 中 的 代码 。 如 果 用 户 没有 定义 某 
事件 所 调用 的 过 程 ， 当 发 生 该 事件 时 ， 就 不 会 产生 任何 反应 。 

编写 事件 响应 代码 是 在 【代码 编辑 器 】 窗 口中 进行 的 ， 如 图 10-1 所 示 。 在 【代码 编辑 
器 】 窗 口 的 右边 有 一 个 事件 列表 ， 这 个 事件 列表 从 属于 左边 的 控件 对 象 ， 当 左边 控件 列表 
中 的 控件 改变 后 ， 右 边 的 事件 列表 也 会 发 生变 化 。 


展 操 | 属 ] 


图 10-1 对 象 事件 列表 
事件 过 程 的 一 般 格 式 如 下 : 
Private Sub 对 象 名 事件 名 称 (参数 列表 ) 
事件 响应 程序 代码 


End Sub 


10.2 对象 变 量 和 对 象 数 组 


本 书 前 面 章节 介绍 了 变量 和 数组 的 知识 。 在 VBA 中 ， 变 量 和 数组 除了 直接 存储 值 ， 


“Rs 
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还 可 以 引用 对 象 。 将 对 象 分 配给 变量 的 优点 如 下 : 
口 变量 名 通常 要 比 访问 对 象 本 身 所 需 的 方法 和 属性 的 完整 路 径 短 而 且 容易 记忆 。 
口 与 通过 所 需 的 方法 或 属性 来 重复 访问 对 象 本 身 相 比 ， 使 用 引用 对 象 的 变量 更 有 效 。 
口 在 代码 运行 期 间 ， 可 以 更 改变 量 以 引用 其 他 对 象 。 


10.2.1 对象 变量 


对 象 变量 是 代表 一 个 完整 对 象 的 变量 ， 该 变量 中 实际 保存 着 具体 对 象 的 引用 指针 。 与 
普通 变量 类 似 的 是 ， 使 用 对 象 变量 也 需要 两 个 步骤 : 声明 对 象 变量 和 指定 对 象 变量 到 某 一 
对 象 。 


1. 声明 对 象 变量 


可 以 使 用 Dim 语句 或 其 他 的 声明 语句 之 一 (Public，Private 或 Static) 声明 对 象 变量 。 
引用 对 象 的 变量 必须 是 Variant、Object 或 是 一 个 对 象 的 指定 类 型 。 例 如 ， 下 列 声明 是 有 
效 的 


Dim MyObject ! 声 明 Myobject 为 Variant 数据 类 型 
Dim MyObject As Object ! 声 明 Myobject 为 object 数据 类 型 
Dim MyObject As Font ! 声 明 MyObject 为 Font 类 型 


名 注意: 如 果 使 用 对 象 变量 前 没有 声明 数据 类 型 ， 则 对 象 变量 默认 的 数据 类 型 是 Variant 
类 型 。 
在 有 些 情 况 下 ， 只 有 等 到 程序 运行 时 才 知 道 对 象 变量 引用 的 对 象 类 型 ， 这 时 可 将 对 象 
变量 声明 为 Object 数据 类 型 。 使 用 Object 数据 类 型 可 以 创建 对 任何 对 象 的 一 般 引 用 。 
如 果 知 道 对 象 变量 引用 的 对 象 类 型 ， 最 好 将 其 声明 为 所 知道 的 对 象 类 型 。 声 明 指定 的 
对 象 类 型 可 以 提供 自动 的 类 型 检查 ， 更 快 的 代码 生成 ， 并 增加 可 读 性 。 例 如 ， 如 果 对 象 变 
量 MyObject 指定 为 Range 对 象 类 型 ， 则 可 以 用 下 列 的 语句 来 声明 : 


Dim MyObject Rs Object "声明 为 一 般 的 对 象 
Dim MyObject As Range ! 只 声明 为 Range 对 象 


2. 对 象 变量 赋值 


与 普通 变量 的 赋值 不 同 , 给 对 象 变量 赋值 必须 使 用 Set 语句 。 例 如 , 下面 的 代码 将 Excel 
的 单元 格 对 象 Range 赋值 给 对 象 变量 MyCell: 

Set MyCell = Worksheets(1) .Range("C2") 

经 过 以 上 的 赋值 操作 后 ， 在 需 引 用 单元 格 C2 的 地 方 ， 可 直接 使 用 对 象 变量 MyCell 来 
代替 。 例 如 ， 以 下 两 种 方式 都 可 显示 单元 格 C2 保存 的 内 容 : 


MsgBox "单元 格 C2 的 值 为 : " & MyCell.Value 
MsgBox "单元 格 C2 的 值 为 : " & Worksheets(1) .Range ("C2") .Value 
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由 以 上 代码 可 看 出 ， 使 用 对 象 变量 的 方式 可 使 应 用 程序 更 简练 。 

3. 取消 关联 

设置 一 个 对 象 变量 等 于 Nothing 会 中 断 此 对 象 变量 与 任何 特定 对 象 的 关联 ， 这 样 可 预 
防 因 意 外 改变 变量 而 更 改 对 象 。 在 关闭 关联 对 象 后 ， 对 象 变量 总 是 设置 为 Nothing， 所 以 
可 以 检测 对 象 变量 是 否 指 向 有 效 的 对 象 。 例 如 : 

If Not MyObject Is Nothing Then ， 变量 引用 有 效 的 对 象 

End IF 

当然 ， 该 检测 不 能 绝对 地 决定 用 户 是 否 已 关闭 包含 对 象 变量 所 引用 对 象 的 应 用 程序 。 
全 注意 : 值 为 Nothing 的 对 象 变量 也 称 为 “ 空 引用 ”。 


4. 使 用 对 象 变量 的 优点 


使 用 对 象 变量 可 简化 代码 ， 并 提高 代码 的 执行 速度 。 例 如 ， 如 果 在 某 段 代 码 中 需要 反 
复 使 用 单元 格 C2， 那 么 完整 的 引用 代码 如 下 : 
Worksheets (1) .Range ("C2") .Value = "地 址 " 


Worksheets (1) .Range ("C2") .Font .Name = "黑体 " 
Worksheets (1) .Range ("C2") .Font .Bold = True 


下 面 的 代码 使 用 对 象 变量 来 引用 单元 格 C2， 用 来 完成 上 面 同 样 的 操作 : 


Dim MyCell Rs Range 

Set MyCell = Worksheets (1) .Range ("C2") 
MyCell.Value = "地 址 " 

MyCell .Font .Name = "黑体 " 
Mycel1.Font.Bold = True 


这 段 代 码 更 易 读 ， 并 且 执行 效率 更 高 。 仅 从 这 段 代 码 上 还 不 易 觉察 速度 的 提高 ， 如 果 
在 一 个 需要 重复 执行 几 百 上 千 次 的 循环 中 执行 这 段 代 码 ， 则 其 执行 效率 将 明显 提高 。 


10.2.2 ”对 象 数组 


如 果 在 程序 中 需要 处 理 大 量 相同 类 型 的 对 象 ， 这 时 可 使 用 对 象 数 组 来 指定 这 些 对 象 。 
对 象 数组 的 定义 与 普通 类 型 数据 的 数组 相同 ， 其 使 用 与 对 象 变量 的 使 用 类 似 。 下 面 以 实例 
形式 介绍 对 象 数 组 的 定义 和 使 用 。 
例如 ， 如 果 要 引用 工作 表 中 A 列 的 前 10 个 单元 格 ， 可 使 用 以 下 代码 : 
Dim MyRange (10) Rs Range 
Yo 
Set MyRange(i) = Worksheets (1) .Cells(i，1) 


Next 
Fori=1 To 10 


.174 。 


第 10 章 ”Excel 对象 概 述 


MsgBox (MyRange (i) .Value) 
Next 
程序 首先 定义 一 个 具有 10 个 元 素 的 对 象 组 ， 接 着 使 用 一 个 循环 将 各 单元 格 的 引用 赋 
值 给 对 象 数组 , 最 后 再 使 用 一 个 循环 调用 该 对 象 数组 的 各 元 素 。 本 例 只 显示 各 单元 格 的 值 ， 
另外 可 以 通过 对 象 数 组 中 的 元 素 MyRange(i) 来 控制 各 单元 格 的 字体 等 各 种 属性 ， 例 如 : 


MyRange(i).Value = 10 + I ' 为 单元 格 赋值 
MyRange (i) .Font.Bold = True ' 设 置 单元 格 字体 为 粗 体 


10.3 使 用 集合 


在 使 用 Excel 开发 应 用 程序 时 , 需要 大 量 使 用 到 集合 。 通过 对 集合 的 操作 可 简化 代码 。 
下 面 介绍 集合 的 概念 及 处 理 集合 的 方法 。 


10.3.1 集合 的 概念 


集合 是 一 种 特定 类 型 的 对 象 ， 代 表 一 组 相同 的 对 象 。 例 如 ， 一 部 电话 是 一 个 对 象 ， 多 
部 电话 就 组 成 电话 集合 。 

在 Excel 中 新 建 ee 可 以 发 现 每 个 工作 表 都 是 相同 的 。 像 这 样 一 组 相似 的 对 
象 就 称 为 “集合 ”， 集 合 也 是 对 象 。Excel 中 使 用 得 最 频繁 的 集合 是 代表 所 有 的 工作 表 和 
图 表 工 作 表 的 Sheets 集合 、 oe 集合 、Worksheets 集合 及 Windows 集合 。 当 使 用 集 

合 时 ， 可 以 在 该 集合 中 所 有 的 对 象 上 执行 相同 的 操作 。 
-个 集合 也 可 能 是 另 一 个 对 象 的 属性 。 例 如 ， 电 话 中 的 按键 集合 是 电话 对 象 的 属性 ， 
是 单个 按键 对 象 的 集合 。 因 此 ， 它 们 之 间 的 关系 是 : 电话 集合 是 多 部 单个 电话 对 象 组 成 的 
集合 , 每 个 电话 对 象 有 一 个 称 作 按键 集合 的 属性 ， 而 按键 集合 是 单个 按钮 对 象 组 成 的 集合 。 


10.3.2 访问 集合 中 的 对 象 

一 个 集合 中 包含 着 具有 相同 类 型 的 多 个 对 象 ， 除 了 使 用 上 面 介绍 的 方法 向 集合 中 增加 
对 象 外 ， 还 可 通过 集合 的 属性 访问 集合 中 的 单个 对 象 。 

1. Excel 中 的 集合 

Excel 中 有 很 多 系统 定义 的 集合 ， 如 以 下 代码 可 在 当前 工作 竹中 增加 一 张 工作 表 (或 
在 工作 表 集 合 中 增加 一 个 对 象 ) : 

Set ws = ActiveWorkbook.Worksheets.Add 


Worksheets 是 Worksheet (工作 表 ) 对 象 的 集合 ， 也 是 ActiveWorkbook 对 象 的 一 个 属 
性 。 在 这 里 也 可 以 得 出 集合 的 用 处 : 一 个 工作 短 可 以 包含 任意 多 个 工作 表 ， 而 Worksheets 
集合 提供 了 管理 这 些 工 作 表 的 简单 的 方法 。 


Sa 
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Excel 中 的 常用 的 集合 对 象 还 有 以 下 几 类 。 
Axes 集合 : 图 表 中 所 有 坐标 轴 对 象 的 集合 ; 
Charts: 工作 适中 图 表 工 作 表 的 集合 ; 
Sheets: 工作 竹中 所 有 工作 表 的 集合 ; 
Workbooks: 所 有 打开 的 工作 短 的 集合 。 
引用 集合 中 的 对 象 

使 用 VBA 可 以 处 理 某 个 对 象 的 整个 集合 ， 或 者 某 集 合 中 的 一 个 单独 的 对 象 。 引 用 集 
合 中 的 对 象 的 方法 是 : 

集合 (“ 对 象 名 ”) 或 集合 (对象 索 引号 ) 

引用 集合 中 的 某 个 对 象 ， 即 引用 对 象 名 或 对 象 索引 号 所 代表 的 对 象 。 例 如 ， 以 下 代码 
引用 集合 Worksheets 中 的 工作 表 Sheetl: 

Worksheets ("Sheet1l ") 

如 果 Sheetl 是 集合 中 的 第 一 个 工作 表 对 象 ， 还 可 以 写 为 以 下 形式 : 


Worksheets (1) 


PD O000g 


全 注意 : Sheets 集合 由 工作 簿 中 的 所 有 工作 表 ( 包括 图 表 工作 表 ) 组 成 。 若 要 引用 工作 簿 
中 的 第 一 个 工作 表 ， 可 采用 语句 Sheets(1) 表 示 。 


10.3.3 ”集合 的 方法 和 属性 

所 有 的 集合 都 有 方法 和 属性 ， 允 许 访问 集合 中 的 单个 对 象 。 其 中 ， 最 重要 的 方法 和 属 
性 有 3 个 ， 即 Count 属性 、Item 方法 和 Add 方法 。 

1. Count 属 性 

该 属性 指出 在 集合 中 有 多 少 个 单个 对 象 。 例 如 : 


Dim numl 
Numl=ActiveWorkbook .Worksheets .Count 


其 中 ，numl 是 一 个 变量 ， 存 储 ActiveWorkbook 对 象 中 Worksheet 对 象 的 数量 〈 即 工 
作 短 中 工作 表 的 数量 ) 。 


候 注 意 : 如 果 一 个 集合 为 空 ， 则 该 集合 的 Count 属性 值 为 0。 
2. ltem 方 法 
该 方法 访问 集合 中 一 个 特定 的 对 象 。 例 如 : 
Set myWorksheet=ActiveWorkbook .WorkSheets.Item(2) 
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括号 中 的 数字 表明 想 访问 的 是 哪个 工作 表 , 即 在 Worksheets 集合 中 的 第 2 个 Worksheet 
对 象 ， 并 将 它 赋 给 myWorksheet 变量 。 

也 可 以 在 括号 中 使 用 变量 ， 例 如 : 

Dim numl as Long, LastWorksheet as Object 

Num1=RActiveWorkbook.Worksheets .Count 

Set LastWorksheet=ActiveWorkbook .Worksheets .Item(numl) 

上 面 的 代码 首先 用 变量 numWorksheets 来 存储 在 Worksheets 集合 中 Worksheet 对 象 的 
数量 ， 然 后 访问 最 后 的 工作 表 。 因 此 ， 如 果 工 作 短 中 共有 5 个 工作 表 ， 则 可 以 指定 最 后 项 
目 为 “5” 来 访问 最 后 的 工作 表 ， 所 以 下 面 的 代码 与 上 面 代码 最 后 一 行 等 价 : 


Set LastWorksheet=ActiveWorkbook.Worksheets.Item(5) 


3. Add 方 法 
该 方法 允许 向 集合 中 添加 对 象 。 例 如 : 


Set NewWorksheet=ActiveWorkbook.WorkSheets.Add ("Sheet6") 
如 何 使 用 Add 方法 取决 于 想 要 添加 项 目的 集合 对 象 。 在 多 数 情况 下 ， 可 以 为 新 的 对 象 
指定 一 个 名 字 ， 例 如 ， 上 面 代码 中 的 Sheet6。 


10.3.4 遍历 集合 中 的 对 象 


如 果 需 要 对 集合 中 的 每 个 对 象 执行 相同 的 操作 ， 首 先 需 要 通过 集合 对 象 的 Count 属性 
获取 集合 中 包含 的 对 象 数量 ， 然 后 通过 循环 语句 对 集合 中 的 每 个 对 象 执行 相同 的 操作 。 例 
如 ， 以 下 代码 将 选中 区 域 单元 格 中 的 英文 字母 转换 为 大 写 : 

Dim i As Long 

j = Selection.Count 

For tem To 

Selection.Cells(i) = UCase (Selection.Cells (i)) 

Next 


在 VBA 中 提供 了 一 个 For Each... Next 语句 ， 该 循环 语句 可 以 逐个 处 理 集合 中 每 个 对 
象 。 使 用 该 语句 处 理 集合 时 ， 不 必 知 道 集 合 中 有 多 个 元 素 。 其 语法 结构 如 下 : 
For Each 元 素 In 集合 
[语句 系列 1] 
[Exit For] 
[语句 序列 2] 


Next 


使 用 For Each... Next 语句 可 将 前 面 例子 中 的 代码 改写 为 以 下 形式 : 


Dim MyCell As Range 

For Each MyCell In Selection 
MyCell = UCase (MyCell) 

Next 
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10.4 Excel 对象 模 型 


Excel 2007 的 对 象 很 多 ， 大 到 应 用 程序 、 窗 体 ， 小 到 一 个 单元 格 。 所 有 这 些 对 象 都 是 
通过 一 定 的 层次 结构 组 织 起 来 的 。 要 真正 掌握 Excel 2007 的 VBA 编程 ， 不 仅 要 求 开 发 人 
员 熟 悉 VBA 基本 语法 ， 熟 悉 Excel 2007 的 对 象 及 其 层次 结果 ， 还 必须 通过 大 量 的 实际 编 
程 才 能 真正 掌握 Excel 应 用 程序 的 开发 方法 ， 编 写 出 精简 高 效 的 程序 。 

本 节 将 介绍 Excel 对 象 模型 ， 在 本 书后 面 的 章节 中 将 详细 介绍 常用 Excel 对 象 的 使 用 
方法 。 


10.4.1 “Excel 对 象 模型 简介 


Excel 的 对 象 模型 是 通过 层次 结构 很 有 逻辑 地 组 织 在 一 起 的 ， 一 个 对 象 可 以 是 其 他 对 
象 的 容器 , 可 以 包含 其 他 的 对 象 , 而 这 些 对 象 又 包含 其 他 的 对 象 。 位 于 顶层 的 是 Application 
对 象 ， 它 包含 Excel 中 的 其 他 对 象 ， 例 如 Workbook 对 象 ; 一 个 Workbook 对 象 又 包含 其 他 

- 些 对 象 ,例如 Worksheet 对 象 ; 而 一 个 Worksheet 对 象 又 可 以 包含 其 他 对 象 , 例如 Range 
对 象 。 其 层次 结构 如 图 10-2 所 示 。 


图 10-2 对象 的 层次 结构 


知道 了 某 对 象 在 对 象 模型 层次 结构 中 的 位 置 ， 就 可 以 用 VBA 代码 方便 地 引用 该 对 象 ， 
从 而 对 该 对 象 进行 操作 ， 并 以 特定 的 方式 组 织 这 些 对 象 ， 使 Excel 能 根据 需要 自动 化 地 
完成 工作 任务 。 例 如 ， 要 获取 单元 格 Al 的 值 ， 按 图 10-2 所 示 的 引用 层次 ， 可 使 用 以 下 
代码 : 

Application.Workbooks (1) .Worksheets(1) .Range ("Al1") .Value 

以 上 代码 表示 引用 第 1 个 工作 适中 第 1 张 工作 表 的 单元 格 Al 的 值 。 

要 熟练 掌握 Excel VBA 编程 ， 必 须 理解 Excel 的 对 象 模型 。 在 Excel 2007 的 VBA 中 
提供 了 200 多 种 对 象 ， 在 VBA 的 帮助 系统 中 可 查看 每 个 对 象 的 属性 、 方 法 和 事件 。 

在 Excel 2007 的 VBA 帮助 系统 中 没有 提供 Excel 对 象 模型 的 层次 结构 图 。 如 图 10-3 
所 示 为 Excel 2003 的 VBA 帮助 系统 中 提供 的 Excel 对 象 模 型 的 层次 结构 图 ， 供 读者 参考 。 


es 


第 10 章 ”Excel 对象 概述 


和 icrosoft Excel 对 象 模型 
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图 10-3 Excel 对 象 模型 


由 上 图 看 出 ，Excel 的 对 象 模型 以 Application 为 顶层 对 象 ， 下 属 各 对 和 象 按 字母 顺序 排 
列 ， 将 对 象 、 集 合 以 不 同 颜色 显示 。 其 中 每 个 对 象 的 下 属 对 象 显示 在 下 一 层 中 ， 例 如 
Application 对 象 下 的 第 一 下 属 子 对 象 为 AddIns (为 一 个 集合 对 象 ) 。 其 中 Range 对 象 的 下 
属 子 对 象 最 多 ， 包 括 Areas、Comment、Errors、Font 等 子 对 象 。 


10.4.2 ”常用 对 象 简介 


在 Excel 2007 中 ,提供 了 二 百 多 个 对 象 。 在 使 用 Excel 时 ， 有 些 对 象 可 能 会 经 常用 到 ， 
而 另外 一 些 对 象 则 不 常用 。 一 般 来 说 ， 对 Excel 应 用 程序 本 身 的 一 些 设置 、 对 工作 竹 和 工 
作 表 的 操作 、 单 元 格 和 单元 格 区 域 的 操作 、 图 表 的 操作 等 是 经 常 要 涉及 的 。 因 此 ， 在 学 习 
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Excel 的 对 象 模型 时 ， 可 以 先 集中 研究 和 探讨 与 这 些 操 作 相 关 的 对 象 、 方 法 、 属 性 和 事件 ， 
以 及 它们 的 使 用 ， 以 此 来 逐步 加 深 对 Excel 对 象 模型 的 认识 和 理解 直至 全 面 掌握 。 
在 开发 Excel 应 用 程序 时 ， 最 常用 的 有 以 下 对 象 ( 此 处 列 出 这 些 对 象 的 主要 作用 ， 在 
后 面 章节 中 将 详细 介绍 这 些 对 象 的 使 用 方法 ) : 

1. Application 对 象 


Application 对 象 代 表 整 个 Excel 应 用 程序 。 该 对 象 包括 : 
口 应 用 程序 范围 的 设置 和 选项 。 
口 返回 顶级 对 象 的 方法 ， 例 如 ，ActiveCell 和 ActiveSheet 等 。 


2. Workbook 对 象 


WorkBook 代表 一 个 Excel 工作 每。Workbook 对 象 是 Workbooks 集合 的 成 员 。 
Workbooks 集合 包含 Excel 中 当前 打开 的 所 有 Workbook 对 象 。 

使 用 Application 对 象 的 ThisWorkbook 属性 将 返回 运行 VBA 代码 的 工作 适 . 在 大 多 数 
情况 下 ， 该 工作 短 与 活动 工作 夭 是 同一 个 。 

3. Worksheet 对 象 


Worksheet 对 象 代表 一 个 工作 表 。Worksheet 对 象 是 Worksheets 集合 的 成 员 。Worksheets 
集合 包含 某 个 工作 短 中 所 有 的 Worksheet 对 象 。Worksheet 对 象 也 是 Sheets 集合 的 成 员 。 
Sheets 集合 包含 工作 簿 中 所 有 的 工作 表 (图 表 工 作 表 和 工作 表 )。 


4. Range 对 象 


Range 为 单元 格 对 象 ， 是 VBA 代码 中 最 常用 的 对 象 。Range 对 象 代表 某 一 单元 格 、 某 
- 行 、 某 一 列 、 某 一 选 定 区 域 〈 该 区 域 可 包含 一 个 或 若干 连续 单元 格 区 域 ) ， 或 者 某 一 个 
三 维 区 域 。 

使 用 以 下 属性 和 方法 可 返回 Range 对 象 。 

口 Range 属性 ， 使 用 Worksheet 对 象 的 Range 属性 ， 将 返回 一 个 Range 对 象 ， 它 代表 
一 个 单元 格 或 单元 格 区 域 。 

口 Cells 属性 ,使 用 Worksheet 对 象 的 Cells 属性 ， 将 返回 一 个 Range 对 象 ， 它 代表 工 
作 表 中 的 所 有 单元 格 〈 不 仅仅 是 当前 使 用 的 单元 格 ) 。 

口 Offset 属性 , 使 用 已 有 Range 对 象 的 Offset 属性 ,将 返回 一 个 新 的 Range 对 象 , 它 
代表 位 于 指定 单元 格 区 域 的 一 定 的 偏 移 量 位 置 上 的 区 域 。 

口 Union 方法 ， 使 用 Application 对 象 的 Union 方法 ， 将 返回 两 个 或 多 个 区 域 的 合并 
区 域 。 


10.4.3 隐 含 使 用 对 象 
前 面 介绍 了 对 象 层次 结构 的 概念 ， 通 过 这 个 层次 结构 就 可 以 从 对 象 的 顶层 一 直 追 溯 到 
要 操作 的 对 象 。 例 如 ， 要 将 单元 格 Al 的 值 设 置 为 “对 象 引用 层次 结构 ”， 可 使 用 以 下 
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代码 : 

Application.Workbooks (1) .Worksheets (1) .Range ("A1") .Value = "对 象 引用 层次 

结构 " 

以 上 代码 使 用 了 完整 的 层次 路 径 来 引用 单元 格 对 象 A1, 这 种 方式 在 语法 上 是 完全 正确 
的 ， 但 是 如 果 没 有 特殊 需要 ， 一 般 不 需要 这 样 编 写 代码 。 

其 实 ， 在 引用 Excel 对 象 时 ， 应 该 从 系统 能 够 确定 与 所 需 对 象 的 层次 最 相近 的 对 象 开 
始 引 用 。 因 为 Application 对 象 代 表 了 正在 运行 的 Excel 本 身 。 因 此 ,如 果 当 前 代码 是 在 Excel 
中 执行 ， 就 可 以 隐 含 Application 对 象 的 引用 ， 可 将 上 面 的 代码 改 为 以 下 形式 : 

Workbooks (1) .Worksheets (1) .Range ("A1") .Value = "对 象 引用 层次 结构 " 

如 果 用 户 要 修改 的 单元 格 的 位 置 是 在 活动 工作 簿 中 ， 则 可 将 代码 改 为 如 下 形式 : 

ActiveWorkbook .Worksheets (1) .Range ("A1") .Value = "对 象 引用 层次 结构 " 

其 中 ActiveWorkbook 为 Application 对 象 的 一 个 属性 ， 用 来 返回 当前 活动 工作 短 的 
引用 。 

同样 ， 如 果 要 对 当前 工作 表 进 行 修改 ， 可 使 用 以 下 代码 : 

ActiveWorksheet .Range ("Al1") .Value = "对 象 引用 层次 结构 " 

如 果 代 码 是 在 工作 表 Worksheets(1) 中 编写 的 ， 还 可 使 用 以 下 形式 : 

Range ("A1") .Value = "对 象 引 用 层次 结构 " 

在 Excel 中 ， 还 可 以 使 用 Selection 来 引用 活动 窗口 中 选 定 的 对 象 。 因 此 ， 如 果 要 设置 
当前 选中 单元 格 Al 的 值 ， 可 使 用 以 下 代码 : 

Selection.Value = "对 象 引用 层次 结构 " 


10.5 使 用 对 象 浏 览 器 


Excel 的 对 象 模型 中 有 二 百 多 个 对 象 ， 每 个 对 象 又 具有 数量 不 等 的 属性 、 方 法 、 事 件 
和 常数 ， 对 于 开发 人 员 来 说 ， 要 全 部 记 住 这 些 内 容 是 非常 困难 的 。VBE 中 提供 了 【对 象 济 
览 器 】 对 话 框 ， 可 帮助 用 户 查看 对 象 的 属性 、 方 法 、 事 件 及 常数 变量 等 内 容 。 

本 节 介 绍 【 对 象 浏览 器 】 的 使 用 方法 。 


10.5.1 认识 对 象 浏览 

通过 【对 象 浏览 器 】 可 浏览 工程 中 所 有 可 获得 的 对 象 并 查看 它们 的 属性 、 方 法 以 及 事 
件 。 此 外 还 可 查看 工程 中 可 从 对 象 库 获得 的 过 程 以 及 常数 。 也 可 用 【对 象 浏览 器 】 去 搜索 
和 使 用 用 户 自己 所 创建 的 对 象 ， 其 他 应 用 程序 的 对 象 也 可 用 它 来 浏览 。 

可 以 按 以 下 步骤 使 用 【对 象 浏览 器 】 中 的 功能 : 
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(1) 在 VBE 中 激活 一 个 模块 。 
(2) 单 击 主 菜单 【查看 】| 【对象 浏览 器 】 命 令 (或 按 快捷 键 F2) ， 打 开 【 对 象 浏览 
上 器】 窗口， 如 图 10-4 所 示 。 


图 10-4 【对 象 浏览 器 】 窗 口 


(3) 在 【工程 / 库 】 列 表 中 选 定 所 要 查看 的 工程 或 程序 库 名 称 。 

(4) 使 用 【类 】 列 表 选 定 类 ; 使 用 【成 员 】 列 表 选 定 类 或 工程 中 的 特定 成 员 。 

(5) 查看 在 窗口 底 端的 详细 资料 区 选 定 的 工程 或 类 的 信息 。 

(6) 使 用 【帮助 】 按 钮 显示 所 选 类 或 成 员 的 帮助 主题 。 

从 图 中 看 出 ， 对 象 浏览 器 分 为 三 个 主要 部 分 : 顶部 为 搜索 部 分 、 中 间 为 搜索 结果 部 分 、 

底部 为 选中 对 象 成 员 的 代码 模板 。 

下 面 简单 介绍 各 部 件 的 功能 。 

口 【工程 / 库 】 下 拉 列 表 框 : 列 出 了 所 有 可 用 于 当前 VBA 工程 的 所 有 库 和 工程 的 名 
称 。【 库 】 是 包含 应 用 程序 里 相关 对 象 信息 的 专门 文件 。 新 的 库 可 以 通过 【引用 】 
对 话 框 〈 单 击 主 菜单 【工具 】|【 引 用 】 命 令 ) 来 添加 。“< 所 有 库 >” 列 出 了 已 安 
装 在 计算 机 中 所 有 库 的 对 象 。 当 选择 Excel 库 时 ， 仅 仅 能 看 到 在 Excel 里 执行 的 对 
象 名 称 。VBA 库 列 出 了 所 有 能 在 VBA 里 执行 的 对 象 名 称 。 

口 【搜索 文本 】 文 本 框 : 在 【工程 / 库 】 下 拉 列 表 框 的 下 方 ， 有 一 个 【搜索 文本 】 文 
本 框 ， 可 以 快速 地 在 指定 库 里 查找 信息 。 这 个 地 方 会 记 住 最 近 搜索 的 项 目 ， 直 到 
关闭 此 工程 为 止 。 在 该 文本 框 中 输入 字符 串 时 ， 可 以 使 用 标准 的 VB 通配符 。 如 
果 要 查找 完全 相符 的 字符 串 ， 可 以 在 对 象 浏览 器 的 任何 地 方 右 击 ， 从 快捷 菜单 中 
选择 【全 字 匹 配 】 命 令 ， 如 图 10-5 所 示 。 

口 【向 后 】 按 钮 划 : 可 以 向 后 回 到 前 一 个 类 及 成 员 列 表 。 每 单 击 一 次 便 向 后 一 个 选 
项 ， 直 到 最 后 。 

口 【向 前 】 按 钮 六 |， 每 次 单 击 可 以 重复 原本 选择 的 类 及 成 员 列表 ， 直 到 选择 列表 


用 完 。 
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图 10-5 【全 字 匹 配 】 命 令 


【复制 到 剪贴 板 】 按 钮 双 : 将 成 员 列表 中 的 选择 或 详细 框 中 的 文本 复制 到 剪贴 板 。 
可 在 之 后 将 选择 贴 到 代码 中 。 
【查看 定义 】 按 钮 刘 ， 将 光标 移 到 【代码 】 窗 口中 ， 定 义 成 员 列 表 或 类 列表 中 选 
定 的 位 置 。 
【帮助 】 按 钮 于， 显示 在 类 或 成 员 列表 中 选 定 工程 的 联机 帮助 主题 。 
【搜索 】 按 钮 出 :在 选 定 库 中 搜索 在 【搜索 文本 】 框 中 键入 的 字符 串 ， 并 且 打 开 
有 适当 信息 列表 的 【搜索 结果 】 列 表 框 ， 在 其 中 显示 符合 搜索 文本 框 中 所 输入 的 
搜索 条 件 的 库 、 类 和 成 员 。 
【显示 /隐藏 搜索 结果 】 按 钮 浊 ， 打 开 或 隐藏 【搜索 结果 】 列 表 框 。【 搜 索 结果 】 
列表 框 改 变 为 显示 从 【工程 / 库 】 列 表 中 所 选 出 的 工程 或 库 的 搜索 结果 。 搜 索 结果 
会 默认 的 按 类 型 创建 组 并 从 A 到 ZZ 排列 。 
【搜索 结果 列表 】: 显示 搜索 字符 串 所 包含 工程 的 对 应 库 、 类 及 成 员 。【 搜 索 结 
果 】 列 表 框 在 改变 【工程 / 库 】 下 拉 列 表 框 中 的 选择 时 改变 。 
【类 】 列 表 框 : 显示 在 【工程 / 库 】 下 拉 列 表 框 中 选 定 的 库 或 工程 中 所 有 可 用 的 类 。 
如 果 有 代码 编写 的 类 ， 则 该 类 会 以 粗 体 方 式 显 示 。 这 个 列表 的 开头 都 是 
“<globals>”， 是 可 以 全 局 访问 的 成 员 列 表 。 如 果 选 择 了 类 但 没有 选择 特定 的 成 
员 ， 则 会 得 到 默认 成 员 。 默 认 的 成 员 以 星 号 (*) 或 是 以 此 成 员 特 定 的 默认 图 标 作 
为 标识 。 
【成 员 列 表 】: 显示 在 【类 】 列 表 框 中 所 选 类 的 元 素 属性 、 事 件 、 方 法 和 常数 。 
用 代码 编写 的 方法 、 属 性 、 事 件 或 常数 会 以 粗 体 显 示 。 默 认 情况 下 ， 将 属性 、 事 
件 、 方 法 和 常数 按 字 母 顺序 排列 ， 在 如 图 10-6 所 示 的 快捷 菜单 中 ， 选择 【组 成 员 】 
命令 后 ， 将 改变 显示 顺序 〈 以 属性 、 方 法 、 事 件 和 常数 分 组 ， 每 组 再 按 字 母 顺 序 
排列 ) 。 
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口 【代码 模板 】: 对 象 浏览 器 窗口 底部 显示 所 选 成 员 定义 的 代码 模板 。 如 果 单 击 代 
码 模板 里 绿色 链接 文本 ， 就 可 以 在 对 象 浏览 器 窗口 中 快速 跳 到 所 选 成 员 的 类 或 库 。 
代码 模板 里 的 文本 可 以 复制 到 Windows 剪 切 板 并 且 粘 贴 到 代码 窗口 中 。 如 果 对 象 
浏览 器 打开 时 代码 窗口 是 可 见 的 ， 那 么 只 需 选 中 代码 模板 里 的 文本 ， 直 接 拖 忠 到 
代码 窗口 就 行 了 。 


10-6 按 【 组 成 员 】 命 令 排 列 


10.5.2 ”用 对 象 浏览 器 查看 对 象 成 员 


了 解 了 【对 象 浏览 器 】 对 话 框 及 各 部 件 的 作用 后 ,就 可 使 用 该 对 话 框 来 查看 对 象 成 员 。 

例如 ，Range 对 象 是 VBA 中 最 常用 的 一 个 对 象 ， 下 面 通 过 【对 象 浏览 器 】 窗 口 来 熟悉 
Range 对 象 的 属性 、 方 法 、 事 件 和 常数 。 

(1) 启动 Excel， 并 按 快捷 键 AlttF11 进入 VBE。 

(2) 按 F2 键 打开 【对 象 浏览 器 】 窗 口 。 

(3) 在 【工程 / 库 】 下 拉 列 表 框 中 选择 Excel。 

(4) 在 【搜索 文本 】 框 中 输入 Range 关键 字 ， 并 单 击 右 侧 的 【搜索 】 按 钮 ， 得 到 如 
图 10-7 所 示 的 结果 。 在 【搜索 结果 】 列 表 框 中 显示 了 与 关键 字 Range 完全 匹配 的 选项 ， 如 
Range 类 ， 以 及 许多 类 的 Range 成 员 。 

(5) 在 【搜索 结果 】 列 表 框 中 单 击 第 一 个 选项 (Range 类 ) ， 下 方 将 显示 出 Range 的 
成 员 ， 如 图 10-7 所 示 。 


全 提示 : 成 员 列 表 框 中 以 不 同 的 图 标 表示 属性 、 方 法 、 事 件 或 常数 。 晕 图 标 为 属性 ，: 钨 图 
标 为 方法 ， 多 图 标 为 事件 ， 回 图 标 为 常数 。 


(6) 在 成 员 列 表 中 单 击 方法 AutoFit， 在 下 方 的 【代码 模板 】 中 将 显示 该 方法 的 定义 原 
型 ， 如 图 10-8 所 示 。 
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对 象 剂 览 舌 本 多 刑 范 委 


图 10-7 搜索 Range 对 象 10-8 ”查看 成 员 


(7) 单 击 右 上 角 的 【帮助 】 按 钮 ， 可 打开 【Excel 帮助】 窗口 ， 并 显示 当前 选中 成 员 
的 帮助 信息 ， 如 图 10-9 所 示 。 
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10-9 ”显示 帮助 信息 


(8) 在 【对 象 浏览 器 】 窗 口中 单 击 上 方 的 【复制 到 剪贴 板 】 按 钮 ， 将 代码 复制 到 剪贴 


板 中 。 
(9) 在 【代码 】 窗 口中 按 快 捷 键 CtrltV 即 可 将 其 粘贴 到 当前 位 置 ， 如 图 10-10 所 示 。 
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Application 对 象 是 Excel 对 象 模 型 的 最 顶层 对 象 ,代表 Excel 应 用 程序 本 身 。.Application 
对 象 提供 了 大 量 的 属性 、 方 法 和 事件 ， 供 用 户 操 作 控制 Excel 程序 。 


11.1 了 解 Application 对 象 


通过 Application 对 象 提供 的 属性 、 方 法 和 事件 可 控制 Excel 应 用 程序 的 外 观 状态 ， 响 
应 用 户 的 操作 。 本 节 的 前 面 内 容 将 简单 介绍 Application 对 象 的 常用 属性 和 方法 ， 后 面 将 以 
实例 演示 控制 Application 对 象 的 代码 。 


11.1.1 Application 对 象 常用 属性 


Application 对 象 提供 了 很 多 属性 ， 通 过 这 些 属性 可 完成 控制 Excel 的 状态 、 获 取 对 象 
的 引用 等 操作 。 


1. 控制 Excel 状 态 


控制 Excel 状态 的 常用 属性 有 以 下 几 个 。 

DisplayFormulaBar 属性 : 如 果 该 属性 值 为 True， 则 显示 编辑 栏 。 
DisplayScrollBars 属性 : 如 果 该 属性 值 为 True， 则 滚动 条 在 所 有 工作 短 中 显示 。 
DisplayStatusBar 属性 : 如 果 该 属性 值 为 True， 则 显示 状态 栏 。 

ScreenUpdating 属性 : 如 果 该 属性 值 为 True， 则 启用 屏幕 更 新 。 

StatusBar 属性 : 返回 或 设置 状态 栏 中 的 文字 。 

Visible 属性 : 返回 或 设置 一 个 Boolean 值 ， 其 确定 对 象 是 否 可 见 。 
WindowState 属性 : 返回 或 设置 窗口 的 状态 。 


获取 对 象 的 引用 


许多 Application 对 象 的 属性 可 用 来 返回 其 他 的 对 象 。 返回 对 象 引用 的 属性 主要 有 以 下 
几 种 。 
口 ActiveCell 属性 : 返回 一 个 Range 对 象 ， 它 代表 活动 窗口 〈 最 上 方 的 窗口 ) 或 指定 
窗口 中 的 活动 单元 格 。 如 果 窗 口中 没有 显示 工作 表 ， 则 此 属性 无 效 。 
口 ActiveChart 属性 : 返回 一 个 Chart 对 象 , 它 代表 活动 图 表 (嵌入 式 图 表 或 图 表 工 作 
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表 ) 。 艇 入 式 图 表 在 被 选中 或 激活 时 被 认为 是 活动 的 。 当 没有 图 表 处 于 活动 状态 
时 ， 此 属性 返回 Nothing。 

ActiveSheet 属性 : 返回 一 个 对 象 ， 它 代表 活动 工作 筹 中 或 指定 的 窗口 指定 的 工作 
每 中 的 活动 工作 表 (最 上 面 的 工作 表 ) 。 如 果 没 有 活动 的 工作 表 ,， 则 返回 Nothing。 
ActiveWindow 属性 : 返回 一 个 Window 对 象 ， 该 对 象 表示 活动 窗口 〈 顶 部 窗口 ) 。 
如 果 没 有 打开 的 窗口 ， 则 返回 Nothing。 

ActiveWorkbook 属性 : 返回 一 个 Workbook 对 象 ， 该 对 象 表示 活动 窗口 〈 顶 部 窗 
口 ) 中 的 工作 短 。 如 果 没 有 打开 的 窗口 ， 或 者 “信息 ”、“ 前 贴 板 ”的 窗口 为 活 
动 窗口 ， 则 返回 Nothing。 

Cells 属性 : 返回 一 个 Range 对 象 ， 它 代表 活动 工作 表 中 的 所 有 列 。 因 为 Item 属性 
是 Range 对 象 的 默认 属性 ， 所 以 可 以 在 Cells 关键 字 后 面 紧 接着 指定 行 和 列 索引 。 
Selection 属性 : 为 Application 对 象 返回 在 活动 窗口 中 选 定 的 对 象 。 返 回 的 对 象 类 
型 取决 于 当前 所 选 内 容 〈 例 如 ， 如 果 选 择 了 单元 格 ， 此 属性 将 返回 Range 对 象 ) 。 
如 果 未 选择 任何 内 容 ，Selection 属性 将 返回 Nothing。 

Sheets 属性 : 返回 一 个 Sheets 集合 ， 它 代表 活动 工作 竹中 所 有 的 工作 表 。 
Workbooks 属性 : 返回 一 个 Workbooks 集合 ， 该 集合 表示 所 有 打开 的 工作 每 。 
WorksheetFunction 属性 : 用 作 可 以 从 VB 中 调用 的 Excel 工作 表 函 数 的 容器 。 


11.1.2 Application 对 象 常用 方法 


Application 对 象 提供 了 许多 允许 执行 操作 的 方法 ， 例 如 ， 重 新 计算 当前 数据 、 撤 销 操 
作 等 。 下 面 列 出 常用 的 方法 。 


口 


口 


Calculate 方法 : 计算 所 有 打开 的 工作 短 、 工 作 敌 中 的 某 个 特定 工作 表 或 工作 表 指 
定 区 域 中 的 单元 格 。 

Evaluate 方法 : 将 一 个 Excel 名 称 转 换 为 一 个 对 象 或 者 一 个 值 。 该 方法 允许 以 字符 
串 的 形式 创建 引用 ， 并 且 在 需要 时 将 其 转换 成 一 个 实际 对 象 引 用 〈 或 求 出 表达 式 
的 值 ) 。 

Quit 方 法 : 退出 Excel 程序 。 使 用 此 方法 时 ， 如 果 未 保存 的 工作 短处 于 打开 状态 ， 
则 Excel 将 显示 一 个 对 话 框 ,询问 是 否 要 保存 所 作 更 改 。 要 防止 发 生 这 种 情况 ， 可 
以 在 使 用 Quit 方 法 前 保存 所 有 工作 敌 或 将 DisplayAlerts 属性 设置 为 False。 如 果 该 
属性 为 False， 则 在 Excel 退出 时 ， 即 使 有 未 保存 的 工作 短 ， 也 不 会 显示 对 话 框 ， 
而 且 不 会 不 保存 就 退出 。 

OnTime 方法 : 安排 一 个 过 程 在 将 来 的 特定 时 间 运 行 ( 既 可 以 是 具体 指定 的 某 个 时 
间 ， 也 可 以 是 指定 的 一 段 时 间 之 后 ) 。 

Undo 方法 : 撤销 最 后 一 次 用 户 界面 操作 。 本 方法 仅 撤销 运行 该 宏 之 前 的 最 后 一 个 
用 户 操 作 ， 并 且 必 须 将 其 放 到 宏 的 第 一 行 ， 不 能 撤销 VBA 命令。 

Union 方法 : 返回 两 个 或 多 个 区 域 的 合并 区 域 。 


“a 


Excel VBA 开发 技术 大 全 


11.1.3 ” Application 对 象 常用 事件 


在 Excel 的 对 象 模型 中 ， 大 部 分 对 象 都 提供 了 事件 接口 。 在 大 部 分 情况 下 ， 通 过 
Workbook、Worksheet、Range 等 对 象 提 供 的 事件 接口 能 满足 程序 设计 的 需要 ， 用 户 可 以 不 
使 用 Application 对 象 的 事件 过 程 。 

大 部 分 Application 对 象 的 事件 与 Workbook、Worksheet 等 对 象 的 事件 相似 ， 常 用 的 事 
件 有 下 面 几 种 。 

口 NewWorkbook 事件 ， 当 新 建 一 个 工作 短 时 发 生 此 事件 。 

口 SheetActivate 事件 : 当 激 活 任何 工作 表 时 发 生 此 事件 。 

口 SheetBeforeDoubleClick 事件 ， 当 双击 任何 工作 表 时 发 生 此 事件 ， 此 事件 先 于 默认 
的 双击 操作 发 生 。 

SheetChange 事件 ， 当 用 户 或 外 部 链接 更 改 了 任何 工作 表 中 的 单元 格 时 发 生 此 
事件 。 

SheetDeactivate 事件 : 当 任何 工作 表 被 停 用 时 发 生 此 事件 。 

WindowActivate 事件 : 工作 短 窗 口 被 激活 时 ， 将 发 生 此 事件 。 

WindowDeactivate 事件 : 任何 工作 短 窗 口 被 停 用 时 将 发 生 此 事件 。 

WindowResize 事件 : 任何 工作 短 窗 口 调整 大 小 时 将 发 生 此 事件 。 
WorkbookActivate 事件 当 激活 任何 一 个 工作 短 时 发 生 此 事件 。 
WorkbookBeforeClose 事件 ， 当 任何 一 个 打开 的 工作 簿 关闭 之 前 立即 发 生 此 事件 。 
WorkbookBeforeSave 事件 ， 在 保存 任何 一 个 打开 的 工作 簿 之 前 发 生 此 事件 。 
WorkbookNewSheet 事件 ， 在 任何 打开 的 工作 适中 新 建 工作 表 时 发 生 此 事件 。 
WorkbookOpen 事件 ， 当 打开 一 个 工作 秒 时 发 生 此 事件 。 

对 于 Application 对 象 的 事件 : 还 需要 通过 特殊 的 设置 方法 才能 将 其 激活 。 在 本 章 后 面 
的 内 容 中 将 会 详细 介绍 。 


口 
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11.2 设置 应 用 程序 选项 


Application 对 象 代表 整个 Excel 应 用 程序 ， 通 过 Application 对 象 的 属性 就 可 设置 应 用 
程序 的 各 个 选项 。 


11.2.1 设置 主 窗口 标题 栏 


正常 情况 下 ，Excel 应 用 程序 的 标题 栏 中 将 显示 Microsoft Excel。 如 果 在 Excel 中 设计 
了 一 个 应 用 程序 ， 可 能 希望 标题 栏 显示 的 内 容 为 应 用 程序 的 名 称 ， 例 如 “工资 管理 系统 ”。 

使 用 Application 对 象 的 Caption 属性 ， 可 以 改变 Excel 主 窗口 标题 栏 中 显示 的 名 称 。 
一 般 将 这 类 代码 放 在 工作 敌 的 Open 事件 中 ， 打 开工 作 短 即 可 将 其 设置 需要 的 名 称 。 例 如 ， 
以 下 代码 将 标题 栏 设 置 为 “工资 管理 系统 ”。 
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Private Sub Workbook open() 
Application.Caption = "工资 管理 系统 " 
End Sub 


关闭 Excel， 再 重新 打开 包含 以 上 代码 的 Excel 工作 短 (或 在 VBE 环境 中 执行 以 上 代 
码 ) ， 可 得 到 如 图 11-1 所 示 的 标题 栏 名 称 。 


NE ESE 工交 生理 系统 pt 
| Fw | 搬 A 页 而 局 。 公式 数 抽风 视 加 开 必 T 具 。 加 二 顺 回 
和 

| 


二 


图 11-1 设置 标题 栏 


Caption 属性 是 针对 整个 Excel 应 用 程序 的 设置 , 退出 包含 以 上 代码 的 工作 敌后 , Excel 
的 标题 栏 仍 将 显示 修改 后 的 标题 名 称 。 因此 , 一 般 在 工作 敌 的 BeforeClose 事件 中 编写 以 下 
代码 ， 来 恢复 Excel 应 用 程序 的 标题 栏 信息 。 

Private Sub Workbook _ BeforeCclose (Cancel Rs Boolean) 


Application.Caption = "" 
End Sub 


全 提示 : 将 Caption 属性 设置 为 空 ， 则 可 使 Caption 属性 返回 Microsoft Excel。 


11.2.2 ”控制 状态 栏 


通过 StatusBar 属性 可 返回 或 设置 状态 栏 中 的 文字 。 一 般 在 应 用 程序 需要 进行 大 量 运 算 
的 工作 时 ， 可 以 在 状态 栏 中 显示 相应 的 提示 人 信息。 否则， 应 用 程序 长 时 间 无 响应 ， 用 户 会 
以 为 计算 机 系统 死机 。 

例如 ,下 面 的 代码 在 状态 栏 动态 显示 正在 处 理 的 数据 行 数 , 最 后 设置 StatusBar 属性 值 
为 False， 可 将 状态 栏 中 的 内 容 清除 。 


Sub 控制 状态 栏 () 
Dim i As Long 
For i = 1 To ActiveSheet .Rows.Count 
If i Mod 100 = 0 Then 


Application.StatusBar = "正在 处 理 第 " & i &" 行 的 数据 ， 请 稍 候 ! " 
End If 
Next 


Application.statusBar = False 
End Sub 


执行 以 上 代码 ， 状 态 栏 的 显示 如 图 11-2 所 示 。 


“正在 处 理 第 64200 行 的 数据 , 请 稍 候 ! | 


图 11-2 控制 状态 栏 
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除了 设置 StatusBar 的 属性 为 False 来 清除 状态 栏 中 的 数据 外 ， 还 可 使 用 DisplayStatus 
Bar 属性 。 例 如 ， 可 使 用 以 下 语句 清除 状态 栏 中 的 内 容 。 


Application.DisplaystatusBar = oldstatusBar 


11.2.3 ”控制 编辑 栏 


在 如 图 11-3 所 示 的 【Excel 选项 】 对 话 框 中 ， 可 选中 或 取消 【显示 编辑 栏 】 前 面 的 复 
选 框 来 控制 是 否 显 示 编辑 栏 。 


时 未 风电 的 “最近 使 用 的 位”(R): |17 
标 R 间 位 | 让座 单 位 国 
回 在 任务 芒 中 且 示 所 有 宣 D 


县 他 时 显示 数据 点 的 槛 0 
对 于 而 德 注 的 单元 格 ,时 元 - 
© 天 ME 


图 11-3 【Excel 选项 】 对 话 框 


通过 VBA 编写 代码 , 也 可 通过 DisplayFormulaBar 属性 来 控制 【编辑 栏 ] 的 显示 状态 。 
如 果 该 属性 值 为 True， 则 显示 编辑 栏 。 
使 用 下 面 的 代码 ， 可 控制 编辑 栏 的 显示 状态 。 
Sub 控制 编辑 栏 () 
With Application 
If .DisplayFormulaBar Then 
.DisplayFormulaBar = False 
Else 
.DisplayFormulaBar = True 
End If 
End With 
End Sub 


以 上 代码 首先 通过 DisplayFormulaBar 属性 获取 当前 编辑 栏 的 状态 , 再 决定 是 显示 还 是 
隐藏 编辑 栏 。 
全 提示 : 用 户 可 以 在 Excel 工作 表 中 添加 一 个 按钮 ， 用 来 执行 上 面 的 宏 ， 以 方便 地 控制 纺 
辑 栏 的 显示 状态 。 


11.2.4 ”控制 鼠标 指针 形状 


在 Windows 操作 系统 中 ， 可 以 通过 鼠标 指针 的 形状 获得 系统 当前 的 状态 。 在 Excel 工 


he 


第 11 章 使 用 Application 对 象 


作 短 中 ， 鼠 标 指 针 的 形状 有 4 种 样式 ， 在 VBA 程序 中 可 以 分 别 设置 为 以 下 4 个 常量 之 一 。 
口 xDefault: 默认 指针 ， 值 为 -4143 。 
口 xINorthwestArrow: 西北 向 箭头 指针 ， 值 为 1。 
口 xIWait: 沙漏 型 指针 ， 值 为 2。 
口 xlIBeam: 工 形 指针 ， 值 为 3。 
通过 Application 对 象 的 Cursor 属性 可 获取 或 设置 Excel 中 鼠标 指针 的 外 观 。 


各 注意 : 当 VBA 代码 停止 运行 时 ，Cursor 属性 不 会 自动 重 设 。 在 VBA 代码 停止 运行 前 ， 
应 将 指针 重 设 为 xIDefault。 


例如 ， 运 行 以 下 的 代码 ， 将 弹出 对 话 框 提示 显示 第 几 种 鼠标 形状 ， 每 显示 一 种 指针 形 
状 暂停 5 秒 钟 ， 再 接着 显示 下 一 种 指针 形状 ， 最 后 恢复 默认 指针 形状 。 


Sub 显示 鼠标 指针 形状 () 
Dim i As Integer 
For i=1To3 
MsgBox "显示 第 " & i &" 种 鼠标 指针 形状 ! "，vbInformation + vbOKOnly 
Application.Cursor = i 
st = Timer 
Do While Timer <= st + 5 
DoEvents 
Loop 
Next 
MsgBox "恢复 默认 鼠标 指针 形状 ! "，vbInformation + vboKonly 
Application.Cursor = xlDefault 
End sub 


11.3 控制 应 用 程序 


通过 Application 对 象 的 相关 属性 , 还 可 对 Excel 应 用 程序 的 运行 状态 进行 控制 , 例如 ， 
关闭 屏幕 刷新 、 禁 止 弹 出 警告 对 话 框 、 重 新 计算 工作 夭 等 。 


11.3.1 控制 屏幕 更 新 


在 默认 情况 下 ，Excel 每 执行 一 个 操作 就 会 更 新 一 次 屏幕 ， 以 显示 出 执行 的 结果 。 在 
使 用 VBA 操作 时 , 每 执行 一 次 操作 Excel 也 将 更 新 一 次 屏幕 ,这样 将 导致 程序 运行 速度 下 
降 。 关 闭 屏幕 更 新 可 以 加 快 程序 的 执行 速度 ， 这 样 将 看 不 到 程序 的 执行 过 程 ， 但 程序 的 执 
行 速度 加 快 了 。 

将 Application 对 象 的 ScreenUpdating 属性 设置 为 True, 将 启用 屏幕 更 新 , 设置 为 False 
时 ， 将 关闭 屏幕 更 新 。 


和 
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县 注意 ; 当代 码 结束 运行 后 ， 应 将 ScreenUpdating 属性 设置 为 True。 


为 了 演示 关闭 屏幕 更 新 后 VBA 代码 执行 速度 的 提高 程度 ， 需 要 一 个 大 的 循环 才能 体 
现 出 来 。 

例如 ， 以 下 代码 将 工作 表 Sheetl 中 的 偶数 行 隐藏 。 为 了 对 比 提速 的 时 间 ， 将 程序 执行 
时 间 保 存在 数组 中 ， 第 一 次 是 屏幕 更 新 为 打开 状态 时 操作 所 用 的 时 间 ; 第 二 次 执行 是 屏幕 
更 新 为 关闭 状态 时 操作 所 用 的 时 间 。 


Sub 屏幕 更 新 () 
Dim aTime (2) 
Application.ScreenUpdating = True 
For l= Tio2 
IE i = 2 Then Application.ScreenUpdating = False 
Worksheets (i) .Activate 
startTime = Timer 
For j = 1 To RActiveSheet.Rows .Count 
IE j Mod 2 = 0 Then 
Rows (j) .Hidden = True 


End If 
Next 本 
stopTime = Timer 
aTime (i) = stopTime - startTime 


Next i 
Application.ScreenUpdating = True 
MsgBox "打开 屏幕 更 新 , 程序 执行 的 时 间 : " & aTime(1) & " 秒 " & Chr(13) & _ 
"关闭 屏幕 更 新 , 程序 执行 的 时 间 : " & aTime(2) & " 秒 " 
End Sub 


程序 的 执行 结果 如 图 11-4 所 示 。 由 程序 结果 可 以 看 出 , 将 ScreenUpdating 属性 设置 为 
True 时 ， 程 序 执行 的 时 间 为 128 秒 ， 而 将 ScreenUpdating 属性 设置 为 False 时 ， 程 序 执行 
的 时 间 约 为 9 秒 。 由 此 可 以 看 出 程序 执行 速度 的 差别 为 10 多 倍 。 


Hicrosoft Excel 区 | 
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图 11-4 关闭 /打开 屏幕 更 新 对 程序 的 影响 


全 提示 : 如 果 在 VBE 中 执行 以 上 代码 (Excel 界面 隐藏 在 后 面 ) ， 关 闭 或 打开 屏幕 更 新 对 
程序 的 影响 不 大 ， 因 为 这 时 Excel 窗口 处 于 隐藏 状态 。 


11.3.2 ”控制 报警 信息 


在 正常 情况 下 ， 当 用 户 删 除 工作 筹 中 的 工作 表 时 ， 将 弹出 如 图 11-5 所 示 的 对 话 框 ， 提 
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示 用 户 删除 工作 表 后 数据 将 不 能 恢复 。 单 击 【 删 除 】 按 钮 后 可 删除 工作 表 。 


图 11-5 删除 提示 


在 交付 给 用 户 的 Excel 应 用 程序 中 ， 一 般 不 希望 弹出 上 图 所 示 的 警告 信息 对 话 框 。 这 
时 ， 可 通过 设置 Application 对 象 的 DisplayAlerts 属性 ， 来 控制 Excel 是 否 显示 VBA 程序 
执行 过 程 中 的 警告 和 消息 。 

该 属性 的 默认 值 为 True。 如 果 不 想 在 程序 运行 过 程 中 被 无 穷 无 尽 的 提示 和 和 警告 消息 所 
困扰 ， 应 将 本 属性 设置 为 False， 这 样 每 次 出 现 需 用 户 应 答 的 消息 时 ，Excel 将 选择 默认 

如 果 使 用 工作 短 的 SaveAs 方法 覆盖 现 有 文件 “覆盖 "警告 默认 为 No, 当 DisplayAlerts 
属性 设置 等 于 False 时 ，Excel 选择 Yes 响应 。 


全 提示 : 如 果 将 该 属性 设置 为 False， 则 在 代码 运行 结束 后 ，Excel 将 该 属性 设置 为 True， 
除非 正在 运行 交叉 处 理 代码 。 


例如 ， 以 下 代码 将 删除 活动 工作 表 ， 并 不 弹出 警告 信息 对 话 框 。 


Sub 删除 工作 表 () 
Application.DisplayAlerts = False 
ActiveSheet .Delete 
Application.DisplayAlerts = True 

End Sub 


以 上 代码 首先 设置 DisplayAlerts 属性 值 为 False， 再 执行 工作 表 的 删除 方法 ， 最 后 将 
DisplayAlerts 属性 设置 为 True， 结 束 程序 。 


11.3.3 ”显示 最 近 使 用 的 文档 


单 击 Excel 2007 的 【Office 按钮 】， 将 打开 下 拉 菜 单 。 在 该 下 拉 菜 单 右 侧 显 示 了 最 近 
使 用 的 文档 ， 如 图 11-6 所 示 。 

通过 Application 对 象 的 RecentFiles 属性 ， 可 以 返回 一 个 RecentFiles 集合 ， 该 集合 表 
示 最 近 使 用 的 文件 列表 。 通 过 该 集合 的 属性 可 设置 最 近 使 用 的 文档 列表 ， 常 用 的 属性 有 以 
下 两 种 。 

口 Maximum 属性 : 返回 或 设置 最 近 使 用 文件 清单 中 文件 数目 的 上 限 。 可 为 0 一 9 之 

间 的 数字 。 
口 Count 属性 : 集合 中 对 象 〈 最 近 使 用 的 文件 ) 的 数量 。 


Ns 
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DD E70 最 近 党 用 的 文档 
工 合用 Application 对 多 xls 到 
古 / ro 2 RERgEzxls 2 
处 旦 字符 囊 和 日 期 .xs 
癌 4 ds = 
[ 守 | 5 导入 模 堪 xis 
he § He oa 
语 了 程序 控 抽 结构 ds P 
es 8 VABBExls ” 
jf 3 久生 疙 于 Xs m 
锦 告 管理 (200 刀 . 驯 m 
| 销售 管理 (2003) x 已 
三 示 欢迎 信息 .ds 器 


位 用 Visual Basicet 建 去 xs 


图 11-6 ”最近 使 用 的 文档 


例如 ， 以 下 代码 将 最 近 使 用 文档 名 称 填 入 工作 表 的 第 1 列 中 。 
sub 最 近 使 用 文档 () 

Dim i As Long, j As Long 

Dim r As RecentFile 

Activesheet .Columns (1) .Clear 


i=1 
For Each r In Application.RecentFiles 
ActivesSheet.Cells(i, 1) = r.Name 
de 
Next 
End Sub 


11.3.4 ”模拟 键盘 输入 


使 用 Application 对 象 的 SendKeys 方法 ， 可 将 击 键 发 送 给 活动 应 用 程序 。 该 方法 的 语 
法 格式 如 下 : 

Application.SendKeys (Keys, Wait) 

各 参数 的 含义 分 别 如 下 。 

口 Keys: 要 以 文本 形式 发 送 给 应 用 程序 的 键 或 组 合 键 。 

口 Wait: 如 果 为 True， 则 Excel 会 等 到 处 理 完 按键 后 将 控件 返回 给 宏 ， 如 果 为 False 

(或 者 省 略 该 参数 ) ， 则 继续 运行 宏 而 不 等 到 处 理 完 按 键 。 

参数 Keys 可 指定 任何 单个 键 或 与 Alt、Ctrl、Shift 的 组 合 键 〈 或 者 这 些 键 的 组 合 ) 。 
每 个 键 可 用 一 个 或 多 个 字符 表示 。 例 如 ，"a" 表 示 字 符 a， 或 者 "{ENTER}" 表 示 Enter。 

若 要 指定 那些 没有 屏幕 回 显 该 字符 的 键 〈 例 如 ，Enter 或 Tab) ， 则 需要 使 用 特殊 的 代 
码 来 表示 相应 的 键 。 具 体 值 可 参见 帮助 系统 。 

下 面 的 代码 首先 打开 【记事 本 】 窗 口 ， 并 使 用 AppActivate 语句 将 【记事 本 】 程 序 激 


“194. 
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活 ， 接 着 使 用 SendKeys 发 送 字 符 给 【记事 本 】 程 序 。 


Sub 模 似 输入 () 
Dim dReturnValue Rs Double 
dReturnValue = Shell ("NOTEPAD.EXE", 1) ' 打 开 记 事 本 
AppActivate dReturnValue ' 激 活 应 用 程序 


Application.SendKeys "~", True 

Application.SendKeys "Keybord input demo :", True 

Application.SendKeys "~", True 

Application.SendKeys " Excel 2007 VBA ! ", True 
End Sub 


全 提示 : 在 SendKeys 方法 中 ，“~” 表 示 Enter 键 。 


运行 以 上 代码 ， 将 打开 【记事 本 】 窗 口 ， 并 显示 如 图 11-7 所 示 的 效果 。 


文件 时 编辑 下 ) 格式 @) 查看 WD 帮助 人 D 


Keybord input demo : 
Excel 2007 VBA !| 


图 11-7 【记事 本 】 窗 口 


名 注意: 以 上 代码 需要 Excel 界面 中 执行 。 若 在 VBE 环境 中 执行 ， 则 SendKeys 方法 将 字 
符 发 送 到 VBE 的 【代码 〗 窗 口中 。 


11.3.5 “定时 执行 过 程 


使 用 Application 对 象 的 OnTime 方法 ， 可 安排 一 个 过 程 在 将 来 的 特定 时 间 运 行 ( 既 可 
以 是 具体 指定 的 某 个 时 间 ， 也 可 以 是 指定 的 一 段 时 间 之 后 ) 。 例 如 ， 设 置 20 秒 后 运用 过 程 
Testl 可 使 用 以 下 代码 : 


Application.OonTime Now + TimeValue("00:00:20"), "Testln 
早上 8 点 运行 过 程 Test2， 代 码 为 : 
Application.OnTime TimeValue("08:00:00"), "Test2" 


要 撤销 运行 OnTime 设置 的 过 程 , 需要 将 Schedule 参数 设置 为 Flase。 如 撤销 前 一 个 表 
达 式 对 OnTime 的 设置 ， 则 代码 如 下 : 


Application.onTime EarliestTime:=TimeValue ("08:00:00"), Procedure:= 
"Test2", Schedule:=False 


以 下 代码 将 进行 整 点 报时 : 


人 
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Sub starttime () 
RARpPlLication.OnTime EarliestTime :=TimeSerial((Hour (Now) + 1) Mod 24, 0, 
or = 
Procedure:="starttime" 
MsgBox "现在 时 间 是 : " & Hour (Now) & "点 ! " 
End Sub 


以 上 代码 首先 通过 OnTime 方法 设置 整 点 时 (小 时 数 与 24 进行 模 运 算 ) 调用 的 过 程 ， 
接着 显示 一 个 对 话 框 进行 报时 。 
使 用 以 下 代码 取消 整 点 报时 功能 : 
Sub endtime() 
On Error Resume Next 
Application.OnTime EarliestTime:=TimeSerial ( (Hour (Now) + 1) Mod 24, 0, 


0), 


Procedure:="starttime", schedule:=False 
End Sub 


在 执行 以 上 代码 时 ， 如 果 没 有 使 用 OnTime 设置 调用 对 应 的 过 程 starttime， 则 程序 将 
出 错 ， 所 以 第 1 条 语句 设置 错误 捕捉 。 


11.3.6 自 定义 功能 


使 用 Application 对 象 的 OnKey 方法 ， 可 在 设 定 的 特定 键 或 组 合 键 被 按 下 时 ， 运 行 指 
定 的 过 程 。 其 语法 格式 如 下 : 
Application.OnKey (Key, Procedure) 


各 参数 的 含义 分 别 如 下 。 

口 Key: 表示 要 按 的 按键 的 字符 串 ， 其 表示 方法 与 本 章 的 11.3.4 节 中 的 SendKeys 方 
法 相同 。 

口 Procedure: 表示 要 运行 的 过 程 名 称 的 字符 串 。 如 果 Procedure 为 空 文本 〈"") ， 则 
按 Key 时 不 发 生 任何 操作 。 如 果 省 略 Procedure 参数 ， 则 Key 恢复 为 Excel 中 的 正 
常 结果 ， 同 时 清除 先前 使 用 OnKey 方法 所 做 的 特殊 击 键 设置 。 

下 面 的 代码 自 定 义 组 合 键 Altt.〈 字 符 “.” 的 上 档 键 为 符号 “>”) 可 使 工作 表 向 下 翻 

RW， 组 合 键 Alt+，“〈 字 符 “,” 的 上 档 键 为 符号 “<”) 可 使 工作 表 向 上 翻 页 。 
首先 编写 “设置 自 定义 功能 键 ” 过 程 的 代码 如 下 : 

sub 设置 自 定义 功能 键 () 

Application.OnKey "%.", "NextPage" 
Application.OnKey "%,", "PrePage" 
End Sub 
以 上 代码 为 两 个 组 合 键 设置 了 调用 的 过 程 ， 这 两 个 过 程 的 代码 如 下 : 


Sub NextPage() 
ActiveWindow.LargeScroll down:=1 
End sub 


= 


有 
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Sub PrePage () 
ActiveWindow.LargeScroll up:=1 
End Sub 


当 执 行 “ 设 置 自 定义 功能 键 ” 过 程 后 ， 在 Excel 界面 中 按 组 合 键 Alt+. 即 可 使 工作 表 向 
下 翻 页 ， 组 合 键 Altt， 可 使 工作 表 向 上 翻 页 。 并 且 这 两 个 功能 键 一 直 有 效 ， 要 取消 自 定义 
组 合 键 的 功能 ， 可 使 用 以 下 代码 : 
Sub 禁止 自 定义 功能 键 () 
Application.OnKey "%." 
Application.OnKey "%," 
End Sub 


11.3.7 ”调用 Excel 工作 表 函 数 


使 用 Application 对 象 的 WorksheetFunction 属性 ， 可 方便 地 调用 Excel 工作 表 函 数 。 

例如 ， 以 下 代码 显示 单元 格 区 域 “Al:A10” 的 和 《使 用 Excel 工作 表 函 数 SUM) 。 

Set myRange = Worksheets("Sheet1") .Range("R1:C10") 

total = Application.WorksheetFunction.Sum(myRange) 

在 程序 中 也 可 省 略 WorksheetFunction， 直 接 写 为 Application.Sum 的 形式 。 

例如 ， 假 设 在 工作 表 中 保存 有 如 图 11-8 所 示 的 股票 数据 ， 可 在 VBA 中 调用 Excel 工 
作 表 函数 VLookup 按 股票 代码 查询 其 价格 ， 有 具体 代码 如 下 : 


国 使 用 Application 对 银 xls [ 苦 窑 模 S] -二 
C D E 国 
1 _ 化 到 名 称 现价 
5 浦发 银行 29.72 
3 ,50000] 。 邯 志 钢铁 6. 91 
生 【600003 ST 东北 高 5.2 


5 1500004 白云 机 场 8.43 


图 11-8 工作 表 数 据 
Sub 查询 股票 价格 () 


Dim sStock As String, cPrice Rs Currency 
sStock = InputBox (prompt :=" 输 入 股票 代码 :" & Chr (13) & " (例如 :600000) ") 
cPrice = Application.WorksheetFunction.VLookup(sstock, _ 
Worksheets ("Sheet1") .Range ("A1:C5"), 3, 0) 
MsgBox "股票 " & sstock & "收盘 价 为 : " & cPrice 
End Sub 


使 用 WorksheetFunction 对 象 的 CountIf 方法 ， 可 计算 区 域 中 满足 给 定 条 件 的 单元 格 的 
个 数 。 其 语法 格式 如 下 : 
表达 式 .CountIf (Arg1l, Arg2) 


两 个 参数 的 含义 分 别 如 下 。 
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口 Argl: 要 计算 其 中 满足 条 件 的 单元 格 个 数 的 单元 格 区 域 。 
口 Arg2: 用 于 定义 哪些 单元 格 将 被 计算 在 内 的 条 件 ， 其 形式 可 以 为 数字 、 表 达 式 、 
单元 格 引 用 或 文本 。 例 如 ， 条 件 可 以 表示 为 32、"32"、">32"、"apples" 或 B4。 


全 提示 : 可 以 在 条 件 中 使 用 通配符 ， 包 括 问号 (?) 和 星 号 (* ) 。 问 号 可 匹配 任意 的 单个 
字符 ; 星 号 可 匹配 任意 一 串 字 符 。 如 果 要 查找 实际 的 问号 或 星 号 ， 则 请 在 该 字符 
前 键入 一 个 波形 符 (~ ) 。 


例如 ， 以 下 代码 使 用 CountIf 函数 在 指定 区 域 生成 不 重复 的 随机 数 : 


Sub 生成 不 重复 随机 数 () 
Dim rng As Range，Ingl Rs Range 
Set rng = Application.InputBox (prompt :=" 选 择 要 保存 不 重复 随机 数 的 单元 格 区 
域 : "，_ 
Title:=" 生 成 随机 数 "，Type:=8) 
IE rng Is Nothing Then Exit Sub 
Randomize 


For Each rngl In rng ' 选 中 区 域 的 每 个 单元 格 生成 随机 数 
Do 
rngl = Int(Rnd * 100 + 1) "生成 1 一 100 的 随机 数 
Loop Until Application.CountIf(rng, rng1) = 1 
' 循 环 判断 随机 数 是 否 有 重复 
Next 
End Sub 


以 上 代码 首先 让 用 户 选择 一 个 单元 格 区 域 ， 再 对 每 个 单元 格 生成 一 个 随机 数 。 为 了 生 
成 不 重复 的 随机 数 ， 再 使 用 一 个 循环 判断 ， 直 到 当前 单元 格 的 数 与 所 有 单元 格 都 不 重复 为 
止 ， 然 后 再 生成 下 一 个 单元 格 中 的 数 。 

在 以 上 代码 中 ， 使 用 Application 对 象 的 InputBox 方法 可 以 显示 一 个 接收 用 户 输入 的 
对 话 框 。 与 InputBox 函数 不 同 的 是 ，InputBox 方法 可 指定 输入 数据 的 类 型 。 可 以 在 Type 
参数 中 设置 输入 数据 的 类 型 ， 类 型 值 可 以 为 下 列 值 之 一 或 其 中 几 个 值 的 和 。 

0: 公式 ; 

: 数字 ; 

: 文本 〈 字 符 串 ) ; 

: 逻辑 值 CTrue 或 False) ; 

: 单元 格 引 用 ， 作 为 一 个 Range 对 象 ; 
16: 错误 值 ， 例 如 #N/A; 

64: 数值 数组 。 

例如 ， 对 于 一 个 可 接受 文本 和 数字 的 输入 框 ， 将 Type 设置 为 1 +2。 

如 果 Type 为 8, InputBox 方法 将 返回 一 个 Range 对 象 。 必须 用 Set 语句 将 结果 指定 给 
一 个 Range 对 象 ， 例 如 以 下 代码 : 


Set myRange = Application.InputBox (prompt := "选择 单元 格 区 域 "，type := 8) 


如 果 不 使 用 Set 语句 ， 此 变量 将 被 设置 为 这 个 区 域 的 值 ， 而 不 是 Range 对 象 本 身 。 
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11.3.8 快速 跳 转 


使 用 Application 对 象 的 Goto 方法 可 选 定 任意 工作 敌 中 的 任意 区 域 ， 并 且 如 果 该 工作 
短 未 处 于 活动 状态 ， 就 激活 该 工作 筹 。 通 过 该 方法 的 Scroll 属性 ， 可 以 让 窗口 滚动 到 目标 
位 置 。 

例如 ， 以 下 代码 将 选择 “Sheet2” 工 作 表 中 的 “Al1:A10” 区 域 ， 并 将 该 区 域 滚 动 到 当 
前 窗口 中 显示 。 


sub 快速 跳 转 () 
Application.Goto Reference:=Worksheets ("Sheet2") .Range ("Al:A10"), 
Scroll: =True 

End Sub 


11.3.9 合并 单元 格 区 域 


使 用 Application 对 象 的 Union 方法 ， 可 返回 两 个 或 多 个 区 域 的 合并 区 域 。 其 语法 格式 
如 下 : 
Application.Union (Arg]1, Arg2,... ,Arg30) 


使 用 该 方法 时 ， 最 少 需 要 2 个 Range 对 象 区 域 作 为 参数 ， 最 多 可 以 合并 30 个 Range 
对 象 区 域 。 例 如 ， 
Sub 合并 区 域 () 
Worksheets ("Sheet3") .Activate 
Set unRange = Application.Union (Range ("Al1:B5"), Range ("D1:E5")) 
unRange.Formula = "=RAND()" 
End Sub 


以 上 代码 首先 将 单元 格 区 域 “A1:B5” 和 “D1:E5” 合 并 为 一 个 Range 对 象 ， 设 置 该 
区 域 对 象 中 各 单元 格 的 公式 为 一 个 随机 函数 。 执 行 该 部 分 代码 后 ， 将 在 这 20 个 单元 格 区 
域 (单元 格 区 域 “A1:B5” 和 “D1:E5” 共 20 个 单元 格 ) 中 填充 随机 数 。 结 果 如 图 11-9 


畏 革 用 Application 对 杀 :s [ 荚 容 模式 ] 二 


ed B G D E E 
[9.957611| 0. 870789 0.162697 0. 598231 

2 |0.844308 0. 572559 0. 246707 0. 329939 
3 |0.601994 0.173966 0. 546704 0.187993 
4 |0.633192 0.768786 0. 623866 0.065776 
5 |0.158594 0. 780963 0. 445911 0.819197 
6 

了 

8 

9 
RN Sheetl, Sheet2) Sheet3 
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11.3.10 “激活 Excel 2007 的 功能 区 选项 卡 


在 Excel 2007 环境 中 操作 时 ， 按 一 次 Alt 键 ， 在 各 选项 卡 下 方 将 显示 一 个 字母 ， 该 字 
母 就 是 激活 功能 区 选项 卡 的 快捷 键 ， 如 图 11-10 所 示 。 


图 11-10 选项 卡 的 快捷 键 


如 图 11-10 所 示 , 按键 盘 上 的 组 合 键 Alt+H 就 可 激活 【开始 】 选 项 卡 ， 按 组 合 键 AIt+N 
就 可 激活 【插入 】 选 项 卡 。 

在 Excel 2007 中 ， 没 有 提供 从 VBA 中 直接 激活 功能 区 选项 卡 的 方法 。 在 某 些 情况 下 
需要 通过 VBA 代码 选择 不 同 的 选项 卡 ， 可 以 使 用 SendKeys 方法 。 
例如 ， 要 激活 【开始 】 选 项 卡 ， 可 使 用 以 下 语句 模拟 键盘 按 组 合 键 AlttH) : 
Application.SendKeys ("%h") 
当 按 下 Alt 键 时 ， 将 激活 各 功能 的 快捷 键 提示 ， 为 了 隐藏 这 些 提示 ， 还 需 再 按 一 次 F6 
所 以 应 使 用 以 下 代码 来 激活 【开始 】 选 项 卡 : 
Application.SendKeys ("%h{F6}") 
同 理 ， 要 激活 【插入 】 选 项 卡 ， 可 使 用 以 下 代码 : 


Application.SendKeys ("%n{F6}") 


激活 其 他 选项 卡 的 代码 与 此 类 似 ， 这 里 就 不 再 列 出 。 
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11.4 处 理 用 户 动 作 


在 面向 对 象 的 环境 中 ， 应 用 程序 响应 用 户 事件 即 可 与 用 户 进行 交互 。 在 本 章 前 面 简单 
介绍 了 Application 对 象 的 事件 。 在 Excel 中 ， 要 响应 Application 事件 ， 还 需要 进行 特别 的 
设置 。 本 节 首 先 介绍 激活 Application 事件 的 方法 ， 再 举例 说 明 Application 事件 的 用 法 。 


11.4.1 启用 Application 事件 


要 激活 Application 事件 ， 需 要 进行 一 些 特殊 的 设置 ， 需 要 使 用 到 类 的 相关 知识 ， 有 关 
类 的 知识 请 参考 本 书 第 27 章 的 介绍 ， 在 本 节 只 需 按 步骤 进行 设置 即 可 。 
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启用 Application 事件 的 具体 方法 如 下 : 

(1) 在 VBE 中 单 击 主 菜单 【插入 】|【 类 模块 】 命 令 ， 向 当前 工程 中 增加 一 个 类 模块 。 

(2) 在 【属性 】 窗 口中 为 类 模块 设置 一 个 名 称 ， 该 名 称 无 特殊 要 求 ， 本 例 设置 为 
EventClassModule， 如 图 11-11 所 示 。 


局 性 一 EventClassNodule 


instancing 1 - Private 


图 11-11 设置 类 模块 名 称 
(3) 确保 类 模块 的 【代码 】 窗 口 处 于 打开 状态 ， 在 类 模块 【代码 】 窗 口 的 声明 部 分 编 
写 以 下 代码 ， 定 义 一 个 全 局 对 象 变量 ， 用 来 引用 Application 对 象 。 
Public WithEvents App As Application 
全 注意 : 关键 字 WithEvents 说 明 变 量 App 是 用 来 响应 由 Application 对 象 触发 的 事件 的 对 
象 变量 。 只 有 在 类 模块 中 才 是 合法 的 。 使 用 WithEvents， 可 以 定义 任意 个 所 需 的 
单个 变量 。 
(4) 在 类 模块 中 声明 带 有 事件 的 新 对 象 以 后 ， 该 对 象 变量 将 出 现在 类 模块 的 【对 象 】 
下 拉 列 表 杠 中， 如 图 11-12 左 图 所 示 。 


Y 使 用 Application 对 象 .xls - EventClassodule 


eh gp Holerihoce DyYa| 


图 11-12 显示 对 象 变量 


(5) 在 【对 象 】 下 拉 列 表 框 中 选择 上 步 声明 的 变量 ， 该 对 象 的 有 效 事件 将 列 在 【过 程 】 
下 拉 列 表 框 中 ， 如 图 11-12 右 图 所 示 。 选 择 好 事件 后 ， 将 自动 插入 该 事件 过 程 的 代码 结构 ， 
直接 在 该 结构 中 编写 响应 事件 的 代码 即 可 。 

(6) 经 过 上 面 的 步骤 可 为 Application 对 象 编写 响应 事件 的 代码 ， 但 此 时 还 不 能 捕获 响 
应 的 事件 。 要 捕获 事件 ， 必 须 连 接 在 类 模块 中 声明 的 对 象 和 Application 对 象 。 通 过 单 击 主 
菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 新 增 一 个 模块 (此 处 插入 的 模块 名 为 “模块 2”， 
根据 读者 前 期 的 操作 不 同 ,该 模块 的 名 称 可 能 不 同 ) ,并 在 模块 的 声明 部 分 输入 以 下 代码 : 


Dim X As New EventClassModule 


外 注意 : EventClassModule 为 类 模块 的 名 称 ， 若 读者 的 类 模块 名 称 不 同 ， 这 里 也 需要 进行 
更 改 。 
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(7) 在 “模块 2” 中 编写 以 下 代码 ， 将 类 模块 中 的 App 对 象 指向 Excel 的 Application 
对 象 ， 并 且 类 模块 中 的 事件 过 程 在 事件 发 生 时 将 会 执行 。 执 行 以 下 代码 后 ， 将 响应 
Application 的 事件 。 

Sub 启用 application 事件 () 

Set X.App = Application 

End Sub 

(8) 还 可 以 在 “模块 2” 中 编写 以 下 代码 ， 取 消 类 模块 中 的 App 对 象 与 Excel 的 
Application 对 象 的 连接 ， 以 禁止 Application 事件 。 

Sub 禁止 Application 事件 () 

Set X.App = Nothing 

End Sub 

经 过 以 上 的 设置 ，Excel 即 可 捕获 Application 对 象 的 事件 。 需 要 注意 的 是 ， 对 于 
Application 对 象 的 事件 过 程 代码 必须 编写 在 类 模块 EventClassModule 中 。 


11.4.2 ”编写 Application 事件 过 程 


使 用 前 面 介绍 的 方法 编写 类 模块 ， 可 使 Application 对 象 响 应 用 户 的 事件 。 下 面 以 
WorkbookBeforeSave 事件 为 例 演示 使 用 方法 。Application 对 象 的 事件 很 多 ， 有 关 其 他 事件 
的 代码 编写 方法 ， 可 参照 下 面 的 方法 进行 。 

Application 对 象 的 WorkbookBeforeSave 事件 在 保存 项 目 之 前 发 生 。 在 该 事件 过 程 中 编 
写 代 码 ， 可 禁止 保存 项 目 。 


外 提示 : 若 Workbook 对 象 的 BeforeSave 事件 过 程 中 编写 有 代码 ， 则 将 先 触 发 Workbook 
对 象 的 BeforeSave 事件 。 


WorkbookBeforeSave 事件 过 程 的 结构 如 下 : 


Private Sub App_WorkbookBeforeSave (ByVal Wb As Workbook, ByVal SaveAsUI As 
Boolean, Cancel As Boolean) 


End sub 

该 事件 过 程 有 3 个 参数 ， 各 参数 的 含义 如 下 所 述 。 

口 pjb: 表示 要 保存 的 工作 敌 。 

口 SaveAsUi: 表示 如 果 显 示 【 另 存 为 】 对 话 框 ， 则 该 值 为 True。 

口 Cancel: 表示 事件 发 生 时 该 参数 的 值 为 False。 如 果 事 件 过 程 将 该 参数 设置 为 True， 

则 不 会 保存 项 目 。 

使 用 上 面 介 绍 的 方法 启用 Application 对 象 的 事件 后 , 在 类 模块 EventClassModule 的 对 
象 列表 中 选择 App， 在 事件 列表 中 选择 WorkbookBeforeSave， 将 自动 生成 事件 过 程 结 构 。 
在 事件 过 程 中 编写 以 下 代码 ， 即 可 禁止 保存 项 目 。 


Private Sub App_WorkbookBeforeSave (ByVal Wb As Workbook, ByVal SaveAsUI As 
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Boolean, Cancel As Boolean) 


= True 


MsgBox "本 项 作 短 不 允许 保存 修改 内 容 ! "，vbCritical + vbOKonly 
Cancel = 
End Sub 


当 保 存 工 作 短 时 ， 将 弹出 如 图 11-13 所 示 的 提示 框 。 


加 


本 工作 入 不 允许 保存 修改 内 容 # 


[em 


图 11-13 ”禁止 保存 工作 夭 
全 注意 : 如 果 在 输入 上 面 的 代码 之 前 已 经 启用 Application 对 象 的 事件 ， 则 输入 的 代码 也 不 


能 保存 。 为 了 能 保存 编写 的 该 部 分 代码 ， 须 先 运行 “禁止 Application 事件 ”过 程 
禁用 Application 对 象 的 事件 ， 将 上 面 的 事件 代码 保存 后 ， 再 启用 Application 对 
象 的 事件 。 
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一 个 工作 敌对 象 (Workbook) 就 是 一 个 Excel 文件 , 多 个 Workbook 对 象 组 成 Workbooks 
集合 。 工 作 短 是 Excel 文档 的 基础 ， 基 于 工作 短 的 代码 主要 有 新 建 、 打 开 、 保 存 工作 簿 等 
相关 代码 。 


12.1 了 解 Workbook 对 象 


Workbook 工作 短 对 象 位 于 Application 对 象 的 下 一 层次 。 对 工作 短 对 象 的 操作 就 是 对 
Excel 文件 的 操作 。 本 节 先 简单 介绍 Workbook 对 象 常用 的 属性 、 方 法 和 事件 ， 在 后 面 几 节 
中 将 详细 介绍 使 用 这 些 属性 、 方 法 和 事件 控制 工作 短 的 方法 。 


12.1.1 Workbooks 集合 


在 Excel 中 , 每 打开 一 个 工作 秒 就 增加 了 一 个 Workbook 对 象 , 这些 Workbook 对 象 都 
是 Workbooks 集合 的 一 个 元 素 。 

可 以 使 用 Workbooks 集合 创建 新 的 工作 每 ， 关 闭 操作 工作 短 等 。 

Workbooks 集合 具有 集合 对 象 所 有 的 属性 , 例如 Count 属性 返回 集合 中 对 象 的 数量 等 ， 
这 里 不 再 介绍 。Workbooks 集合 对 象 提供 以 下 方法 ， 用 来 管理 工作 禾 对 象 。 

口 Add 方法, 新 建 工 作 秒 。 使 用 Add 方法 可 以 创建 一 个 新 的 工作 短 。Excel 会 自动 将 
该 工作 短命 名 为 BookN， 其 中 “N” 是 下 一 个 可 用 的 数字 ， 新 工作 短 将 成 为 活动 工 
作 敌 。 

口 Close 方法, 关闭 工作 敌 。 使 用 该 方法 , 将 关闭 所 有 的 Excel 工作 短 , 但 不 退出 Excel 
程序 。 如 果 某 个 打开 的 工作 夭 有 改动 ，Excel 将 显示 询问 是 否 保 存 更 改 的 对 话 框 和 
相应 提示 。 

口 Open 方法 ， 打 开工 作 筹 。 用 Open 方法 打开 一 个 工作 筹 时 ， 该 工作 敌 将 成 为 
Workbooks 集合 的 成 员 。 

另外 ，Workbooks 集合 还 提供 了 OpenDatabase、OpenText 和 OpenXML 方法 ， 分 别 用 

来 打开 数据 库 、 文 本 文件 和 XML 数据 文件 。 


12.1.2” Workbook 常用 属性 


Workbook 对 象 提供 了 很 多 属性 ， 使 用 这 些 属性 可 充分 控制 工作 夭 。 下 面 介绍 一 些 最 
常用 的 属性 。 


口 
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ActiveSheet 属性 : 返回 一 个 对 象 ， 它 代表 活动 工作 敌 中 或 指定 的 窗口 、 工 作乱 中 
的 活动 工作 表 (最 上 面 的 工作 表 )〉 。 如 果 没 有 活动 的 工作 表 ， 则 返回 Nothing。 

Application 属性 : 返回 一 个 Application 对 象 ， 该 对 象 表示 Excel 应 用 程序 。 

Charts 属性 : 返回 一 个 Sheets 集合 ， 它 代表 指定 工作 簿 中 的 所 有 图 表 工 作 敌 。 

FullName 属性 : 返回 对 象 的 名 称 〈 用 字符 串 表 示 ) ， 包 括 其 磁盘 路 径 。 

Name 属性 : 返回 工作 短 的 文件 名 称 ， 不 含 路 径 部 分 。 

Names 属性 : 返回 一 个 Names 集合 ， 它 代表 指定 工作 短 的 所 有 名 称 (Name) 对 象 
(包括 所 有 指定 工作 表 的 名 称 ) 。 每 一 个 Name 对 象 都 代表 一 个 单元 格 区 域 的 定 
义 名 称 。 

Password 属性 : 返回 或 设置 在 打开 指定 工作 适时 必须 提供 的 密码 。 

Path 属性 : 返回 应 用 程序 的 完整 路 径 ， 不 包括 末尾 的 分 隔 符 和 应 用 程序 名 称 。 

ReadOnly 属性 : 检查 工作 敌 是 否 以 只 读 方 式 打开 。 

Saved 属性 : 如 果 指 定 工作 簿 从 上 次 保存 至 今 未 发 生 过 更 改 ， 则 该 属性 值 为 True。 
如 果 要 关闭 某 个 已 更 改 的 工作 敌 ， 但 又 不 想 保存 它 或 者 不 想 出 现 保 存 提示 ， 则 可 
将 此 属性 设 为 True。 

Sheets 属性 : 返回 一 个 Sheets 集合 ， 它 代表 指定 工作 敌 中 的 所 有 工作 表 。 

Worksheets 属性 : 返回 一 个 Sheets 集合 ， 它 代表 指定 工作 和 纱 中 的 所 有 工作 表 。 

Windows 属性 : 返回 一 个 Windows 集合 ， 它 代表 指定 工作 簿 中 的 所 有 窗口 。 


12.1.3 Workbook 常用 方法 


Workbook 提供 了 很 多 方法 ， 下 面 介绍 一 些 常用 方法 。 


OOOOOO 


口 


Activate 方法 : 激活 与 工作 短 相 关 的 第 一 个 窗口 。 

Close 方法 : 关闭 Workbook 对 象 。 

Protect 方法 : 保护 工作 短 使 其 不 被 修改 。 这 里 只 列 出 方法 的 作用 。 

Save 方法 : 保存 对 指定 工作 短 所 做 的 更 改 。 

SaveAs 方法 : 将 工作 敌 换 名 保存 。 

SaveCopyAs 方法 : 将 指定 工作 短 的 副本 保存 到 文件 ， 但 不 修改 内 存 中 的 打开 工作 
夭 。 使 用 该 方法 可 以 创建 工作 敌 的 备份 ， 同 时 不 修改 原 有 工作 敌 的 位 置 。 
Unprotect 方法 : 取消 工作 表 或 工作 短 的 保护 。 如 果 工 作 表 或 工作 短 不 是 受 保护 的 ， 
则 此 方法 不 起 作用 。 如 果 在 保护 工作 短 时 设置 了 密码 ， 则 取消 保护 时 也 需要 提供 
密码 。 


12.1.4 ” Workbook 常用 事件 


Workbook 提供 了 丰富 的 事件 接口 , 方便 用 户 编写 程序 对 Workbook 对 象 进行 控制 。 下 
面 介绍 一 些 常用 的 事件 。 


口 


口 


BeforeClose 事件 : 在 关闭 工作 筹 之 前 ， 先 产生 此 事件 。 如 果 该 工作 短 已 经 更 改过 ， 

则 此 事件 在 询问 用 户 是 否 保存 更 改 之 前 产生 。 

BeforePrint 事件 : 在 打印 指定 工作 敌 ( 或 者 其 中 的 任何 内 容 ) 之 前 ,发 生 此 事件 。 
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NewSheet 事件 : 当 在 工作 短 中 新 建 工作 表 时 发 生 此 事件 。 

Open 事件 : 打开 工作 适时 ， 发 生 此 事件 。 

SheetActivate 事件 : 当 激 活 任何 工作 表 时 发 生 此 事件 。 

SheetDeactivate 事件 : 该 事件 与 SheetActivate 事件 作用 相反 , 当 任何 工作 表 被 停 用 
时 发 生 此 事件 。 

WindowActivate 事件 ， 工 作乱 窗口 被 激活 时 ， 将 发 生 此 事件 。 

WindowDeactivate 事件 :任何 工作 短 窗 口 被 停 用 时 将 发 生 此 事件 。 

WindowResize 事件 :任何 工作 敌 窗 口 调整 大 小 时 将 发 生 此 事件 。 


OODDODODD 


Ooo 


12.2 ”控制 工作 簿 集合 


多 个 Workbook 对 象 组 成 Workbooks 集合 。 对 工作 秒 集 合 的 操作 包括 新 建 、 打 开 、 保 
存 工 作 短 等 内 容 。 


12.2.1 新建 工作 簿 


Workbooks 集合 中 包含 了 Excel 应 用 程序 当前 打开 的 所 有 WorkBook 对 象 。 可 以 使 用 
Workbooks 集合 创建 新 的 工作 筹 ， 关 闭 操作 工作 德 等 。 

在 VBA 中 创建 新 的 工作 敌 ， 可 以 使 用 Workbooks 集合 对 象 的 Add 方法 。 下 面 的 代码 
创建 一 个 新 的 工作 夭 。Excel 自动 将 该 工作 短命 名 为 BookN， 其 中 “N” 是 下 一 个 可 用 的 数 
字 。 新 工作 簿 将 成 为 活动 工作 夭 。 

Sub AddWorkbook() 


Workbooks.Add 
End Sub 


创建 新 工作 敌 更 好 的 方法 是 将 其 分 配给 一 个 对 象 变量 ， 在 程序 中 可 以 通过 该 对 象 变量 
对 工作 敌 进 行 设置 。 使 用 对 象 变 量 可 以 很 容易 地 控制 新 工作 夭 。 

例如 ， 以 下 代码 就 可 完成 创建 新 的 工作 夭 ， 并 设置 工作 短 的 相关 属性 。 

Sub AddNew() 


n=Workbooks .Count 
Set NewBook = Workbooks.Add 


With NewBook 
.Title = "新 工作 簿 " & n 
.SaveAs Filename:=" 新 工作 秒 " & n & ".xls" 


End With 
End Sub 


12.2.2 .打开 下 作答 


使 用 Workbooks 集 合 对 象 的 Open 方法 打开 一 个 工作 短 时 , 该 工作 短 将 成 为 Workbooks 
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集合 的 成 员 。 下 述 代码 将 打开 “D:\Excel 工作 德 \ 使 用 Workbook 对 象 xls” 工 作 德 。 


Sub OpenWorkbook () 


Workbooks .Open ("D:\Excel 工作 簿 \ 使 用 Workbook 对 象 .xls") 
End Sub 


在 更 多 的 时 候 ， 打 开工 作 短 时 需要 查找 文件 所 在 位 置 ， 这 时 可 通过 【打开 】 对 话 框 来 
进行 查找 。 显 示 【 打 开 】 对 话 框 的 语法 格式 如 下 : 
Application.GetOpenFilename (FileFilter, FilterIindex, Title, ButtonText, 
MultiSelect) 
使 用 GetOpenFilename 方法 返回 选 定 的 文件 名 或 用 户 输入 的 名 称 。 返 回 的 名 称 可 能 包 
含 路 径 说 明 。 如 果 用 户 取消 了 对 话 框 ， 则 该 值 为 False。 例 如 ， 以 下 代码 要 求 用 户 选择 一 个 
工作 禾 ， 并 使 用 Open 方法 将 其 打开 。 
Sub 打开 工作 短 () 


Dim fm As String, flag As Boolean 


flag = False 
Do While Not flag  ' 对 话 框 打开 已 有 Excel 文件 
fm = Application.GetOpenFilename (fileFilter:="Excel files(*.xls),*. 
xls, All files (*.*),*.*") 
If fm <> "False" Then 
Workbooks .Open fm 
Set bb = ActiveWorkbook 
flag = True 
End If 
Loop 
End Sub 
以 上 代码 首先 通过 GetOpenFilename 方法 显示 【打开 】 对 话 框 ， 如 图 12-1 所 示 。 如 果 
用 户 没有 选择 要 打开 的 工作 德 〈 单 击 【取消 〗】 按 钮 ) ， 则 将 反复 


显示 


显示 【打开 】 对 话 框 。 


| 盖 限 制作 扯 僻 用 次 六 xl: 


| 各 画 : 


| XD): [Ee Bles@ aa 


图 12-1 打开 工作 等 
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12.2.3 ”打开 文本 文件 


使 用 Workbooks 集合 对 象 的 OpenText 方法 ， 可 打开 一 个 文本 文件 ， 并 将 其 作为 包含 


单个 工作 表 的 新 工作 短 进 行 分 列 处理 ， 然 后 在 此 工作 表 中 放 入 经 过 分 列 处 理 的 文本 文件 数 


据 。 


该 方法 的 语法 格式 如 下 : 


Application.OpenText (Filename, Origin, StartRow, DataType, TextQualifier, 
ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, 
FieldInfo, TextVisualLayout, DecimalSeparator， ThousandqsSeparator， 
TrailingMinusNumbers，Local) 


该 方法 的 参数 很 多 ， 除 了 Filename 为 必需 的 参数 之 外 ， 其 他 参数 都 可 省 略 。 各 参数 的 


含义 如 下 记述。 


口 Filename: 指定 要 打开 和 分 列 的 文本 文件 的 名 称 。 

口 Origin: 指定 文本 文件 来 源 。 可 为 以 下 常量 xIMacintosh，xlWindows 或 xIMSDOS 。 
此 外 ， 它 还 可 以 是 一 个 整数 ， 表 示 所 需 代 码 页 的 代码 页 编号 。 例 如 ，“1256” 指 
定 源 文 本 文件 的 编码 是 阿拉 伯 语 。 如 果 省 略 该 参数 ， 则 此 方法 将 使 用 “文本 导入 
向 导 ” 中 “文件 原始 格式 ”选项 的 当前 设置 。 

口 StartRow: 文本 分 列 处 理 的 起 始 行 号 。 默 认 值 为 1。 

口 DataType: 指定 文件 中 数据 的 列 格式 。 可 为 常量 xlIDelimited 或 xlFixedWidth。 如 
果 未 指定 该 参数 ， 则 Excel 将 尝试 在 打开 文件 时 确定 列 格式 。 

口 TextQualifier 指定 文本 识别 符号 。 

口 ConsecutiveDelimiter: 如 果 为 True， 则 将 连续 分 隔 符 视 为 一 个 分 隅 符 。 默 认 值 为 
False。 

口 Tab: 如 果 为 True， 则 将 制 表 符 用 作 分 隔 符 〈DataType 必须 为 xlDelimited) 。 默 
认 值 为 False。 

口 Semicolon: 如 果 为 True， 则 将 分 号 用 作 分 隔 符 (DataType 必须 为 xiDelimited) 。 
默认 值 为 False。 

口 Comma: 如 果 为 True， 则 将 逗号 用 作 分 隔 符 (DataType 必须 为 xlDelimited) 。 默 
认 值 为 False。 

口 Space: 如 果 为 True， 则 将 空格 用 作 分 隔 符 〈DataType 必须 为 xDelimited) 。 默 
认 值 为 False。 

口 Other: 如 果 为 True， 则 将 OtherChar 参数 指定 的 字符 用 作 分 隔 符 〈DataType 必须 
为 xlIDelimited) 。 默 认 值 为 False。 

口 OtherChar: (如 果 Other 为 True， 则 为 必 选 项 ) 。 当 Other 为 True 时 ， 指 定 分 隔 
符 。 如 果 指 定 了 多 个 字符 ， 则 仅 使 用 字符 串 中 的 第 一 个 字符 而 忽略 剩余 字符 。 

口 FieldInfo: 包含 单列 数据 相关 分 列 信息 的 数组 。 对 该 参数 的 解释 取决 于 DataType 
的 值 。 如 果 此 数据 由 分 隔 符 分 隔 ， 则 该 参数 为 由 两 元 素数 组 组 成 的 数组 ， 其 中 每 
个 两 元 素数 组 指定 一 个 特定 列 的 转换 选项 。 第 一 个 元 素 为 列 标 〈 从 1 开始 ) ， 第 
二 个 元 素 是 XIColumnDataType 的 常量 之 一 ， 用 于 指定 分 列 方式 。 
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TextVisualLayout: 文本 的 可 视 布 局 。 

DecimalSeparator: 识别 数字 时 ，Excel 使 用 的 小 数 分 隔 符 。 默 认 设 置 为 系统 设置 。 
ThousandsSeparator: 识别 数字 时 , Excel 使 用 的 千 位 分 隔 符 。 默认 设置 为 系统 设置。 
TrailingMinusNumbers: 如 果 应 将 结尾 为 减 号 字符 的 数字 视 为 负数 处 理 ， 则 指定 为 
True。 如 果 为 False 或 省 略 该 参数 ， 则 将 结尾 为 减 号 字符 的 数字 视 为 文本 处 理 。 

口 Local: 如 果 分 隔 符 、 数 字 和 数据 格式 应 使 用 计算 机 的 区 域 设置 ， 则 指定 为 True。 
例如 ， 以 下 代码 将 打开 文本 文件 “员工 花 名 册 .txt”: 

Sub 打开 文本 文件 () 


Workbooks .OpenText Filename:=" 员 工 花 名 册 .txt",，_ 
DataType:=xlDelimited, Tab:=True 


DOODOODO 


End Sub 
执行 以 上 代码 ， 将 文本 文件 “员工 花 名 册 .txt” 打 开 ， 如 图 12-2 所 示 。 
加 员工 花 名 骨 txt -x 
有 站 NO EE WO | 
各 身份 证 号 性 别 民族 出 生年 月 学 历 通信 地 址 了 
2 ,70001 伍 云 辉 4.3E+17 男 汉 #4###### 本 科 红旗 路 69 号 
3_Y0002 王 大 华 5.1E+17 男 汉 1980-1-1 本 科 胜利 路 28 所 
和 70003 。 张 小 山 3. 3E+18 男 汉 1978-8-8 专科 西 环 路 104 号 
5 Y0004 。 李 萍 1.01E+18 女 汉 1981-5-5 本 科 四 川路 33 号 
5 /70005 王涛 3. 3E+18 男 汉 1970-8-8 专科 新 达 路 3 号 
?7_Y0006 罗 建 510101198 男 汉 1983-1-1 专科 万 达 路 99 号 
a 
9 
10 
Cao 


图 12-2 打开 的 文本 文件 
从 图 中 可 看 出 ,打开 的 文本 文件 已 导入 到 Excel 工作 簿 中 ,该 工作 秒 只 有 一 个 工作 表 ， 


工作 表 名 称 与 文本 文件 名 称 相同 。 
全 提示 : 在 图 12-2 的 工作 表 中 ，“ 身 份 证 号 ”是 按 数值 类 型 保存 ， 显 示 为 科学 计数 方式 


因此 ， 直 接 打 开 文 本 文件 时 ， 对 于 这 类 长 数值 数据 ， 其 精度 将 受 影响 。 


12.2.4 工作 短 是 否 存在 


在 VBA 程序 中 ， 如 果 打 开 一 个 不 存在 的 工作 短 ， 将 产生 错误 并 中 断 程序 的 执行 。 因 


此 ， 在 打开 工作 短 之 前 ， 先 判断 该 文件 是 否 存 在 是 很 有 必要 的 。 


可 以 使 用 VBA 的 Dir 函数 来 检查 某 些 文件 或 目录 是 否 存 在 。 其 语法 格式 如 下 : 


Dir[(pathname[, attributes])] 


该 函数 的 两 个 参数 都 可 省 略 ， 其 中 ，pathname 用 来 指定 文件 名 的 字符 串 表达 式 ， 可 能 


包含 文件 夹 、 驱 动 器 。 如 果 没 有 找到 pathname， 则 会 返回 零 长 度 字符 串 〈"") 。Attributes 
是 一 个 常数 或 数值 表达 式 ， 其 总 和 用 来 指定 文件 属性 。 如 果 省 略 ， 则 会 返回 匹配 pathname 
但 不 包含 属性 的 文件 。 


例如 ， 使 用 以 下 代码 将 判断 工作 短 是 否 存 在 : 
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Sub 工作 短 是 否 存 在 () 


Dim strl As String 


strl = Application.InputBox (prompt :=" 请 输入 Excel 工作 短文 件 名 : "，_ 
Title;=" 文 件 名 "，Type:=2) 


IE strl = "False" Then Exit Sub 
strl = ActiveWorkbook.Path & "\" & strl 
If Not FileExists(str1) Then 
MsgBox "工作 簿 “" & strl & "” 不 存在 !" 
Else 
Workbooks .Open strl 
End If 
End sub 


在 上 面 的 代码 中 , 用 到 一 个 自 定义 函数 FileExists, 该 函数 用 来 判断 指定 文件 是 否 存 在 。 
其 代码 如 下 : 
Function FileExists(FullFileName As String) Rs Boolean 
' 如 果 工 作 短 存在 , 则 返回 True 


FileExists = Len(Dir(FullFileName)) > 0 
End Function 


上 面 的 代码 使 用 Dir 函数 判断 指定 文件 是 否 存 在 。 使 用 Dir 函数 还 可 以 方便 地 获取 指 
定 路 径 下 的 文件 夹 或 所 有 文件 名 。 

执行 以 上 过 程 “ 工 作 短 是 否 存在 ”， 将 弹出 如 图 12-3 所 示 的 对 话 框 ， 提 示 用 户 输入 工 
作 短 名 称 〈 不 用 输入 路 径 和 扩展 名 ) ， 单 击 【确定 】 按 钮 关闭 对 话 框 。 若 输入 的 工作 短 存 
在 ， 则 调用 Open 方法 打开 工作 短 ， 否则 ， 显 示 如 图 12-4 所 示 的 提示 对 话 框 。 


文件 各 太医 x] 
Ei " 从 各 铺 通 \ 实 他 \ 第 12 章 , 测 忆 工作 于 ”不 存 下 1 
Cm )][ wn 
图 12-3 输入 文件 名 图 12-4 ”提示 对 话 框 


12.2.5 ”工作 短 是 否 打 开 


在 Workbook 对 象 中 没有 现成 的 属性 或 方法 判断 工作 短 是 否 打开 。 这 时 ， 可 使 用 VBA 
的 错误 捕捉 功能 来 判断 工作 憩 是 否 打 开 。 如 果 工 作 短 已 经 打开 ， 可 使 用 VBA 的 以 下 代码 
引用 具体 的 工作 憩 名 称 : 

Set wb = Workbooks (工作 短 名 称 ) 


如 果 引 用 的 工作 夭 名 称 不 存在 ，VBA 将 产生 一 个 错误 信息 。 

使 用 On Error 语句 捕获 错误 ， 如 果 产 生 错 误 信 息 ， 则 Err 对 象 的 Number 属性 值 将 返 
回 错误 值 。 否 则 ，Err 对 象 的 Number 属性 值 为 0。 

例如 ， 使 用 以 下 代码 可 判断 工作 秒 是 否 打 开 : 
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Sub 工作 矢 是 否 打 开 () 
Dim strl As String 
strl = Application.InputBox (prompt :=" 请 输入 Excel 工作 短文 件 名 : "，_ 
Title:=" 文 件 名 "，Type:=2) 
IE strl = "False" Then Exit Sub 
IE Not IsOpen(str1) Then 
MsgBox "工作 簿 “" & strl & "” 未 打开 !" 
Else 
MsgBox "工作 短 “" & strl & "” 已 打开 !" 
End If 
End Sub 


以 上 程序 调用 了 一 个 自 定义 函数 Open， 该 函数 的 VBA 代码 如 下 : 


Private Function IsOpen (WorkBookName Rs String) As Boolean 
' 如 果 该 工作 敌 已 打开 则 返回 真 
Dim wb As Workbook 
On Error Resume Next 
Set wb = Workbooks (WorkBookName) 
IE Err = 0 Then 
IsOpen = True 
Else 
IsOpen = False 
End If 
End Function 


执行 以 上 过 程 “ 工 作 短 是 否 打开 ”， 将 弹出 如 图 12-5 所 示 的 对 话 框 ， 提 示 用 户 输入 工 
作 短 名 称 〈 需 要 输入 扩展 名 ) ， 单 击 【 确 定 】 按 钮 关闭 对 话 框 。 若 输入 的 工作 敌 已 打开 ， 
则 将 显示 如 图 12-6 所 示 的 提示 对 话 框 。 


文件 各 


议 久 入 Excel 工 作 牧 廊 件 各 ; 
[全 用 Woribook 对 象 ms 


至 定 ] [ 职 油 


图 12-5 输入 文件 名 图 12-6 ”提示 对 话 框 


12.3 ”控制 工作 簿 


Workbook 对 象 也 提供 了 许多 的 属性 和 方法 ， 以 控制 工作 籍 。 通 过 工作 德 的 属性 可 获 
取 对 当前 工作 敌 各 工作 表 的 引用 ， 这 些 内 容 将 在 下 一 章 中 进行 介绍 。 本 节 介 绍 对 工作 筹 的 
保存 、 获 取 文 档 属性 等 操作 。 
12.3.1 保存 工作 敌 

保存 工作 适时 ， 需 使 用 Workbook 对 象 的 Save 方法 ,该 方法 将 工作 敌 的 修改 保存 到 磁 
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盘 中 ， 不 需要 任何 参数 。 


全 提示 : 要 将 工作 薄 标 记 为 已 保存 ， 但 不 将 其 写 入 磁盘 ， 可 将 工作 薄 的 Saved 属性 设置 为 
True。 首 次 保存 工作 薄 时 ， 应 使 用 SaveAs 方法 指定 文件 名 。 


例如 ， 以 下 代码 对 当前 所 有 打开 的 工作 簿 进行 判断 ， 如 果 为 新 建 工 作 敌 ， 则 调用 Save 
方法 保存 : 
Sub 保存 新 建 工作 簿 () 
Dim wbl As Workbook 
For Each wbl In Workbooks 
IE wb1.Path <> "" Then wbl.Save 


Next 
End sub 


以 上 代码 根据 工作 夭 的 Path 参数 来 判断 是 否 为 新 建 工作 筹 ， 若 Path 属性 值 不 为 空 ， 
则 保存 该 工作 敌 。 


12.3.2 ”更 名 保存 工作 簿 


保存 工作 短 有 两 种 方式 ， 一 种 是 保存 修改 到 原 工作 敌 中 ， 另 一 种 是 保存 工作 矢 的 另 一 
个 副本 。 

使 用 SaveAs 方法 可 将 工作 敌 更 名 保存 。 例 如 ， 以 下 代码 新 建 一 个 工作 禾 ， 提 示 用 户 
输入 文件 名 ,保存 该 工作 夭 。 

Set NewBook = Workbooks.Add 

D 

fName = Application.GetSaveAsFilename 


Loop Until fName <> False 
NewBook .SaveAs Filename:=fName 


12.3.3 ”设置 工作 簿 密码 


为 了 安全 性 ， 有 时 需要 为 工作 短 设 置 打开 权限 密码 。 使 用 Workbook 对 象 的 Password 
属性 可 获取 或 设置 该 密码 。 
例如 ， 以 下 代码 将 提示 用 户 为 工作 筹 设置 一 个 密码 ， 然 后 保存 退出 。 
Sub 设置 密码 () 
ActiveWorkbook.Password = InputBox ("输入 密码 : ") 


ActiveWorkbook.Close 
End Sub 


执行 以 上 代码 后 ， 将 关闭 当前 Excel 工作 夭 。 下 次 打开 此 工作 短 时 ， 将 弹出 如 图 12-7 
所 示 的 【密码 】 对 话 框 ， 要 求 用 户 输 入 正确 的 密码 才能 打开 工作 敌 。 
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室 玛 
“使 用 Workbook 对 象 . x1s” 有 密码 保护 。 


密码 @): | 林村 


[ OF ] Cancel 
图 12-7 输入 密码 


要 取消 工作 每 的 密码 ， 可 设置 其 Password 属性 为 空 字符 串 ， 代 码 如 下 : 


Sub 取消 密码 () 
ActiveWorkbook.Password = "" 
End Sub 


取消 工作 矢 的 密码 也 可 通过 单 击 【Office 按钮 打开 下 拉 菜 单 ， 从 下 拉 菜 单 中 选择 【 准 
备 】| 【加密 文档 】 命 令 ， 打 开 如 图 12-8 所 示 的 【加 密 文档 】 对 话 框 ， 删 除 【 密 码 】 文 本 
框 中 的 字符 即 可 。 


加 密 文 档 


图 12-8 【加 密 文档 】 对 话 框 


12.3.4 ”查看 文档 属性 


在 Excel 中 ， 要 查看 和 修改 文档 的 属性 可 按 以 下 步 又 操作 : 

(1) 单 击 【Office 按钮 】， 打 开 下 拉 菜 单 。 

(2) 单 击 主 菜单 【准备 】|【 必 性】 命令， 在 Excel 的 功能 区 下 方 将 打开 如 图 12-9 所 示 
的 【文档 属性 】 面 板 ， 供 用 户 查 看 和 修改 。 


和 @ 文档 属性 位 置 。E: \excel2007 从 入 门 到 | 精通 \ 实 例 \ 第 12 章 \ 使 用 forkbook 对 象 .xj 惠 必 填 域 x 
作者 : 标题 : 主题 : 关键 词 : 

伍 远 高 i [ ] 

类 别 : 状态 : 

备注 ; 


12-9 【文档 属性 】 面 板 


(3) 单 击 左 上 角 【 文 档 属性 】 标 签 ， 打 开 下 拉 菜 单 ， 选 择 【 高 级 属性 】 命 令 ， 打 开 如 
图 12-10 所 示 的 属性 窗口 ， 在 其 【 自 定义 】 选 项 卡 中 可 定义 各 种 属性 值 。 
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使 用 Workbook 对 多 -zls 属性 


Im 


图 12-10” 自 定义 属性 


以 上 是 在 Excel 操作 环境 下 操作 的 结果 。 
在 Excel 程序 开发 中 ， 也 可 使 用 VBA 代码 控制 并 设置 文档 的 属性 值 。 使 用 Workbook 
对 象 的 BuiltinDocumentProperties 属性 返回 一 个 DocumentProperties 集合 , 该 集合 表示 指定 
工作 敌 的 所 有 内 置 文档 属性 。 
例如 , 以 下 代码 通过 在 BuiltinDocumentProperties 属性 的 DocumentProperties 集合 中 逐 
个 读 出 属性 ， 并 将 其 属性 名 称 和 属性 值 填写 到 Sheetl 工作 表 的 第 A、B 两 列 中 。 
Sub 文档 属性 () 


Dim r Rs Integer 
Worksheets (1) .Activate 
Cells (1，1) = "名 称 " 
Cells (1，2) = "类 型 " 
Cells (1，3) = " 值 " 
Range("RA1:C1") .Font.Bold = True 
With ActiveWorkbook 
For r = 1 To .BuiltinDocumentProperties .Count 
With .BuiltinDocumentProperties (r) 
Cells(r + 1, 1) = .Name 
Select Case .Type 
Case msoPropertyTypeBoolean 
Cells(r + 1, 2) = "Boolean" 
Case msoPropertyTypeDate 
Cells( + 1, 2) = "Date" 
Case msoPropertyTypeFloat 
Cells(r + 1, 2) = "Float" 
Case msoPropertyTypeNumber 
Cells( + 1, 2) = "Number" 
Case msoPropertyTypeString 
Cells(r + 1, 2) = "string" 
End Select 
On Error Resume Next 
Cells(r + 1, 3) = .Value 
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On Error GoTo 0 


End With 
Next 工 
End With 
Range ("A:C") .Columns.AutoFit 
End Sub 
程序 运行 结果 如 图 12-11 所 示 。 

| 国 便 二 Workbookoage xs 傣 窜 区 ep 
| a 5 
1 名 称 类 型 值 

2 Title string 

3 jsubject string 

生 Author string 和合 远 高 

5 Keyvords String 

6 Comnents string 

Tenplate string 

8 Last author String 和合 远 高 

日 Revision number stri 

10 Application nane string Jicrosoft Excel 
11 Last print date Date 

12 creation date Date 2008-2-25 7:45 
13 Last cave tine Date 2008-2-25 9:37 
A ED 


图 12-11 文档 属性 


12.3.5 ”处 理工 作 短文 件 名 


使 用 Workbook 对 象 的 FullName 属性 可 返回 工作 簿 的 名 称 ( 用 字符 串 表 示 ) ， 包 括 其 
磁 檀 路 径 。 而 Name 属性 将 只 返回 工作 短文 件 名 ， 不 包括 磁盘 路 径 。 
例如 ， 以 下 代码 将 显示 当前 活动 工作 敌 的 文件 名 和 全 路 径 名 。 


Sub 获取 文件 名 () 
MsgBox "当前 工作 夭 名 称 为 : " & ActiveWorkbook.Name & vbNewLine & _ 


"当前 工作 短 全 路 径 名 为 : " & RctiveWorkbook.Ful1Name 
End Sub 


执行 以 上 代码 可 显示 如 图 12-12 所 示 的 对 话 框 。 


ok 对象 .xls 
:cel2007) 


从 入 门 画 | 精 通 \ 实 例 \ 第 12 章 \ 使 用 Yorkbook 对 象 , xls 
[>E_ 


12-12 ”显示 工作 短文 件 名 


12.4 响应 用 户 的 动作 


在 VBE 左 侧 的 【工程 】 资 源 管理 器 窗口 中 ，Excel 对 象 列 表 中 除了 显示 每 个 工作 夭 之 
外 ， 还 有 一 个 名 为 ThisWorkbook 的 对 象 ， 该 对 象 表示 其 中 正在 运行 当前 宏 代 码 的 工作 短 。 
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双击 该 对 象 打开 代码 窗口 ， 在 此 代码 窗口 中 编写 工作 短 事 件 过 程 代码 。 通 过 工作 禾 事 件 可 
控制 工作 敌 的 打开 、 关 闭 、 打 印 等 操作 ， 此 外 ， 工 作 敌 事件 中 还 提供 了 控制 工作 表 的 很 多 
事件 。 


12.4.1 自动 打开 关联 工作 简 


在 Excel 工作 竹中 ， 有 时 需要 引用 另 一 个 工作 敌 中 的 数据 。 对 于 这 样 两 个 有 关联 的 工 
作 夭 ， 在 打开 主 工作 短 时 可 同时 打开 关联 工作 敌 。 

打开 工作 短 时 ， 将 产生 Open 事件 ， 可 在 该 事件 中 编写 代码 打开 关联 工作 敌 。 该 事件 
过 程 结 构 如 下 : 

Private Sub Workbook Open() 

End Sub 

例如 ， 以 下 代码 在 打开 主 工作 短 时 ， 将 同时 打开 名 为 “关联 工作 敌 .xls” 的 文件 。 


Private Sub Workbook Open() 
Workbooks .Open (ThisWorkbook.Path & "\ 关 联 工作 簿 .xls") 
End Sub 


12.4.2 ”禁止 拖 动 单元 格 


在 正常 情况 下 ， 将 鼠标 移动 到 Excel 工作 表单 元 格 边缘 时 ， 鼠 标 指针 将 变 为 十 字 箭 头 
状 若 ， 这 时 按 下 鼠标 左 键 拖 动 ， 可 移动 单元 格 的 数据 。 在 有 的 情况 下 ， 需 要 禁止 这 种 拖 动 
方式 移动 数据 。 

通过 Application 对 象 的 CellDragAndDrop 属性 可 控制 单元 格 拖 放 功 能 。 如 果 启 用 单元 
格 拖 放 功能 ， 则 该 属性 值 为 True。 

若 需 要 在 整个 工作 簿 打开 期 间 都 禁止 拖 放 功能 , 可 在 工作 夭 的 Open 事件 中 编写 代码 ， 
设置 CellDragAndDrop 属性 为 False。 具 体 代码 如 下 : 

Private Sub Workbook Open() 

Application.CellDragAndDrop = False 

End Sub 

在 退出 工作 适时 ， 应 该 将 CellDragAndDrop 属性 设置 为 True， 恢 复 拖 放 功 能 。 这 时 可 
在 BeforeClose 事件 中 编写 代码 。 在 关闭 工作 短 之 前 ， 先 产生 BeforeClose 事件 。 如 果 该 工 
作 夭 已 经 更 改过 ， 则 本 事件 在 询问 用 户 是 否 保存 更 改 之 前 产生 。 其 事件 过 程 的 结构 如 下 : 

Private Sub Workbook BeforeClose(Cancel Rs Boolean) 

End Sub 


参数 Cancel 在 事件 发 生 时 为 False。 如 果 该 事件 过 程 将 此 参数 设置 为 True， 则 停止 关 
闭 操 作 ， 工 作 敌 保持 打开 状态 。 
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在 工作 敌对 象 Workbook 的 BeforeClose 事件 过 程 中 编写 VBA 代码 ， 在 关闭 工作 每 之 
前 允许 单元 格 拖 放 功 能 。 
Private Sub Workbook Beforeclose (Cancel As Boolean) 


Application.CellDragAndDrop = True 
End Sub 


12.4.3 ”退出 前 强制 保存 工作 敌 


在 Excel 工作 短 中 进行 了 编辑 操作 ， 如 果 未 进行 保存 操作 就 关闭 工作 短 ，Excel 将 弹出 
如 图 12-13 所 示 的 提示 窗口 ， 让 用 户 选择 是 否 保存 对 工作 簿 的 更 改 ， 该 对 话 框 共有 3 个 
选项 : 
ff【 是 】 按 钮 ， 保 存 更 改 并 退出 工作 短 ; 
ff【 耕 】 按 钮 ， 不 保存 并 退出 工作 敌 ; 

击 【 取 消 】 按 钮 ， 不 保存 工作 敌 ， 并 返回 工作 短 继 续 操作 。 


OO DO 
世 忒 姓 


“使 用 Yorkbook 对 象 . x1s” 的 更 PR? 


ET 取 滑 


图 12-13 ”保存 工作 簿 提示 对 话 框 


在 用 Excel 开发 一 些 应 用 系统 时 ， 如 果 希 望 在 关闭 工作 敌 时 不 弹出 如 图 12-13 所 示 的 
对 话 框 而 自动 保存 工作 短 。 这 时 ， 可 在 BeforeClose 事件 过 程 中 编写 代码 。 在 关闭 Excel 
工作 筹 之 前 ， 将 先 产 生 BeforeClose 事件 。 该 事件 过 程 的 结构 如 下 所 示 : 

Private Sub Workbook BeforeClose(Cancel Rs Boolean) 


End Sub 


参数 Cancel 为 一 个 逻辑 变量 ， 当 进入 事件 过 程 时 ， 该 参数 的 值 为 False。 如 果 在 事件 
过 程 中 将 此 参数 设置 为 True， 则 停止 关闭 操作 ， 返 回 到 工作 筹 中 继续 操作 《〈 工 作 短 保持 打 
开 状 态 ) 。 

例如 ， 在 ThisWorkbook 对 象 的 BeforeClose 事件 代码 中 编写 如 下 代码 : 

Private Sub Workbook BeforeClose (Cancel as Boolean) 


IE Me.Saved = False Then Me.Save 
End Sub 


以 上 代码 根据 Workbook 对 象 的 Saved 属性 来 判断 工作 短 是 否 保存 。 若 Saved 属性 值 
为 False 〈 表 示 工 作 短 的 数据 经 过 修改 还 未 保存 ) ， 则 调用 Workbook 对 象 的 Save 方法 保 
存 工作 短 。 

如 果 指 定 工 作 敌 从 上 次 保存 一 直 未 发 生 过 更 改 ， 则 该 Saved 属性 值 为 True。 

如 果 要 关闭 某 个 已 更 改 的 工作 夭 ， 但 又 不 想 保 存 它 或 者 不 想 出 现 保存 提示 ， 则 可 将 
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Saved 属性 设 为 True。 
全 提示 : 如 果 某 个 工作 薄 从 未 保存 过 ， 则 其 Path 属性 返回 一 个 空 字符 串 〔("") 。 


12.4.4 ”禁止 保存 工作 敌 


在 第 11 章 介绍 Application 对 象 事件 时 ， 介 绍 了 禁止 用 户 保存 工作 短 的 代码 。 该 代码 
在 Application 对 象 的 WorkbookBeforeSave 事件 过 程 中 编写 。 

其 实 ， 要 实现 该 功能 更 好 的 方法 是 在 Workbook 对 象 的 BeforeSave 事件 过 程 中 编写 代 
码 。 Workbook 对 象 的 BeforeSave 事件 将 比 Application 对 象 的 WorkbookBeforeSave 事件 过 
程 先 触 发 。 

在 保存 工作 敌 之 前 将 产生 BeforeSave 事件 ， 其 事件 过 程 结构 如 下 : 

Private Sub Workbook BeforeSave(ByVal SaveAsUi As Boolean, Cancel Rs 

Boolean) 


End Sub 


该 事件 过 程 有 两 个 参数 ， 其 含义 如 下 所 述 。 

口 SaveAsUI: 若 设 为 Tme， 将 显示 【另存 为 】 对 话 框 。 

口 Cancel: 当 事 件 发 生 时 该 参数 的 值 为 False。 如 果 该 事件 过 程 将 此 参数 设置 为 True， 

则 该 过 程 完 成 后 将 不 保存 工作 敌 。 

针对 该 事件 的 两 个 参数 ， 该 事件 一 般 可 以 完成 以 下 功能 。 

口 禁止 文件 另存 ， 但 可 对 原文 件 的 修改 进行 保存 ; 

口 禁止 保存 修改 ， 使 保存 与 另存 为 功能 都 失效 。 

在 禁止 保存 修改 时 ， 应 配合 在 BeforeClose 事件 中 编写 以 下 代码 才能 达到 完美 效果 ; 
否则 退出 Excel 时 将 弹出 保存 提示 对 话 框 。 

Private Sub Workbook BeforeClose(Cancel Rs Boolean) 


Me.Saved=True 
End Sub 


在 工作 禾 的 BeforeSave 事件 中 编写 以 下 VBA 代码 ， 禁 止 Excel 的 “保存 ”功能 。 


Private Sub Workbook _ BeforeSave (ByVal SaveAsUI Rs Boolean, Cancel Rs 


Boolean) 
Cancel = True "禁止 保存 修改 
MsgBox "本 工作 短 不 允许 保存 修改 内 容 ! "，vbcritical + vboKonly 
End Sub 


若 要 禁止 “另存 为 ”功能 ， 可 使 用 以 下 代码 : 


Private Sub Workbook BeforeSave (ByVal SaveAsUI Rs Boolean, Cancel Rs 
Boolean) 

If SaveAsUI = True Then Cancel = True  ' 禁 止 另存 为 

MsgBox "本 工作 短 不 允许 保存 修改 内 容 ! "，vbcritical + vbOKOnly 
End Sub 
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12.4.5 “限制 工作 篇 使 用 次 数 


有 的 工作 筹 需要 限制 用 户 使 用 的 次 数 。 例 如 ， 应 用 程序 的 演示 版 允许 用 户 使 用 10 次 ， 
在 正常 情况 下 不 会 出 现 提示 信息 。 当 使 用 次 数 超过 7 次 时 ， 将 显示 还 能 使 用 的 次 数 ， 如 
图 12-14 所 示 。 当 使 用 次 数 达到 10 次 后 ， 再 次 打开 本 例 工 作 短 时 将 自动 删除 本 工作 短 ， 如 
图 12-15 所 示 。 


@ 二 


蕊 到 习 


图 12-14 显示 使 用 次 数据 示 图 12-15 ”超过 使 用 次 数 提示 


要 实现 这 样 的 功能 , 可 在 Workbook 对 象 的 Open 事件 中 编写 代码 , 在 打开 工作 适时 检 
查 使 用 的 次 数 。 具 体 代 码 如 下 : 


Private Sub Workbook Open() 
Dim t As Integer 
t = ActiveSheet.Cells(1, 255) .Value 
-0 
Activesheet .cells(1, 255) = 七 ' 保 存 使 用 次 数 
IE 七 > 7 And t <= 10 Then 
MsgBox "本 工作 短 只 允许 使 用 10 次 ,现在 还 可 以 使 用 " & 10 - 上 & "次 ! "，_ 
vbcritical + vbOKonly, "提示 " 
Elself t > 10 Then 
MsgBox "本 工作 短 只 允许 使 用 10 次 ， 现 在 使 用 次 数 已 用 完 ! " & _ 
vbNewLine & "工作 短 将 自动 删除 ! "，_ 
vbCritical + vbOoKOonly 
ActiveWorkbook.ChangeFileAccess xlReadonly “' 更 改 工作 簿 的 访问 权限 


Kill ActiveWorkbook.FullName "删除 工作 夭 
Me.Saved = True ' 修 改 更 改 状态 
Application.Quit ' 退 出 Excel 
End If 
End Sub 


在 工作 短 中 ， 活 动工 作 表 的 第 1 行 第 255 列 保存 的 是 已 使 用 次 数 。 当 打开 工作 敌 时 从 
该 单元 格 读 出 数据 进行 判断 ， 若 超过 10 次 ， 则 使 用 Kill 语句 删除 当前 工作 筹 。 因 当前 工 
作 短处 于 打开 状态 ， 直 接 执行 Kill 语句 将 会 产生 错误 ， 所 以 还 需 使 用 ChangeFileAccess 方 
法 更 改 工作 短 的 访问 权限 ， 该 方法 的 语法 格式 如 下 : 


表达 式 .ChangeFileRccess (Mode, WritePassword, Notify) 


以 上 参数 中 Mode 为 必需 的 ， 其 余 两 个 参数 可 省 略 。 各 参数 的 含义 如 下 所 述 。 

口 Mode: 为 工作 短 指 定 新 的 访问 模式 ， 可 设置 为 xIReadOnly (只 读 ) 或 xlRead/Wirite 
(可 读 / 写 ) 两 种 模式 。 

口 WritePassword: 如 果 文 件 设置 了 写 保 护 并 且 Mode 为 xIReadWrite， 则 指定 写 保 护 
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密码 。 如 果 文件 没有 密码 或 Mode 为 xReadOnly， 则 忽略 此 参数 。 
口 Notify: 如 果 该 值 为 True (或 省 略 该 参数 ) ， 则 当 无 法 立即 访问 文件 时 通知 用 户 。 
如 果 以 只 读 模 式 打 开 文 件 ， 则 不 可 独占 访问 此 文件 。 如 果 将 此 文件 从 只 读 更 改 为 可 读 
写 ，Excel 必须 载 入 该 文件 的 新 副本 以 确认 在 以 只 读 模 式 打开 该 文件 后 没有 进行 过 更 改 。 
为 了 使 工作 短 退 出 时 保存 使 用 次 数 , 在 工作 敌对 象 Workbook 对 象 的 BeforeClose 事件 
过 程 中 编写 以 下 代码 ， 在 关闭 Excel 工作 短 之 前 自动 保存 。 
Private Sub Workbook BeforeCclose (Cancel Rs Boolean) 


IE Me.Saved = False Then Me.Save 
End Sub 


12.4.6 ”限制 打印 


在 如 图 12-16 所 示 的 【Office 按钮 】 下 拉 菜 单 中 ， 选 择 【 打 印 】 选 项 卡 ， 可 打印 工作 
短 中 当前 工作 表 或 工作 短 中 的 所 有 工作 表 。 


= 和 
Dw 预 千 并 打印 文档 
BY HB@w 
多 ro 澡 条 划 前 过 返 末 名 也 他 打包 到 
项 民 
钢 =*ew 全 锯条 外 (Q) 
3 afar 
9 
园 we 打印 预付 
[a 另 为 QD 打印 戎 预 党 并 更 改 页 面 
| 名 mm ， 
现 as@ ， 
2 、/ 
氏 seu 
曾 xmo 
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图 12-16 【打印 】 选 项 卡 
在 某 些 情况 下 ,工作 表 中 的 数据 将 只 允许 用 户 查 看 , 不 允许 打印 。 要 实现 这 样 的 功能 ， 
可 以 通过 Workbook 对 象 的 BeforePrint 事件 进行 控制 。 在 打印 指定 工作 短 (或 者 其 中 的 任 
何 内 容 ) 之 前 ， 将 产生 BeforePrint 事件 。 该 事件 过 程 的 结构 如 下 所 示 : 
Private Sub Workbook BeforePrint (Cancel As Boolean) 


End sub 

参数 Cancel 为 逻辑 型 ， 当 事件 发 生 时 其 值 为 False。 如 果 该 事件 过 程 将 此 参数 设置 为 
True， 则 该 过 程 完 成 后 将 不 打印 工作 短 。 

限制 打印 工作 筹 的 代码 很 简单 ， 只 需要 在 Workbook 事件 中 的 BeforePrint 事件 过 程 中 
编写 如 下 代码 即 可 。 
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了 Private Sub Workbook BeforePrint (Cancel Rs Boolean) 
MsgBox "本 工作 短 的 内 容 不 允许 打印 ! "，vbcritical + vbOKOnly 
Cancel = True 

End Sub 


在 Workbook 对 象 的 BeforePrint 事件 过 程 中 编写 以 上 代码 后 ， 当 用 户 执行 【打印 】 命 
令 时 ， 将 弹出 如 图 12-17 所 示 的 提示 对 话 框 ， 提 示 用 户 不 允许 打印 数据 。 


et 凤 


@ 本 工作 简 的 内 容 不 多 许 打印 9 


图 12-17 提示 对 话 框 
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Worksheet 对 象 表示 Excel 工作 表 ， 通 过 Workbook 对 象 的 Sheets 属性 或 Worksheets 
属性 可 返回 指定 工作 簿 中 的 工作 表 。 
本 章 将 介绍 Worksheets 集合 对 象 和 Worksheet 对 象 的 常用 属性 、 方 法 和 事件 。 


13.1 了 解 Worksheet 对 象 


在 VBA 中 ， 通 过 Worksheets 集合 对 象 可 向 工作 夭 中 增加 、 删 除 工作 表 ， 获 取 对 工作 
表 的 引用 ， 向 工作 表 中 增加 、 删 除 行 。 通 过 Worksheet 对 象 的 事件 还 可 控制 工作 表 的 行为 ， 
如 禁止 更 改名 称 、 禁 止 打印 输出 等 。 


13.1.1 Worksheets 集合 


Worksheets 集合 包括 指定 工作 秒 中 的 所 有 Worksheet 对 象 。 每 个 Worksheet 对 象 都 代 
表 一 个 工作 才 。 


名 提示 : 在 Excel 中 还 提供 了 一 个 Sheets 集合 ， 该 集合 中 的 每 个 成 员 都 是 Worksheet 对 象 
或 Chart 对 象 ， 其 属性 和 方法 都 相同 。 


在 Worksheets 集合 中 ， 除 了 一 般 集 合 对 象 具 有 的 属性 外 ， 还 有 一 个 Visible 属性 ， 通 
过 该 属性 可 控制 集合 中 的 Worksheet 对 象 是 否 可 见 。 

通过 Worksheets 集合 的 方法 ， 可 以 对 工作 表 进 行 控制 ， 下 面 介绍 几 种 常用 的 方法 。 

口 Add 方法 : 新 建 工 作 表 、 图 表 或 宏 表 。 新 建 的 工作 表 将 成 为 活动 工作 表 。 

口 Copy 方法 : 将 工作 表 复 制 到 工作 秒 的 另 一 位 置 。 

口 Delete 方法 : 删除 集合 中 的 指定 对 象 一 一 工作 表 (Worksheet) 对 象 。 

口 Move 方法 : 将 工作 表 移 到 工作 敌 中 的 其 他 位 置 。 

口 PrintOut 方法: 打印 输出 工作 表 。 

口 PrintPreview 方法 : 按 对 象 打印 后 的 外 观 效 果 显 示 对 象 的 预览 。 


13.1.2 Worksheet 对 象 的 常用 属性 


通过 Worksheet 对 象 的 属性 ， 可 引用 工作 表 中 的 单元 格 、 处 理 批 注 、 控 制 工 作 表 可 见 
性 等 。Worksheet 对 象 的 常用 属性 如 下 所 述 。 


OOOODODO 口 


口 口 
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Cells 属性 : 返回 一 个 Range 对 象 ， 它 代表 工作 表 中 的 所 有 单元 格 〈 不 仅仅 是 当前 
使 用 的 单元 格 ) 。 

Comments 属性 : 返回 一 个 Comments 集合 ， 该 集合 表示 指定 工作 表 的 所 有 注释 。 
Name 属性 : 返回 或 设置 一 个 String 值 ， 它 代表 工作 表 的 名 称 。 

Next 属性 : 返回 代表 下 一 个 工作 表 的 Worksheet 对 象 。 

Previous 属性 : 返回 代表 上 一 个 工作 表 的 Worksheet 对 象 

Range 属性 : 返回 一 个 Range 对 象 ， 它 代表 一 个 单元 格 或 单元 格 区 域 。 

ScrollArea 属性 : 以 Al 样式 的 区 域 引用 形式 返回 或 设置 允许 滚动 的 区 域 。 用 户 不 
能 选 定 滚 动 区 域 之 外 的 单元 格 。 

UsedRange 属性 : 返回 一 个 Range 对 象 ， 该 对 象 表 示 指 定 工作 表 上 所 使 用 的 区 域 。 
Visible 属性 : 设置 工作 表 对 象 是 否 可 见 。 


13.1.3 Worksheet 对 象 的 常用 方法 


使 用 Worksheet 对 象 提供 的 方法 ， 可 复制 、 删 除 、 移 动工 作 表 ， 还 可 对 工作 表 进 行 保 
护 等 操作 ，Worksheet 对 象 的 常用 方法 如 下 所 示 。 


口 


口 


Activate 方法 : 使 当前 工作 表 成 为 活动 工作 表 。 调 用 此 方法 等 同 于 单 击 工作 表 的 
标签 。 
Copy 方法 : 将 工作 表 复 制 到 工作 德 的 男 一 位 置 。 


口 Delete 方法 : 删除 工作 表 对 象 。 在 删除 工作 表 时 ， 此 方法 显示 一 个 对 话 框 ， 用 于 提 


OOOO 


示 用 户 确 认 是 否 删 除 ， 如 果 用 户 在 对 话 框 中 单 击 【 取 消 】 按 钮 ， 则 返回 False， 如 
果 用 户 单 击 【 删 除 】 按 钮 ， 则 返回 True。 

Move 方法 : 将 工作 表 移 到 工作 短 中 的 其 他 位 置 。 

Paste 方法 : 将 剪贴 板 中 的 内 容 粘贴 到 工作 表 上 。 

Protect 方法 : 保护 工作 表 使 其 不 能 被 修改 。 

Unprotect 方法 : 取消 工作 表 的 保护 。 如 果 工 作 表 不 是 受 保护 的 ， 则 此 方法 不 起 
作用 。 


13.1.4 ”Worksheet 对 象 的 常用 事件 


通过 Worksheet 对 象 的 事件 ， 可 捕获 用 户 在 工作 表 中 的 操作 ， 以 控制 工作 表 中 的 数据 。 
Worksheet 对 象 的 常用 事件 如 下 所 示 。 


OO DO 


Activate 事件 : 激活 工作 表 、 图 表 工 作 表 或 嵌入 式 图 表 时 发 生 此 事件 。 
BeforeDoubleClick 事件 : 当 双 击 工作 表 时 发 生 此 事件 ， 此 事件 先 于 默认 的 双击 
操作 。 

BeforeRightClick 事件 : 右 击 工作 表 时 发 生 此 事件 ， 此 事件 先 于 默认 的 右 击 操作 。 
Calculate 事件 : 在 对 工作 表 进 行 重新 计算 之 后 发 生 此 事件 。 

Change 事件 : 当 用 户 更 改 工作 表 中 的 单元 格 ， 或 外 部 链接 引起 单元 格 的 更 改 时 发 
生 此 事件 。 
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口 Deactivate 事件 : 图 表 、 工 作 表 被 停 用 时 发 生 此 事件 。 
口 SelectionChange 事件 : 当 工作 表 上 的 选 定 区 域 发 生 改变 时 发 生 此 事件 。 


13.2 管理 工作 表 


Worksheet 对 象 是 Worksheets 集合 对 象 的 成 员 ， 同 时 也 是 Sheets 集合 的 成 员 。Sheets 
集合 包含 工作 敌 中 所 有 的 工作 表 图表 工 作 表 和 工作 表 〉。 图 表 工 作 表 的 使 用 将 在 第 15 
章 中 进行 介绍 ， 本 章 主要 介绍 工作 表 的 相关 操作 。 


13.2.1 新 增 工 作 表 


使 用 Worksheets 集合 对 象 的 Add 方法 , 可 向 指定 工作 适中 增加 工作 表 , 该 方法 的 语法 
格式 如 下 : 

表达 式 .Add (Before, After, Count, Type) 

该 方法 共有 4 个 参数 ， 这 些 参数 都 可 省 略 。 各 参数 的 含义 如 下 所 述 。 

口 Before: 指定 工作 表 的 对 象 ， 新 建 的 工作 表 将 置 于 此 工作 表 之 前 。 

口 After: 指定 工作 表 的 对 象 ， 新 建 的 工作 表 将 甘于 此 工作 表 之 后 。 

口 Count: 要 添加 的 工作 表 数 。 默 认 值 为 1。 

口 Type: 指定 工作 表 类 型 。 可 以 为 xIYWorksheet (工作 表 ) 、xlChart (图 表 ) 、 
xlExcel4MacroSheet (Excel 版 本 4 宏 工 作 表 ) 或 xlIExcel4IntlMacroSheet (Excel 版 
本 4 国际 宏 工作 表 ) 。 默 认 值 为 xIWorksheet。 


全 提 示 : 如 果 同 时 省 略 参 数 Before 和 After， 则 新 工作 表 插 入 到 活动 工作 表 之 前 。 新 建 的 
工作 表 将 成 为 活动 工作 表 。 


例如 ， 以 下 代码 可 向 工作 竹中 新 加 工作 表 : 


sub 新 增 工 作 表 () 
Dim strl As String 
On Error Resume Next 
strl = Aplication.InputBox (prompt :=" 请 输入 已 有 工作 表 名 称 ,，" & vbNewLine & 


"新 增 的 工作 表 将 位 于 该 工作 表 前 面 。"，_ 
Title:=" 输 入 原 工作 表 名称 "，Type:=2) 
Worksheets.Add before :=Worksheets (str1) 
End Sub 
执行 以 上 代码 ， 将 弹出 如 图 13-1 所 示 的 对 话 框 ， 让 用 户 输入 原 工作 表 名 称 ， 再 使 用 
Add 方法 的 Before 参数 指定 将 新 增加 的 工作 表 放 在 该 工作 表 之 前 。 
在 程序 中 使 用 了 On Error 错误 捕获 语句 ， 用 来 捕获 用 户 输入 的 工作 表 名 称 不 存在 时 的 
错误 提示 。 
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输入 原 工 作 表 名 称 


已 有 工作 表 名 称 ， 
- 作 表 格 位 于 该 工作 表 前 面 . 


sheet3 


[mm] 


图 13-1 输入 原 工 作 表 名 称 


13.2.2 ”删除 工作 表 


使 用 Worksheet 对 象 的 Delete 方法 ， 可 删除 指定 工作 表 。 
例如 ， 使 用 以 下 代码 可 删除 指定 的 工作 表 : 


Sub 删除 工作 表 () 
Dim strl As String 
On Error GoTo errl 
strl = Application.InputBox (prompt :=" 请 输入 要 删除 的 工作 表 名 称 : "， a 
Title:=" 输 入 工作 表 名 称 "，Type :=2) 
IE strl = "False" Then Exit Sub 


Application.DisplayAlerts = False ' 不 显示 警告 信息 
Worksheets (str1) .Delete 
Application.DisplayAlerts = True 
Exit Sub 

rT: ' 错 误 处 理 
MsgBox "不 能 删除 工作 表 “" & strl & "”!" 
Application.DisplayAlerts = True 

End Sub 


执行 以 上 代码 ， 将 弹出 如 图 13-2 所 示 的 对 话 框 ， 用 户 输入 需要 删除 的 工作 表 名 称 后 ， 
单 击 【 确 定 】 按 钮 即 可 删除 指定 的 工作 表 。 


图 13-2 输入 工作 表 名 称 


当 用 户 输入 了 不 存在 的 工作 表 名 称 ， 或 输入 的 工作 表 不 允许 删除 时 ， 将 产生 错误 。 在 
上 面 的 代码 中 使 用 On Error 语句 捕获 错误 ， 并 显示 出 错误 信息 。 


13.2.3 ”获取 工作 表 数 


Worksheets 集合 对 象 由 Worksheet 对 象 组 成 ， 该 集合 的 Count 属性 返回 集合 中 
Worksheet 对 象 的 数量 ， 代 表 工 作乱 中 工作 表 的 数量 。 
使 用 Sheets 集合 对 象 的 Count 属性 , 可 返回 指定 的 或 活动 工作 短 中 所 有 工作 表 的 集合 。 
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这 里 所 说 的 工作 表 包 含 Chart (图 表 工 作 表 ) 或 Worksheet 对 象 。 应 注意 Worksheets 集合 
与 Sheets 集合 的 区 别 。 
例如 ， 以 下 代码 将 显示 当前 工作 簿 中 工作 表 的 数量 (不 包括 图 表 工 作 表 )〉: 
sub 工作 表 数 量 () 
Dim i As Long 
i = Worksheets.Count 


MsgBox "当前 工作 德 的 工作 表 数 为 : " & i 
End Sub 


13.2.4 激活 工作 表 


使 用 Worksheet 对 象 的 Activate 方法 ， 将 使 当前 工作 表 成 为 活动 工作 表 。 使 用 此 方法 
相当 于 单 击 工作 表 的 标签 。 
例如 ， 以 下 代码 可 逐个 激活 工作 簿 中 的 工作 表 。 
sub 逐个 激活 工作 表 () 
Dim sh As Worksheet 
For Each sh In Worksheets 
sh.Activate 
MsgBox "激活 工作 表 名 称 为 : " & sh.Name & vbNewLine & _ 
" 单 击 【确定 】 按 钮 将 激活 下 一 工作 表 ! " 
Next 
End Sub 


以 上 代码 使 用 For Each 循环 对 Worksheets 集合 对 象 中 的 每 个 元 素 重复 执行 激活 语句 。 
运行 以 上 代码 将 显示 如 图 13-3 所 示 的 提示 对 话 框 。 


Microsoft Excel 区 ] 
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图 13-3 ”提示 对 话 框 


13.2.5 选择 工作 表 


与 激活 工作 表 不 同 , 使 用 Worksheet 对 象 的 Select 方法 可 选择 多 个 工作 表 。Select 方法 
的 语法 格式 如 下 : 

表达 式 .Select (Replace) 

参数 Replace 可 省 略 。 该 参数 如 果 为 True， 则 用 指定 的 对 象 奉 换 当 前 所 选 内 容 。 如 果 
为 False， 则 扩展 当前 所 选 内 容 以 包括 以 前 选择 的 对 象 和 指定 的 对 象 。 

在 选择 多 个 工作 表 时 ， 如 果 不 将 Replace 参数 设置 为 False， 则 执行 后 一 个 Select 方法 
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时 ， 将 取消 前 一 个 工作 表 的 选取 状态 。 例 如 ， 以 下 代码 最 后 只 有 第 3 个 工作 表 处 于 选中 
状态 : 


Worksheets (1) .Select 
Worksheets (3) .Select 


而 以 下 代码 将 同时 选中 第 1 个 和 第 3 个 工作 表 : 


Worksheets (1) .Select 
Worksheets (3) .Select False 


使 用 以 下 代码 也 可 同时 选中 多 个 工作 表 : 


Worksheets (Array (Worksheets (1) .Name, Worksheets (3) .Name) ) .Select 


13.2.6 ”选取 前 后 工作 表 


在 工作 短 中 按 顺 序 移动 工作 表 时 ， 可 以 使 用 Previous 属性 和 Next 属性 进行 操作 。 
口 Previous 属性 : 返回 代表 下 一 个 工作 表 的 Worksheet 对 象 。 
口 Next 属性 : 返回 代表 下 一 个 工作 表 的 Worksheet 对 象 。 


全 注意 : 如 果 当 前 工作 表 是 第 一 个 工作 表 ， 则 使 用 Previous 属性 会 出 错 。 如 果 当 前 工作 表 
是 最 后 一 个 工作 表 ， 则 使 用 Next 属性 会 出 错 。 


可 使 用 以 下 代码 选择 前 一 个 工作 表 : 


Sub 选择 前 一 个 工作 表 () 
IE ActiveSheet.Index <> 1 Then 
ActivesSheet .Previous.Activate 
Else 
MsgBox "已 到 第 一 个 工作 表 " 
End If 
End Sub 


以 上 代码 中 , ActiveSheet 代表 活动 工作 簿 中 或 指定 的 窗口 、 工 作 簿 中 的 活动 工作 表 ( 最 
上 面 的 工作 表 ) 。 通 过 ActiveSheet.Index 属性 判断 当前 工作 表 是 否 为 第 一 个 工作 表 ， 并 对 
用 户 进行 相应 的 提示 。 
同样 ， 使 用 以 下 代码 可 选择 下 一 个 工作 表 : 
Sub 选择 后 一 个 工作 表 () 
IE ActiveSheet.Index <> Worksheets.Count Then 
ActiveSheet .Next .Activate 
Else 
MsgBox "已 到 最 后 一 个 工作 表 " 
End If 
End Sub 


以 上 代码 中 ,使 用 Worksheets 对 象 的 Count 属性 得 到 工作 敌 中 工作 表 的 数量 ， 用 来 判 
断 当 前 工作 表 是 否 为 最 后 一 个 工作 表 。 
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13.2.7 ”工作 表 保 护 状 态 


通过 Worksheet 对 象 的 ProtectContents 属性 ， 可 获取 工作 表 的 保护 状态 。 如 果 工 作 表 
内 容 是 受 保护 的 ， 则 为 True。 此 属性 保护 单独 的 单元 格 。 
例如 ， 以 下 代码 可 判断 当前 工作 表 的 保护 状态 : 
Sub 工作 表 保 护 状态 () 
If ActiveSheet.ProtectContents Then 
MsgBox "当前 工作 表 已 保护 ! " 
Else 
MsgBox "当前 工作 表 未 保护 ! " 
End If 
End Sub 


13.2.8 保护 工作 表 


可 使 用 Worksheet 对 象 的 Protect 方法 保护 工作 表 ， 使 其 不 能 被 修改 。 该 方法 的 语法 格 
式 如 下 : 

表 达 式 .Protect (Password, DrawingObjects, Contents, Scenarios, 

UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, 

AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, 


AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, 
AllowSorting, AllowFiltering, AllowUsingPivotTables) 


该 方法 有 很 多 参数 ， 这 些 参数 都 可 以 省 略 ， 一 般 只 需要 设置 Password 密码 即 可 。 各 参 
数 的 含义 如 下 所 述 。 

口 Password: 该 参数 为 工作 表 的 密码 (区 分 大 小 写 ) 。 如 果 省 略 此 参数 ， 不 用 密码 就 
可 以 取消 对 工作 表 的 保护 。 否 则 ， 必 须 指定 密码 才能 取消 对 工作 表 的 保护 。 如 果 
忘记 了 密码 ， 则 无 法 取消 对 工作 表 的 保护 。 

口 DrawingObjects: 该 参数 如 果 为 True， 则 保护 工作 表 中 的 形状 。 默 认 值 是 True。 

口 Contents: 该 参数 如 果 为 True， 则 保护 内 容 。 对 于 图 表 ， 这 样 会 保护 整个 图 表 。 对 
于 工作 表 ， 这 样 会 保护 锁定 的 单元 格 。 默 认 值 是 True。 

口 Scenarios: 该 参数 如 果 为 True， 则 保护 方案 。 此 参数 仅 对 工作 表 有 效 。 默 认 值 是 
True。 

口 UserInterfaceOnly: 该 参数 如 果 为 True， 则 保护 用 户 界 面 ， 但 不 保护 安 。 如 果 省 略 
此 参数 ， 则 既 保护 宏 也 保护 用 户 界 面 。 

口 AllowFormattingCells: 该 参数 如 果 为 Tme， 则 允许 用 户 为 受 保护 的 工作 表 上 的 任 
意 单元 格 设置 格式 。 默 认 值 是 False。 

口 AllowFormattingColumns: 该 参数 如 果 为 Trmme， 则 允许 用 户 为 受 保护 的 工作 表 上 的 
任意 列 设置 格式 。 默 认 值 是 False。 

口 AllowFormattingRows: 该 参数 如 果 为 Trme， 则 允许 用 户 为 受 保护 的 工作 表 上 的 任 
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意 行 设置 格式 。 默 认 值 是 False。 

AllowInsertingColumns: 该 参数 如 果 为 True, 则 允许 用 户 在 受 保护 的 工作 表 上 插入 
列 。 默 认 值 是 False。 

AllowInsertingRows: 该 参数 如 果 为 Tme, 则 人 允许 用 户 在 受 保护 的 工作 表 上 插入 行 。 
默认 值 是 False。 

AllowInsertingHyperlinks: 该 参数 如 果 为 True， 则 人 允许 用 户 在 受 保护 的 工作 表 中 插 
入 超 链 接 。 默 认 值 是 False。 

AllowDeletingColumns: 该 参数 如 果 为 Trme， 则 允许 用 户 在 受 保护 的 工作 表 上 删除 
列 ， 要 删除 的 列 中 的 每 个 单元 格 都 被 解除 锁定 。 默 认 值 是 False。 
AllowDeletingRows: 该 参数 如 果 为 True, 则 允许 用 户 在 受 保护 的 工作 表 上 删除 行 ， 
要 删除 的 行 中 的 每 个 单元 格 都 被 解除 锁定 。 默 认 值 是 False。 

AllowSorting: 该 参数 如 果 为 True， 则 人 允许 用 户 在 受 保护 的 工作 表 上 进行 排序 。 排 
序 区 域 中 的 每 个 单元 格 必须 是 解除 锁定 的 或 取消 保护 的 。 默 认 值 是 False。 
AllowFiltering: 该 参数 如 果 为 True， 则 允许 用 户 在 受 保护 的 工作 表 上 设置 筛选 。 
用 户 可 以 更 改 筛选 条 件 ， 但 是 不 能 启用 或 禁用 自动 筛选 功能 。 用 户 也 可 以 在 已 有 
的 自动 筛选 功能 上 设置 筛选 。 默 认 值 是 False。 

AllowUsingPivotTables: 该 参数 如 果 为 True， 则 允许 用 户 在 受 保护 的 工作 表 上 使 用 
数据 透视 表 。 默 认 值 是 False。 


例如 ， 使 用 以 下 代码 ， 可 对 当前 工作 短 中 的 所 有 工作 表 进 行 保护 : 
Sub 保护 工作 表 () 


On Error Resume Next 

Dim wsl Rs Worksheet 

Dim strl As String 

strl = Application.InputBox (prompt :=" 请 输入 保护 工作 表 的 密码 : "，_ 
Title:=" 输 入 密码 "，Type:=2) 

For Each wsl In Worksheets 
wsl.Protect Password:=strl 

Next 

MsgBox "所 有 工作 表 保护 完成 ! " 


End Sub 


以 上 代码 使 用 For Each 循环 处 理 Worksheets 集合 对 象 中 的 每 一 个 Worksheet 对 象 , 分 


别 对 每 个 工作 表 设 置 保护 密码 。 


13.2.9 撤销 工作 表 的 保护 


对 于 使 用 密码 保护 的 工作 表 ， 如 果 需 要 对 保护 的 工作 表 进 行 修改 、 编 辑 操作 ， 需 要 使 


用 Worksheet 对 象 的 Unprotect 方法 取消 工作 表 的 保护 。 如 果 工 作 表 或 工作 短 不 是 受 保护 


， 则 此 方法 不 起 作用 。Unprotect 方法 的 语法 格式 如 下 : 
表达 式 .Unprotect (Password) 


参数 Password 指定 用 于 解除 工作 表 保 护 的 密码 ,此 密码 是 区 分 大 小 写 的。 如 果 工 作 表 
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不 设 密码 保护 ， 则 省 略 此 参数 。 如 果 对 工作 表 省 略 此 参数 ， 而 该 工作 表 又 设 有 密码 保护 ， 
Excel 将 提示 用 户 输入 密码 。 

在 撤销 工作 表 保 护 时 ， 如 果 输 入 的 密码 错误 ， 则 应 给 用 户 提示 。 可 使 用 On Error 捕获 
错误 信息 。 

例如 ， 以 下 代码 要 求 用 户 输入 密码 ， 对 工作 竹中 的 所 有 工作 表 撤销 保护 : 


sub 撤销 工作 表 保 护 () 
On Error GoTo errl 
Dim wsl Rs Worksheet 
Dim strl As String 
strl = Application.InputBox (prompt :=" 请 输入 撤销 保护 工作 表 的 密码 : "， ey 
Title:=" 输 入 密码 "，Type:=2) 
For Each wsl In Worksheets 
wsl1 .Unprotect Password:=strl 
Next 
MsgBox "所 有 工作 表 的 保护 已 被 撤销 ! " 
Exit Sub 
errl; 
MsgBox "输入 的 密码 错误 ， 不 能 取 撤销 对 工作 表 的 保护 ! " 
End Sub 


13.2.10 判断 工作 表 是 否 存在 


当 在 工作 筹 中 访问 不 存在 的 工作 表 时 ， 系 统 将 产生 错误 。 使 用 On Error 语句 捕获 这 种 
错误 信息 ， 就 可 以 判断 指定 的 工作 表 是 否 存在 。 

例如 ， 以 下 的 自 定义 函数 WorksheetExists 可 判断 工作 表 是 否 存 在 ， 该 函数 的 参数 为 工 
作 表 名 称 ， 当 工作 表 存 在 时 将 返回 True; 否则 返回 False。 


Function WorksheetExists(ByVal SheetName As String) As Boolean 
Dim sName As String 
On Error GoTo errl 
sName = Worksheets (SheetName) .Name 
WorksheetExists = True 
Exit Function 
errl: 
WorksheetExists = False 
End Function 


13.2.11 复制 工作 表 


使 用 Worksheet 对 象 的 Copy 方法 ， 可 将 工作 表 复 制 到 工作 敌 的 另 一 位 置 。 其 语法 格 
式 如 下 : 

表达 式 .Copy (Before, After) 

Copy 方法 的 两 个 参数 都 可 省 略 ， 各 参数 的 含义 如 下 所 示 。 
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口 Before: 复制 的 工作 表 放 在 该 参数 指定 的 工作 表 之 前 。 如 果 指 定 了 After， 则 不 能 


指定 Before。 
口 After: 复制 的 工作 表 放 在 该 参数 指定 的 工作 表 之 后 。 如 果 指 定 了 Before， 则 不 能 
指定 After。 
各 注意 : 如 果 既 不 指定 Before 也 不 指定 After， 则 Excel 将 新 建 一 个 工作 薄 ， 其 中 包含 复 
制 的 工作 表 。 
例如 ， 以 下 代码 可 复制 当前 工作 表 。 
Sub 复制 工作 表 () 


Dim wsl Rs Worksheet 
Set wsl = ActiveSheet 
MsgBox "复制 当前 工作 到 前 面 。" 
Wsl.Copy Before:=wsl 
MsgBox "复制 当前 工作 表 到 后 面 。" 
WSsl.Copy After:=wsl 

End Sub 


以 上 代码 首先 将 当前 工作 表 〈AetiveSheet) 赋值 给 一 个 对 象 变量 ， 再 使 用 该 对 象 变量 
完成 工作 表 的 复制 操作 。 
名 提示: 复制 的 工作 表 名 称 为 原 工作 表 名 称 加 一 个 序号 。 例如， 复制 工作 表 Sheetl 后 ， 得 
到 的 工作 表 为 Sheets1(2)。 


13.2.12 ”隐藏 工作 表 


通过 Worksheet 对 象 的 Visible 属性 ， 可 获取 或 设置 工作 表 是 否 可 见 ， 可 为 该 属性 设置 
为 以 下 常量 之 一 。 

口 xlSheetHidden: 隐藏 工作 表 ， 用 户 可 以 通过 菜单 取消 隐藏 。 

口 xlSheetVeryHidden: 隐藏 工作 表 。 通 过 该 值 隐藏 的 工作 表 ， 用 户 将 不 能 再 通过 菜 
单 取 消 隐藏 ， 只 能 通过 VBA 代码 修改 工作 表 的 可 见 状态 。 

口 xlSheetVisible: 显示 工作 表 。 

设置 Visible 属性 为 True 或 False， 也 可 显示 或 隐藏 工作 表 。 

例如 ， 使 用 以 下 代码 可 隐藏 指定 的 工作 表 : 


Sub 隐藏 工作 表 () 
Dim strl As String, wsl As Worksheet 
strl = Application.InputBox (Prompt :=" 请 输入 需要 隐藏 的 工作 表 : "，_ 
Title :=" 隐 藏 工作 表 "，Default:="Sheetl"，Type:=2) 
On Error GoTo errl 
Set wsl = Worksheets (str1) 


wsl.Visible = xlSheetHidden 
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Exit Sub 
errls 
MsgBox "输入 的 工作 表 不 存在 ! " 
End Sub 
以 上 代码 通过 错误 捕捉 语句 ， 处 理 用 户 输入 工作 表 不 存在 的 情况 。 
如 果 要 显示 工作 表 ， 可 将 Worksheet 对 象 的 Visible 属性 设置 为 True (或 常数 
xlSheetVisible) 。 


全 提示 : 用 VBA 代码 隐藏 的 工作 表 ， 将 不 能 通过 Excel 界面 中 的 命令 显示 出 来 。 


13.2.13 ”移动 工作 表 


使 用 Worksheets 集合 对 象 的 Move 方法 将 工作 表 移 到 工作 竹中 的 其 他 位 置 。 其 语法 格 
表达 式 .Move (Before, After) 


参数 的 含义 如 下 所 述 。 

口 Before: 复制 的 工作 表 放 在 该 参数 指定 的 工作 表 之 前 。 如 果 指 定 了 After， 则 不 能 
指定 Before。 

口 After: 复制 的 工作 表 放 在 该 参数 指定 的 工作 表 之 后 。 如 果 指 定 了 Before， 则 不 能 
指定 After。 

如 果 既 不 指定 Before 也 不 指定 After，Excel 将 新 建 一 个 工作 筹 ， 其 中 包含 所 移动 的 工 

作 表 。 
例如 ， 使 用 以 下 代码 可 将 当前 工作 表 移 到 所 有 工作 表 前 面 : 


Activesheet .Move Before:=Sheets(1) 


13.2.14 ”计算 工作 表 打 印 页 数 


工作 表 根 据 设置 的 纸张 大 小 划分 打印 的 页 ， 在 Excel 工作 表 中 用 虚线 划分 页 。 页 面 可 
按 水 平和 垂直 方向 划分 ,在 VBA 中 可 通过 HPageBreaks 属性 和 VPageBreaks 属性 来 获取 水 
平和 垂直 分 页 符 。 

口 HPageBreaks 属性 : 返回 一 个 HPageBreaks 集合 ， 它 代表 工作 表 上 的 水 平分 页 符 。 

口 VPageBreaks 属性 : 返回 一 个 VPageBreaks 集合 ， 它 代表 工作 表 上 的 垂直 分 页 符 。 

每 个 水 平分 页 符 都 由 一 个 HPageBreak 对 象 代表 。 如 果 添 加 的 分 页 符 不 和 打印 区 域 交 
又, 则 新 添加 的 HPageBreak 对 象 将 不 会 出 现在 打印 区 域 的 HPageBreaks 集合 中 。 如 果 重 新 
调整 打印 区 域 或 重新 定义 打印 区 域 ， 将 会 改变 集合 的 内 容 。 

与 HPageBreaks 属性 类 似 , VPageBreaks 集合 包含 VPageBreak 对 象 , 每 个 VPageBreak 
对 象 代表 一 个 垂直 分 页 符 。 

使 用 VPageBreaks(index) (其 中 index 是 该 分 页 符 的 分 页 符 索引 号 ) 可 返回 一 个 
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VPageBreak 对 象 。 
例如 ， 使 用 以 下 代码 可 计算 当前 工作 表 的 打印 页 数 : 
Sub 计算 页 数 () 


Dim r Rs Long，c Rs Long, p Rs Long 
Dim wsl As Worksheet 
Set wsl = Activesheet 
= WwWS1.HPageBreaks .Count + 1 
r= Wsl.VPageBreaks.Count + 1 
吕 起 
MsgBox "当前 工作 表 共 有 " & p & "页 。" 

End sub 

以 上 代码 通过 获取 HPageBreaks 集合 和 VPageBreaks 集合 中 包含 对 象 的 数量 ， 再 将 行 
和 列 数 相 乘 即 可 获取 工作 表 中 的 打印 页 数 。 


13.2.15 ”控制 工作 表 中 的 图 片 


在 Excel 工作 表 中 可 插入 图 片 。 使 用 VBA 代码 可 控制 这 些 插 入 的 图 片 。 
Worksheet 对 象 的 Shapes 属性 可 返回 一 个 Shapes 对 象 , 该 对 象 为 工作 表 上 的 所 有 Shape 
对 象 的 集合 。 每 个 Shape 对 象 都 代表 绘图 层 中 的 一 个 对 象 ， 例 如 自选 图 形 、 任 意 多 边 形 、 
OLE 对 象 或 图 片 。 
Shape 对 象 的 Type 属性 可 返回 或 设置 一 个 代表 形状 类 型 的 MsoShapeType 枚 举 值 ， 具 
体 的 值 如 表 13-1 所 示 。 
表 13-1 MsoShapeType 枚 举 类 型 


名 称 值 描述 名 称 值 描 述 
msoAutoShape 1 选 图 形 msoLine 9 线条 
msoCallout 2 msoLinkedOLEObject | 10 | 链接 OLE 对 象 
msoCanvas 20 msoLinkedPicture 11 | 链接 图 片 
msoChart 3 图 msoMedia 16 | 媒体 
msoComment 4 批注 msoOLEControlObject | 12 | OLE 控件 对 象 
msoDiagram 21 表 msoPicture 13 | 图 片 
msoEmbeddedOLEObject | 7 嵌入 的 OLE 对象 | msoPlaceholder 14 | 占 位 符 
msoFormControl 8 窗 体 控件 msoScriptAnchor 18 | 脚本 定位 标记 
msoFreeform 5 任意 多 边 形 msoShapeTypeMixed | -2 | 混和 形状 类 型 
msoGroup 6 组 合 msoTable 19 | 表 
msolIexGraphic 24 | IGX 图 形 msoTextBox 17 | 文本 框 
msoInk 22 | 墨迹 msoTextEffect 15 | 文本 效果 
msoInkComment 23 墨迹 批注 

例如 ， 使 用 以 下 代码 可 删除 当前 工作 表 中 的 所 有 图 片 : 
Sub 删除 图 片 () 
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Dim p As Shape 
For Each p In ActiveSheet.Shapes 
IE p.Type = msoPicture Then p.Delete 
Next 
End Sub 


以 上 代码 循环 访问 当前 工作 表 中 的 各 个 Shape 对 象 , 如 果 其 类 型 为 msoPicture( 图片)， 
则 删除 该 对 象 。 


13.2.16 ”处 理 超 链 接 


Hyperlinks 集合 对 象 代表 工作 表 或 区 域 的 超 链 接 的 集合 。 每 个 超 链接 都 由 一 个 
Hyperlink 对 象 代表 。 


1. 添加 超 链接 


Hyperlinks 集合 对 象 的 Add 方法 可 向 指定 的 区 域 或 形状 添加 超 链 接 。 该 方法 的 语法 格 
式 如 下 : 
表达 式 .Add (Anchor，Rddress，SubRaddress，ScreenTip，TextToDisplay) 


各 参数 的 含义 如 下 所 述 。 

口 Anchor: 为 Object， 表 示 设 置 超 链 接 的 位 置 。 可 以 是 Range 或 Shape 对 象 。 
口 Address: 为 一 个 字符 串 ， 表 示 超 链接 的 地 址 。 

口 SubAddress: 超 链接 的 子 地 址 。 

口 ScreenTip: 当 鼠 标 指针 停留 在 超 链 接 上 时 所 显示 的 屏幕 提示 。 

口 TextToDisplay: 要 显示 的 超 链接 的 文本 。 

例如 ， 使 用 以 下 代码 可 向 当前 工作 表 中 添加 超 链 接 : 


Sub 添加 超 链接 () 
Dim i Rs Integer 
With RActiveSheet 
For i = 1 To Worksheets.Count - 1 
.Cells(i + 2，2) .Value = Worksheets(i + 1) .Name 
.Hyperlinks.Add anchor:=Cells(i + 2, 2), _ 
Address:="", SubAddress:=Cells(i + 2，2) .Value & "!al", _ 
TextToDisplay:=Cells(i + 2, 2) .Value 
Next 
End With 
End Sub 


以 上 代码 将 各 工作 表 的 名 称 作 为 超 链 接 添加 到 当前 工作 表 中 。 
2. 删除 超 链接 


删除 工作 表 中 超 链接 的 代码 很 简单 ， 只 需要 对 当前 工作 表 的 Hyperlinks 集合 对 象 进行 
遍历 ， 逐 个 调用 Hyperlink 对 象 的 Delete 方法 即 可 。 
例如 ， 使 用 以 下 代码 可 将 当前 工作 表 中 的 超 链接 全 部 删除 : 
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Sub 删除 超 链接 () 
Dim h Rs Hyperlink, hs As Hyperlinks 
Set hs = ActiveSheet .Hyperlinks 


For Each h In hs 
hl.Delete 
Next 
End Sub 


13.3 ”响应 用 户 操作 


在 Excel 应 用 程序 中 ， 要 控制 用 户 在 工作 表 中 的 操作 ， 就 需要 对 工作 表 事 件 编写 代码 。 


工作 表 事 件 是 开发 Excel 应 用 程序 时 使 用 最 多 的 。 
在 VBE 左 侧 的 【工程 资源 管理 器 】 窗 口中 双击 工作 表 名 称 ， 即 可 在 打开 的 【代码 】 


窗口 中 编写 工作 表 事件 过 程 的 代码 。 
13.3.1 禁止 选中 某 个 区 域 


在 制作 好 的 工作 表 中 ， 有 时 不 希望 用 户 选择 某 些 单元 格 。 这 时 可 通过 VBA 代码 来 禁 
止 用 户 选 择 这 部 分 单元 格 区 域 。 

当 工 作 表 上 的 选 定 区 域 发 生 改变 时 ,将 产生 SelectionChange 事件 。 该 事件 过 程 的 语法 
格式 如 下 : 


Private Sub Worksheet_SelectionCchange (ByVal Target As Range) 


End Sub 
参数 Target 为 新 选 定 的 区 域 。 
要 禁止 用 户 选择 指定 的 单元 格 区 域 , 可 对 SelectionChage 事件 的 参数 Target 进行 判断 ， 
如 果 其 值 是 不 允许 用 户 选择 的 单元 格 区 域 ， 则 强制 用 户 选择 其 他 单元 格 。 
例如 ， 以 下 代码 将 禁止 用 户 选择 B1:F3 区 域 : 
Private Sub Worksheet SelectionChange (ByVal Target As Range) 
Dim r Rs Long, c Rs Long 
r= Target.Row 


c = Target.Column 
If r <=3 Andc >= 2 And c <= 6 Then [B4].Select 


End Sub 


13.3.2 ”设置 滚动 区 域 


通过 在 Worksheet 对 象 的 SelectionChange 事件 中 编写 代码 ， 可 限制 用 户 选 择 的 单元 格 
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区 域 。 但 其 缺点 也 显而易见 ， 即 用 户 可 单 击 任何 单元 格 ， 若 该 单元 格 不 在 允许 的 区 域 中 ， 
则 跳 转 到 指定 的 单元 格 。 这 样 就 始终 有 一 个 单元 格 跳 转 的 过 程 。 
要 设置 允许 用 户 使 用 的 单元 格 区 域 ( 其 他 区 域 禁止 用 户 选 择 ) ， 更 好 的 方法 是 使 用 
Worksheet 对 象 的 ScrollArea 属性 .。 该 属性 以 Al 样式 的 区 域 引用 形式 返回 或 设置 允许 滚动 
区域。 用 户 不 能 选 定 滚动 区 域 之 外 的 单元 格 。 
全 提示 : 将 ScrollArea 属性 设置 为 空 字符 囊 ("…) ， 以 允许 对 整 张 工作 表 内 所 有 单元 格 的 
选 定 ， 即 可 取消 滚动 区 域 的 限制 。 

如 果 要 在 用 户 进入 工作 表 时 就 限制 访问 区 域 ， 可 在 工作 表 的 Activate 事件 过 程 中 编写 
代码 。 

在 激活 工作 筹 、 工 作 表 、 图 表 工 作 表 或 嵌入 式 图 表 时 发 生 Worksheet 对 象 的 Activate 
事件 。 
全 注意 : 新 建 窗口 时 不 发 生 此 事件 。 

例如 ， 以 下 代码 在 工作 表 的 Activate 事件 过 程 中 编写 代码 ， 限 制 工作 表 的 滚动 区 域 为 
“Al:E65536”， 即 用 户 只 能 选择 A~E 列 中 的 单元 格 。 
Private Sub Worksheet Activate() 


ActiveSheet .ScrollArea = "Al:E65536" 
End Sub 


以 上 代码 设置 当前 工作 表 的 滚动 区 域 为 A 列 至 三 列 。 因 为 文件 保存 为 Excel 2003 格式 ， 
所 以 行 数 设 置 为 65 536， 若 保存 为 Excel 2007 格式 ， 应 设置 为 “Al:E1048576”。 


13.3.3 ”禁止 输入 相同 数据 


有 些 情况 不 允许 用 户 在 同一 列 中 输入 相同 的 值 。 对 于 数据 量 少 的 表格 ， 用 户 可 逐 格 核 
对 ， 但 是 当 数 据 很 多 时 ， 人 工 核对 容易 出 错 ， 并 且 费 时 费力 。 这 时 可 使 用 VBA 代码 进行 
自动 判断 。 

调用 工作 表 函 数 CountIf 可 统计 指定 单元 格 区 域 是 否 有 相同 的 数据 。 

在 VBA 中 ， 工 作 表 函数 CountIf 以 WorksheetFunction 对 象 的 一 个 方法 形式 来 使 用 ， 
用 来 计算 区 域 中 满足 给 定 条 件 的 单元 格 的 个 数 。 其 语法 格式 如 下 : 

表达 式 .CountIf (Rrg1，Rrg2) 


各 参数 的 含义 如 下 所 述 。 
口 Argl: 用 于 计算 其 中 满足 条 件 的 单元 格 个 数 的 单元 格 区 域 。 
口 Arg2: 用 于 定义 哪些 单元 格 将 被 计算 在 内 的 条 件 ， 其 形式 可 以 是 数字 、 表 达 式 、 
单元 格 引 用 或 文本 。 例 如 ， 条 件 可 以 表示 为 32、"32"、">32"、"apples" 或 B4。 
例如 ,以 下 代码 统计 在 B 列 中 与 当前 单元 格 数据 相同 的 单元 格 数量 ,如果 数 量 大 于 1， 
则 表示 有 重复 的 数据 。 


WorksheetFunction.CountIf (Columns (2) ，Target.Value) 
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在 工作 表 的 Chang 过 程 中 编写 以 下 代码 ， 用 来 统计 当前 单元 格 输入 的 值 是 否 与 第 2 列 
中 己 有 的 值 相同 。 
Private Sub Worksheet Change (ByVal Target As Range) 
Application.EnableEvents = False "禁止 响应 事件 
IE Target .Column = 2 Then 
If Target .Value <> "" And WorksheetFunction.CountIf (Columns (2), Target. 
Value) > 1 Then 
MsgBox "请 不 要 输入 相同 的 数据 ! " 
Application.Undo 
End If 
End If 
Application.EnableEvents = True ' 允 许 响 应 事件 
End Sub 
一 般 情况 下 ， 如 果 在 Change 事件 过 程 中 编写 有 代码 ， 当 单元 格 的 值 进行 改变 时 将 执 
行 Change 事件 过 程 中 的 代码 。 如 果 在 Change 事件 过 程 中 又 有 修改 单元 格 值 的 情况 发 生 ， 
则 将 发 生 事件 嵌 套 调用 ， 导 致 堆栈 溢出 ， 使 程序 运行 出 错 。 
因此 ， 如 果 需 要 在 Change 事件 过 程 中 修改 单元 格 的 值 ， 则 先 使 用 以 下 语句 禁止 Excel 
响应 用 户 事件 : 
Application.EnableEvents = False 


在 Change 事件 过 程 结束 处 ， 应 使 用 以 下 语句 允许 响应 用 户 事件 。 


Application.EnableEvents = True 


13.3.4 输入 连续 的 数据 


在 某 些 工作 表 中 ， 要 求 用 户 在 表格 中 输入 数据 时 数据 是 连续 的 ， 即 逐 行 输入 。 如 果 用 
户 跨 行 输入 数据 时 将 导致 数据 间 有 空 行 出 现 。 例 如 , 在 第 1 一 3 行 有 数据 ,接着 在 第 5 行 输 
入 数据 ， 则 第 4 行 就 是 一 个 空 行 。 

要 达到 这 样 的 目的 ， 可 以 通过 VBA 代码 控制 用 户 的 操作 ， 这 样 用 户 只 能 将 活动 单元 
格 移 到 数据 区 域 的 下 一 行 ， 然 后 按 向 下 光标 键 ， 活 动 单元 格 将 自动 移动 到 紧 靠 数据 区 域 的 
下 一 要 宝生 。 

可 在 工作 表 的 SelectionChange 事件 过 程 中 编写 代码 。 当 工作 表 上 的 选 定 区 域 发 生 改变 
时 ， 将 产生 SelectionChange 事件 ， 该 事件 过 程 的 语法 格式 如 下 : 


Private Sub Worksheet SelectionChange(ByVal Target Rs Range) 


End Sub 


参数 Target 为 新 选 定 的 区 域 。 
例如 ， 在 工作 表 Sheetl 的 SelectionChange 事件 中 编写 代码 如 下 : 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
i = ActiveSheet .Range ("A65536") .End (xlUp) .Row 
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j = Target .Column 
IE Target.Row > i Then 
Cells(i + 1, j).Select 
End If 
End Sub 


以 上 代码 首先 从 当前 工作 表 的 最 后 一 行 (为 了 兼容 Excel 2003, 此 处 设置 为 65 536 行 ) 
向 上 查找 有 数据 的 单元 格 ， 并 返回 其 行 数 。 接 着 判断 用 户 选 择 的 单元 格 所 在 行 ， 若 超过 该 
行 数 ， 则 选择 下 一 行 对 应 列 作为 活动 单元 格 。 


13.3.5 “增加 快捷 菜单 


要 增加 工作 表 的 快捷 菜单 项 ， 需 要 捕获 鼠标 的 右 击 操作 。 使 用 Worksheet 对 象 的 
BeforeRightClick 事件 可 捕获 工作 表 中 的 右 击 操作 。 

右 击 工作 表 时 发 生 BeforeRightClick 事件 ， 此 事件 先 于 默认 的 右 击 操作 。 该 事件 过 程 
的 语法 格式 如 下 : 

Private Sub Worksheet BeforeRightClick(ByVal Target As Range, Cancel Rs 

Boolean) 


End sub 


其 中 的 参数 含义 如 下 : 

口 Target 表示 一 个 Range 对 象 ， 是 双击 发 生 时 最 靠近 鼠标 指针 的 单元 格 。 

口 Cancel 事件 发 生 时 为 False。 如 果 事件 过 程 将 此 参数 设 为 True, 则 在 完成 此 过 程 后 ， 
不 执行 默认 的 双击 操作 。 


全 注意 ; 当 指针 在 形状 或 命令 栏 (工具 栏 或 菜单 栏 ) 上 时 ， 右 击 不 触发 此 事件 。 


有 关 创 建 快捷 菜单 的 命令 将 在 本 书 第 21 章 中 进行 介绍 。 
例如 ， 要 在 工作 表 Sheet 中 添加 快捷 菜单 ， 可 使 用 以 下 代码 : 


Private Sub Worksheet BeforeRightClick(ByVal Target As Range, Cancel Rs 
Boolean) 
For Each mnul In Application.CommandBars ("cell") .Controls 
IE mnul .Tag = "MyMenu" Then mnul.Delete 
Next 
IE Not Application.Intersect (Target, Range("Al:C10")) Is Nothing Then 
With RARPP1ication.CommandBars ("cel1") .Controls.Add _ 
(Type:=msoControlButton, before:=6, temporary:=True) 
.Caption = "测试 命令 " 
.OnAction = "显示 测试 信息 " 
-Tag = "MyMenu" 
End With 
End If 
End Sub 


以 上 代码 用 一 段 循环 语句 对 单元 格 快捷 菜单 项 进行 逐个 判断 ， 如 果 某 个 菜单 项 的 标记 
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(Tag) 为 MyMenu( 这 个 标记 是 在 后 面 添加 新 菜单 时 进行 设置 的 , 也 可 设置 为 需要 的 名 称 )， 
则 将 该 菜单 项 删除 ， 以 免 在 不 必要 的 地 方 出 现 该 菜单 。 

接着 ， 使 用 Application 对 象 的 Intersect 方法 将 右 击 处 的 单元 格 (Target) 和 预 设 的 区 
域 (“Al:C10”) 进行 重大 ,如果 Target 在 “Al:C10” 区 域内 ， 则 在 快捷 菜单 中 新 增加 一 
个 菜单 项 。 该 菜单 项 显示 (Caption) 为 “测试 命令 ”, 单 击 该 菜单 项 后 执行 的 宏 (OnAction) 
为 “显示 测试 信息 ”需要 另外 编写 该 宏 代码 ) ， 另 外 设置 新 增加 菜单 项 的 标记 (Tag) 
为 MyMenu， 以 方便 程序 访问 该 菜单 项 。 

当 在 工作 表 Sheet 的 区 域 “Al:C10” 中 单 击 鼠标 右键 时 ， 将 显示 如 图 13-4 所 示 的 快捷 


菜单 。 若 在 其 他 单元 格 上 单 击 右键 ， 弹 出 的 快捷 菜单 中 将 不 会 出 现 【 测 试 命令 】 菜 单项 。 
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图 13-4 显示 增加 的 快捷 菜单 项 


当 用 户 在 快捷 菜单 中 单 击 【测试 命令 】 菜 单 后 ， 将 调用 过 程 “ 显 示 测 试 信息 ”完成 用 
户 设 置 的 命令 。 向 工程 中 插入 一 个 模块 ， 编 写 以 下 代码 响应 用 户 选择 新 增 快捷 菜单 : 
Sub 显示 测试 信息 () 
MsgBox "你 选择 了 用 户 添加 的 快捷 菜单 ! " & 


vbcrLE & "本 例 为 测试 代码 ， 未 编写 具体 的 功能 。" 
End Sub 


13.3.6 ”限制 选择 其 他 工作 表 


在 有 些 应 用 系统 中 , 可 能 由 于 用 户 的 权限 , 需要 限制 用 户 访 问 工作 夭 中 的 其 他 工作 表 。 
当 单 击 其 他 工作 表 标 签 时 ， 将 提示 用 户 只 能 在 当前 工作 表 中 工作 ， 限 制 用 户 选择 其 他 工 
作 表 。 

这 时 可 在 工作 表 的 Deactivate 事件 过 程 中 编写 代码 。 当 用 户 单 击 其 他 工作 表 标 签 时 ， 
当前 工作 表 将 发 生 Deactivate 事件 。 在 该 事件 过 程 中 可 以 编写 处 理 当 工 作 表 失去 选取 焦点 
时 需要 执行 的 操作 。 其 事件 过 程 语法 结构 如 下 : 
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Private Sub Worksheet Deactivate() 


End Sub 


例如 ， 若 要 限制 用 户 只 能 在 工作 表 Sheetl 中 操作 ， 可 在 工作 表 的 Deactivate 事件 过 程 
中 编写 如 下 代码 : 
Private Sub Worksheet_Deactivate() 


ActiveSheet .Activate 


MsgBox "您 无 权 操作 其 他 工作 表 ， 只 能 在 “sheet1” 工 作 表 中 进行 操作 ! "，_ 
vbcritical + vboKOnly，" 警 告 " 
End Sub 


在 工作 表 Sheetl 的 Deactivate 事件 过 程 中 编写 以 上 代码 后 ， 在 Excel 中 单 击 选择 其 他 
工作 表 标 签 时 将 弹出 如 图 13-5 所 示 的 警告 提示 框 。 


图 13-5 警告 信息 


13.3.7 ”隐藏 工作 表 


在 某 些 应 用 程序 中 ， 在 用 户 还 未 登录 进行 身份 认证 之 前 ， 不 希望 查看 到 其 他 工作 表 。 
这 时 可 只 显示 作为 “ 主 界 面 ”的 工作 表 ， 将 其 他 工作 表 隐 藏 。 

用 VBA 代码 隐藏 的 工作 表 , 用 户 在 Excel 环境 中 无 法 通过 操作 将 其 显示 出 来 , 可 起 到 

- 定 的 安全 作用 。 

激活 工作 夭 、 工 作 表 、 图 表 工 作 表 或 典 入 式 图 表 时 将 发 生 Activate 事件 。 以 下 代码 将 
在 用 户 激 活 名 为 “ 主 界面 ”的 工作 表 时 ， 将 隐藏 除 “ 主 界面 ”之 外 的 所 有 工作 表 。 

Private Sub Worksheet Activate() 

Dim ws As Worksheet 


For Each ws In Worksheets "循环 隐藏 每 个 工作 表 
IE ws.Name <> " 主 界面 " Then ws.Visible = False 
Next 
End Sub 


通过 VBA 代码 隐藏 的 工作 表 必 须 用 VBA 才能 取消 其 隐藏 状态 , 可 使 用 以 下 代码 将 隐 
藏 的 工作 表 全 部 显示 出 来 : 


Sub 显示 工作 表 () 
Dim ws As Worksheet 
For Each ws In Worksheets 
ws.Visible = xlSheetVisible 
Next 
End Sub 
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13.3.8 ”突出 显示 当前 位 置 


要 突出 显示 工作 表 当 前 位 置 ， 可 以 在 Excel 中 使 用 【条 件 格式 】 设 置 相 应 的 公式 来 
完成 。 

当 工 作 表 上 的 选 定 区 域 发 生 改变 时 将 发 生 SelectionChange 事件 , 在 该 事件 过 程 中 编写 
代码 ， 当 发 生 该 事件 时 就 执行 该 事件 过 程 中 的 代码 。 该 事件 过 程 的 结构 如 下 : 

Private Sub Worksheet SelectionChange (ByVal Target As Range) 


事件 执行 代码 
End Sub 


该 事件 过 程 中 的 参数 Target 为 新 获得 焦点 的 单元 格 引用 。 
例如 ， 在 工作 表 Sheetl 的 SelectionChange 事件 中 编写 以 下 代码 : 


Private Sub Worksheet SelectionChange (ByVal Target Rs Range) 
Dim i As Integer 
On Error Resume Next 
i = Target.Interior.ColorIndex 
If i < 0 Then 


i=36 
Else 
et 
End If 


If iColor = Target .Font.ColorIndex Then ' 避 免 字体 颜色 与 突出 色相 同 


Cells.Interior.ColorIndex = xlColorIndexNone 

Rows (Target .Row) .Interior.ColorIndex = i 

Columns (Target .Column) .Interior.ColorIndex = i 
End sub 


在 SelectionChange 事件 过 程 中 编写 好 以 上 代码 后 ， 在 工作 表 Sheetl 中 选择 某 一 个 单 
元 格 后 ， 该 单元 格 所 在 行 和 列 都 将 以 不 同 的 底 色 显 示 ， 以 突出 单元 格 的 位 置 。 

通过 Range 对 象 的 Interior 属性 返回 一 个 Interior 对 象 ， 该 对 象 代表 指定 对 象 的 内 部 。 
用 该 对 象 的 属性 ColorIndex 来 设置 对 象 的 内 部 颜色 。 颜 色 可 指定 为 当前 调 色 板 中 颜色 的 索 
引 值 ， 也 可 设置 为 以 下 两 个 常量 之 一 

口 xlColorIndexAutomatic: 自动 配色 。 

口 xlColorIndexNone: 无 色 。 
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在 Excel 应 用 程序 设计 中 , Range 对 象 是 最 常 使 用 的 对 象 之 一 。 在 操作 Excel 内 的 任何 
区 域 之 前 ， 都 需要 将 其 表示 为 一 个 Range 对 象 ， 然 后 使 用 Range 对 象 的 方法 和 属性 对 其 进 
行 操 作 。 


14.1 Range 对 象 概述 


-个 Range 对 象 代表 一 个 单元 格 、 一 行 、 一 列 或 多 个 单元 格 的 集合 ， 甚 至 可 以 是 多 个 
工作 表 上 的 一 组 单元 格 。 本 节 首 先 简单 介绍 Range 对 象 的 常用 属性 、 方 法 ， 在 本 章 后 面 几 
节 将 分 别 介绍 使 用 Range 对 象 操作 Excel 的 方法 。 


14.1.1 Range 对 象 的 常用 属性 


Range 对 象 提供 了 丰富 的 属性 ， 可 以 方便 地 用 VBA 代码 从 单元 格 获取 或 设置 值 。 
Range 对 象 的 常用 属性 包括 如 下 几 种。 
口 Address 属性 : 返回 一 个 Range 对 象 的 引用 地 址 。 
口 Borders 属性 : 返回 一 个 Borders 集合 ， 它 代表 样式 或 单元 格 区 域 ( 包 括 定义 为 条 
件 格式 一 部 分 的 区 域 》 的 边框 。 
口 Characters 属性 : 返回 Characters 对 象 ， 它 代表 对 象 文本 内 某 个 区 域 的 字符 。 使 用 
Characters 对 象 可 为 文本 字符 串 内 的 字符 设置 格式 。 
口 ColumnWidth 属性 : 返回 或 设置 指定 区 域 中 所 有 列 的 列 宽 。 一 个 列 宽 单 位 等 于 党 
规 样式 中 一 个 字符 的 宽度 。 对 于 比例 字体 , 则 使 用 字符 0 ( 零 ) 的 宽度 。 使 用 Width 
属性 可 返回 以 磅 为 单位 的 列 宽 。 
口 CurrentRegion 属性 : 返回 一 个 Range 对 象 ， 该 对 象 表示 当前 区 域 。 当 前 区 域 是 以 
室 行 与 空 列 的 组 合 为 边界 的 区 域 。 
口 End 属性 : 返回 一 个 Range 对 象 ， 该 对 象 代表 包含 源 区 域 的 区 域 尾 端的 单元 格 。 
等 同 于 按键 Ctrl+ f 、Ctl+ 上 、Ctl+ 一 或 Ctl+ 一 。 
Font 属性 : 返回 一 个 Font 对 象 ， 它 代表 指定 对 象 的 字体 。 
Formula 属性 : 返回 或 设置 单元 格 的 公式 。 
Height 属性 : 返回 或 设置 单元 格 的 高 度 〈 以 磅 为 单位 ) 。 
NumberFormat 属性 : 返回 或 设置 单元 格 的 格式 代码 。 


OOOO 


口 


口 
口 
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Text 属性 : 返回 或 设置 单元 格 中 显示 的 文本 。 与 Value 属性 不 同 ， 该 属性 返回 的 
是 单元 格 中 显示 出 来 的 内 容 。 而 Value 属性 返回 的 是 单元 格 保存 的 值 。 

Value 属性 : 返回 指定 单元 格 的 值 。 

Width 属性 : 返回 单元 格 区 域 的 宽度 〈 以 磅 为 单位 ) 。 


14.1.2 Range 对 象 的 常用 方法 


Range 对 象 提 供 了 很 多 方法 , 可 以 方便 地 用 VBA 代码 控制 单元 格 。 下面 列 出 常用 方法 
及 其 用 法 。 


OOOOoOoOOOOOO 


Oo 


OOo 


在 
方法 对 
口 
口 
口 


Activate 方法 激活 单个 单元 格 ， 该 单元 格 必须 处 于 当前 选 定 区 域内 。 
AddComment 方法 : 为 区 域 添加 批注 。 

AnutoFit 方法 : 更 改 区 域 中 的 列 宽 或 行 高 以 达到 最 佳 匹 配 。 

Clear 方法 : 清除 Range 对 象 中 的 内 容 。 

ClearComments 方法 : 清除 指定 区 域 的 所 有 单元 格 批注 。 

ClearContents 方法 : 清除 区 域 中 的 公式 。 

ClearFormats 方法 : 清除 对 象 的 格式 设置 。 

Copy 方法 : 将 单元 格 区 域 复制 到 指定 的 区 域 或 剪贴 板 中 。 

Cnut 方法 : 将 对 象 剪 切 到 剪贴 板 ， 或 者 将 其 粘贴 到 指定 的 目的 地 。 

Delete 方法 : 删除 指定 的 Range 对 象 。 通过 参数 为 xlShiftToLeft (单元 格 向 左 移动 ) 
或 xlShiftUp《〈 单 元 格 向 上 移动 ) 指定 如 何 调整 单元 格 以 替换 删除 的 单元 格 。 

Find 方法 : 在 区 域 中 查找 特定 信息 。 

Insert 方法 : 在 工作 表 或 宏 表 中 插入 一 个 单元 格 或 单元 格 区 域 ， 其 他 单元 格 相应 移 
位 以 腾 出 空间 。 

Merge 方法 : 由 指定 的 Range 对 象 创建 合并 单元 格 。 

Select 方法 : 选择 单元 格 对 象 。 

UnMerge 方法 : 将 合并 区 域 分 解 为 独立 的 单元 格 。 


14.2 引用 Range 对 象 


Excel 中 使 用 VBA 编程 时 , 需要 频繁 地 引用 单元 格 区 域 , 然后 再 使 用 相应 的 属性 和 
区 域 进行 操作 。 单 元 格 区 域 包 括 以 下 几 种 情况 。 

单个 的 单元 格 ; 

多 个 单元 格 〈 连 续 或 非 连续 ) 组 成 的 区 域 ; 

整 行 或 整 列 等 。 


要 用 VBA 代码 控制 Range 对 象 ， 必 须 首先 获取 Range 对 象 的 引用 。 在 VBA 中 ,可 通 
过 多 种 方式 获取 Range 对 象 的 引用 ， 本 节 介 绍 引 用 Range 对 象 的 常用 方法 。 
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14.2.1 使 用 A1 样式 引用 单元 格 


使 用 Al 样式 引用 单元 格 是 Excel 中 最 常用 的 方法 。 

通过 工作 表 (Worksheet) 对 象 或 Range 对 象 的 Range 属性 返回 一 个 Range 对 象 ， 它 代 
表 一 个 单元 格 或 单元 格 区 域 。Range 属性 返回 一 个 单元 格 或 单元 格 区 域 ， 对 区 域 的 引用 如 
果 使 用 Al 样式 ， 需 将 引用 字符 串 包含 在 引号 中 。 另 外 还 可 以 使 用 以 下 方式 引用 单元 格 : 

[D5] : 引用 单元 格 “D5”; 

ActiveCel1: 当前 单元 格 。 


常见 的 表示 方法 如 下 : 


Worksheets ("sheet1l ") .Range ("A1") 

Worksheets ("sheet1l ") .Range("R1:B5") 

Worksheets ("sheet1 ") .Range("C5:D9,G9:H16,B14:D18") 
Range ("MyRange, YourRange, HisRange") 


其 中 MyRange，YourRange，HisRange 为 单元 格 区 域名 称 。 
14.2.2 ”使 用 索引 号 引用 单元 格 


Excel 的 工作 表 是 一 个 二 维 结构 ， 由 行 和 列 构成 。 通 过 使 用 行列 索引 号 ， 可 用 Cells 属 
性 引用 单个 单元 格 。 该 属性 返回 代表 单个 单元 格 的 Range 对 象 。 例 如 ，Cells(6,1) 返 回 对 工 
作 表 中 单元 格 A6 的 引用 。 

使 用 Cells 属性 引用 单元 格 时 ， 因 为 可 用 变量 替代 行列 索引 号 ， 所 以 Cells 属性 非常 适 
合 于 在 单元 格 区 域 中 循环 。 

另外 ， 使 用 Cells 属性 还 可 按 以 下 方式 引用 单元 格 区 域 : 

cells(5，"D"): 表示 第 5 行 D 列 ( 即 单元 格 “D5”) 


如 果 使 用 Cells 属性 时 不 指定 行列 索引 号 ， 该 方法 将 返回 代表 工作 表 上 所 有 单元 格 的 
Range 对 象 。 例 如 ， 以 下 代码 将 清除 活动 工作 敌 中 Sheetl 上 的 所 有 单元 格 的 内 容 。 


Worksheets("Sheet1") .Cells.ClearContents 


例如 ， 以 下 代码 将 在 当前 工作 表 的 单元 格 区 域 Al:E10 中 ， 按 顺序 在 单元 格 中 填充 
序号 。 


Sub 单元 格 序号 () 
Dim i As Long, j As Long 
For 4 = 1 To 10 
Bor J 二 二 TD SS 
cells(i，j).value= (i - 1) * 5 + 了 
Next 
Next 
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End Sub 


运行 以 上 代码 ， 当 前 工作 表 各 单元 格 的 序号 如 图 14-1 所 示 。 


国 使 用 Range 对 象 xls Ci 


图 14-1 单元 格 序号 
还 可 以 使 用 以 下 表示 方法 来 引用 Range 对 象 : 


Worksheets ("sheet1 ") .Cells(1,1) ' 第 1 行 第 1 列 ( 即 Al 单元 格 ) 
Range (Cells(1, 1), Cells(5, 3)) 'Al:C5 单元 格 区 域 
Worksheets ("sheet1l ") .Cells "工作 表 sheet1 的 所 有 单元 格 


14.2.3 ” 偏 移 引 用 单元 格 


使 用 Range 对 象 的 Offset 属性 返回 一 个 Range 对 象 ， 它 代表 位 于 指定 单元 格 区 域 的 一 
定 的 偏 移 量 位 置 上 的 区 域 。 其 使 用 格式 为 : 

Offset (RowOffset, ColumnOoffset) 

两 个 参数 的 含义 如 下 : 

口 RowOffset 为 行 偏 移 量 ， 区 域 偏 移 的 行 数 可 为 正 数 、 负 数 或 0( 零 ) 。 正 数 表示 向 
下 偏 移 ， 负 数 表示 向 上 偏 移 。 默 认 值 是 0。 

口 ColumnOffset 为 列 偏 移 量 ， 区 域 偏 移 的 列 数 可 为 正 数 、 负 数 或 0 ( 零 ) 。 正 数 表示 
向 右 偏 移 ， 负 数 表示 向 左 偏 移 。 默 认 值 是 0。 

例如 ， 以 下 代码 返回 从 指定 单元 格 偏 移 一 定位 置 的 Range 对 象 。 


Range ("D3") .Offset (, -1) 表示 单元 格 C3 

Range ("A1") .Offset (2, 2) 表示 单元 格 C3 

ActiveCell .Offset (rowOffset:=3, columnOffset:=3) .Activate 当前 单元 格 向 右 3 
列 向 下 3 行 


14.2.4 引用 行 或 列 


在 VBA 代码 中 , 可 以 使 用 多 种 方法 引用 工作 表 中 的 整 行 或 整 列 。 在 使 用 Al 样式 引用 
Range 对 象 时 ， 只 指定 行 号 或 列 标 即 可 引用 行 或 列 。 以 下 的 代码 即 可 分 别 引用 列 或 行 : 
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Range ("A:C") .Select 表示 选择 AA 列 至 C 列 
Range ("1:1") .Select 表示 选择 第 1 行 

Range ("1:3") .Select 表示 选择 第 1 行 至 第 3 行 
Range ("A:A") .Select 表示 选择 A 列 


另外 ， 对 指定 的 Range 对 象 ， 使 用 以 下 两 个 属性 也 可 分 别 引 用 列 或 行 。 
口 EntireColumn 属性 : 返回 一 个 Range 对 象 ， 该 对 象 表 示 包 含 指定 区 域 的 整 列 (或 


多 列 )。 
口 EntireRow 属性 : 返回 一 个 Range 对 象 ， 该 对 象 表示 包含 指定 区 域 的 整 行 〈 或 
多 行 )。 


例如 ， 以 下 代码 将 引用 指定 的 列 或 行 。 


Range ("A3") .EntireColumm 表示 CcC 列 
Range ("A3") .EntireRow 表示 第 1 列 


14.2.5 ”查找 数据 区 域 边界 


在 Excel 中 ， 按 组 合 键 Ctrl+ 光 标 键 可 在 数据 区 域 中 查找 到 数据 区 域 的 边界 。 在 VBA 
中 可 通过 使 用 Range 对 象 的 End 属性 来 进行 相同 的 操作 。 

使 用 Range 对 象 的 End 属性 将 返回 一 个 Range 对 象 , 该 对 象 代 表 包 含 源 区 域 的 区 域 尾 
端的 单元 格 。 其 语法 格式 如 下 : 

表达 式 .End (Direction) 

参数 Direction 指定 移动 的 方向 ， 可 为 以 下 常量 之 一 

口 xlIDown: 向 下 移动 ; 

口 xlToLeft 向 左 移动 ; 

口 xlToRight: 向 右 移动 ; 

口 xlUp: 向 上 移动 。 

例如 ， 下 面 的 代码 选 定 指定 单元 格 数据 区 域 边缘 的 单元 格 。 


Range ("B4") .End(xlUp) .Select ， 单元 格 B4 中 B 列 顶端 单元 格 


Range ("C5") .End (xlUp) .Select ， 单元 格 c5 中 c 列 项 端 单元 格 
Range ("C5") .End(xlToRight) .Select ， 单元 格 C5 中 第 5 行 尾 端 单元 格 
Range ("C5") .End (xlToLeft) .Select ， 单元 格 cs 中 第 5 行 左 侧 单元 格 
Range ("C5") .End (xlDown) .Select ， 单元 格 c5 中 c 列 底 端 单元 格 


使 用 Range 对 象 的 End 属性 ， 在 VBA 中 可 进行 很 多 选择 区 域 的 设置 。 例 如 ， 以 下 代 
码 可 选择 指定 行 中 连续 的 数据 区 域 。 
Sub 选择 连续 数据 区 域 () 
Dim rngl Rs Range 
Dim i Rs Long ，col As Long 
i = Application.InputBox (prompt :=" 请 输入 要 选择 数据 的 行 : "， Type:=1) 
col = Range("A" & ii) .End (xlToRight) .Column 


.246 


第 14 章 使 用 Range 对 象 


Set rngl = Range(Cells(i, 1), Cells(i, col)) 
rng1l.Select 
Set rngl = Nothing 

End Sub 


以 上 代码 要 求 用 户 输入 需要 选中 数据 的 行 数 ， 再 使 用 End 属性 找到 该 列 数据 区 域 的 右 
侧 单 元 格 ， 最 后 选中 连续 的 数据 区 域 。 

以 上 代码 中 ， 设 置 Application 对 象 的 InputBox 方法 的 Type 参数 为 1， 表 示 接 收 用 户 
输入 的 数据 为 数值 型 。 

代码 Range("A" & i) End(xlToRighb.Column 获取 最 右 侧 的 列 数 。 


14.2.6 引用 当前 区 域 


所 谓 当前 区 域 ， 是 指 以 空 行 与 空 列 的 组 合 为 边界 的 区 域 ( 即 如 果 工 作 表 中 数据 区 域 中 
有 一 个 空 行 或 空 列 ， 则 将 为 两 个 区 域 )。 

使 用 Range 对 象 的 CurrentRegion 属性 ， 可 返回 一 个 表示 当前 区 域 的 Range 对 象 。 其 
语法 格式 如 下 : 

表达 式 .CurrentRegion 

该 属性 对 于 许多 自动 展开 选择 区 域 ， 以 包括 整个 当前 区 域 的 操作 很 有 用 。 
全 注意 ; 该 属性 不 能 用 于 被 保护 的 工作 表 。 


例如 ， 以 下 代码 获取 一 个 单元 格 的 引用 ， 再 以 该 单元 格 为 基础 ， 使 用 CurrentRegion 
属性 取得 该 单元 格 所 在 的 当前 区 域 。 

Dim rngl As Range 

Set rngl = Range ("Al") 

Set rngl = rngl.CurrentRegion 


14.2.7 ”获取 已 使 用 区 域 


如 果 想 知道 当前 工作 表 中 所 有 已 使 用 的 单元 格 区 域 的 大 小 ， 或 者 想 引 用 当前 工作 表 中 
已 使 用 的 区 域 ， 可 以 使 用 Worksheet 对 象 的 UsedRange 属性 。 

UsedRange 属性 返回 指定 工作 表 中 已 使 用 区 域 的 Range 对 象 ， 即 返回 工作 表 中 已 使 用 
的 单元 格 区 域 。 因 此 ， 该 属性 也 可 以 用 于 选取 单元 格 区 域 。 


口 UsedRange 属性 是 Worksheet 对 象 的 一 个 属性 , 返回 的 是 指定 工作 表 中 所 有 已 使 用 
的 单元 格 区 域 ， 无 论 各 单元 格 之 间 是 和 否 有 空 行 或 空 列 隔 开 。 

口 CurrentRegion 属性 是 Range 对 象 的 一 个 属性 ， 返 回 的 是 一 个 由 空 行 空 列 围 起 来 的 
区 域 ， 空 行 空 列 之 外 的 单元 格 不 被 包含 在 内 。 

例如 ， 在 如 图 14-2 所 示 的 工作 表 数 据 中 ， 第 6 行为 空 。 
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图 使 用 Range 对 象 xls 
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图 14-2 工作 表 数 据 
使 用 以 下 代码 选中 活动 工作 表 中 的 使 用 区 域 A1:E10。 
ActiveSheet .UsedRange.Select 


而 使 用 以 下 语句 选中 的 区 域 为 “A1:E5”， 因 为 第 6 行为 空 行 ， 所 以 后 面 的 单元 格 将 
不 被 包含 在 内 。 


Range ("A1") .CurrentRegion.Select 


14.2.8 ”获取 重合 区 域 引 用 


使 用 Application 对 象 的 Intersect 方法 ， 可 以 返回 一 个 Range 对 象 ， 该 对 象 包含 两 个 或 
多 个 区 域 重 冯 的 矩形 区 域 。 其 语法 格式 如 下 : 
表达 式 . Intersect (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, 


Argll1, Argl12, Argl13, Argl4, Argl15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, 
Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) 


全 提示 : 使 用 Intersect 方法 时 ， 至 少 需要 2 个 Range 区 域 ， 最 多 30 个 Range 区 域 进行 交 
又 计算 。 
例如 ， 以 下 代码 将 返回 两 个 单元 格 区 域 的 重 仅 区 域 ; 
Sub 重合 区 域 () 
Dim rngl As Range, rng2 As Range, rng3 Rs Range 


Set rng2 = Range("Al:E10") 
Set rng3 = Range ("C1:C10") 


Set rngl = Application.Intersect (rng2, rng3) 
MsgBox rngl.Address 
End Sub 


使 用 Application 对 象 的 Intersect 方法 时 ， 如 果 多 个 区 域 没 有 重合 的 部 分 ， 则 将 返回 
Nothing。 在 VBA 程序 中 可 使 用 判断 语句 对 其 进行 判断 ， 以 免 引 用 单元 格 时 出 错 。 
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14.2.9 获取 合并 区 域 引 用 


使 用 Application 对 象 的 Union 方法 可 将 多 个 单元 格 区 域 组 合 到 一 个 Range 对 象 中 。 
Application.Union 方法 的 语法 格式 如 下 : 

表达 式 .Union (Arg1l, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, 

Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, 

Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) 

使 用 Union 方法 时 至 少 需要 2 个 单元 格 区 域 ， 但 最 多 可 合并 30 个 单元 格 区 域 。 例 如 : 

Union (Range ("A1:C3"), Range("E1:F5")) 

以 上 语句 与 下 面 的 代码 引用 相同 的 单元 格 区 域 : 

Range ("A1:C3, El:F5 ") 


将 Range 对 象 的 End 属性 和 Union 方法 结合 使 用 , 可 选择 工作 表 中 的 不 连续 数据 区 域 。 
例如 ， 以 下 代码 将 选择 A 列 和 EE 列 中 的 所 有 数据 单元 格 : 


Sub 选择 不 连续 数据 区 域 () 
Dim rngl As Range, rng2 Rs Range 
Set rngl = Range("R1"，Range("R1") .End(xlDown) ) 
Set rng2 = Range("E1"，Range("E1") .End(xlDown) ) 
Union(rngl, rng2) .Select 
Set rngl = Nothing 
Set rng2 = Nothing 

End Sub 


以 上 代码 使 用 End 属性 选择 同一 行 含有 数据 的 区 域 ， 再 使 用 Union 方法 将 多 个 区 域 合 
并 在 一 起 。 


14.2.10 ”获取 指定 类 型 的 单元 格 


在 Excel 工作 表 中 ， 使 用 条 件 格 式 可 以 帮助 用 户 直观 地 查看 和 分 析 数 据 、 发 现 关 键 问 
题 以 及 识别 模式 和 趋势 。 

在 VBA 中 ,使 用 Range 对 象 的 SpecialCells 方法 可 返回 一 个 Range 对 象 ， 该 对 象 代表 
与 指定 类 型 和 值 匹配 的 所 有 单元 格 。 该 方法 的 语法 格式 如 下 : 

表达 式 .Specialcells (Type, Value) 

参数 Type 为 一 个 常量 ， 指 定 要 包含 的 单元 格 ， 常 用 的 常量 包括 如 下 几 种 。 

口 xlCellTypeAllFormatConditions: 含有 条 件 格式 的 单元 格 。 

口 xlCellTypeAllValidation: 含有 验证 条 件 的 单元 格 。 
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xlCellTypeBlanks: 空 单元 格 。 

xlCellTypeComments: 含有 注释 的 单元 格 。 
xlCellTypeConstants: 含有 常量 的 单元 格 。 
xlCellTypeFormulas: 含有 公式 的 单元 格 。 
xlCellTypeLastCell: 己 用 区 域 中 的 最 后 一 个 单元 格 。 
xlCellTypeSameFormatConditions: 含有 相同 格式 的 单元 格 。 
xlCellTypeSameValidation: 含有 相同 验证 条 件 的 单元 格 。 
xlCellTypeVisible: 所 有 可 见 的 单元 格 。 


参数 Value 可 省 略 。 如 果 参 数 Type 为 x1CellTypeConstants 或 xlCellTypeFormulas， 则 
该 参数 可 用 于 确定 结果 中 应 包含 哪 几 类 单元 格 。 将 这 些 值 相 加 可 使 此 方法 返回 多 种 类 型 的 
单元 格 。 默 认 情 况 下 ,将 选择 所 有 常量 或 公式 ,无论 类 型 如 何 。 该 参数 可 为 下 述 的 常量 值 。 


口 
口 
口 
口 


xlErrors: 错误 值 ; 
xlLogical: 逻辑 值 ; 
xlNumbers: 数值 ; 
xlTextValues: 文本 。 


例如 ， 以 下 代码 选 定 工作 表 Sheetl 中 已 用 区 域 的 最 后 一 个 单元 格 : 
Sheet1.Cells.SpecialCells (xlCellTYypeLastCel1) .Rctivate 
以 下 代码 选择 工作 表 Sheetl 中 设置 了 条 件 格式 的 单元 格 : 
Sheet1.Cells.SpecialCells (xlCellTypeAllFormatConditions) 
使 用 以 下 代码 ， 可 选中 不 含 公式 的 单元 格 : 

Sub 不 含 公式 的 单元 格 () 


Dim rng As Range, rngl As Range, rng2 Rs Range 
Set rng = ActiveSheet .UsedRange ' 当 前 使 用 单元 格 区 域 
rng.SpecialCells (xlCellTypeFormulas) .Select ' 选 择 公 式 单元 格 
For Each rngl In rng 
IE Application.Intersect (rngl, Selection) Is Nothing Then 


"单元 格 在 公式 区 域 
IE rng2 Is Nothing Then 
Set rng2 = rngl 
Else 
Set rng2 = Union(rng2，rng1) ' 合 并 区 域 
End If 
End If 
Next 
rng2.Select ' 选 择 区 域 
End Sub 


以 上 代码 首先 获取 当前 工作 表 的 使 用 区 域 ， 接 着 选中 含有 公式 的 单元 格 区 域 ， 再 通过 
循环 将 每 个 单元 格 与 选中 的 公式 单元 格 区 域 进行 交集 运算 ， 判 断 指定 的 单元 格 是 否 在 公式 
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单元 格 选集 中 , 若 不 在 公式 单元 格 选集 中 , 则 将 其 进行 合并 。 最 后 选中 合并 的 单元 格 区 域 。 
14.2.11 引用 合并 区 域 的 子 区 域 


当 在 Excel 中 选中 多 个 单元 格 区 域 时 ， 某 些 操 作 不 能 在 选 定 区 域内 的 多 个 子 区 域 上 同 
时 执行 ， 必 须 在 选 定 区 域内 的 单个 子 区 域 上 循环 ， 对 每 个 单独 的 子 区 域 分 别 执行 该 操作 。 
在 Excel 中 , 选 定 多 个 区 域 后 将 生成 Areas 集合 ，Areas 集合 内 的 各 个 成 员 是 Range 对 
象 。 在 Areas 集合 中 ， 选 定 区 域内 每 个 离散 的 连续 单元 格 区 域 都 有 一 个 Range 对 象 。 如 果 
选 定 区 域内 只 有 一 个 子 区 域 ， 则 Areas 集合 包含 一 个 与 该 选 定 区 域 对 应 的 Range 对 象 。 
例如 ， 以 下 代码 演示 了 引用 子 区 域 的 方法 : 


Sub 引用 子 区 域 () 
Dim rngl As Range 
Dim rng2 As Range 
Set rngl = Range("Al:C3, El:F5, A8:C9") 
rngl.Select 
For i = 1 To rngl.Areas.Count 
Set rng2 = rngl.Areas (i) 
strl = " 子 区 域 " & i & vbcr & vbcr 
strl = strl & " 行 数 : " & rng2.Rows.Count & vbcr 
strl = strl & " 列 数 : " & rng2.Columns.Count 
MsgBox strl 
Next 
Set rngl = Nothing 
Set rng2 = Nothing 
End Sub 


以 上 代码 的 Areas 集合 包括 3 个 子 区 域 ， 通 过 循环 分 别 显 示 每 个 子 区 域 所 点 的 行 数 和 
列 数 。 执 行 的 结果 如 图 14-3 所 示 。 


加 使 用 Range 对 象 xls Ca 


图 14-3 引用 合并 区 域 的 子 区 域 


14.2.12 引用 区 域内 的 单个 单元 格 


要 获取 选中 区 域 中 的 某 个 单元 格 的 值 ， 可 以 使 用 Range 对 象 的 Item 属性 来 访问 。Item 
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属性 返回 一 个 Range 对 象 ， 它 代表 对 指定 区 域 某 一 偏 移 量 处 的 区 域 。 其 语法 格式 如 下 : 


表达 式 .Item(RowIndex， ColumnIndex) 


各 参数 的 含义 如 下 : 
口 RowIndex 是 必 选 的 , 表示 要 访问 的 单元 格 的 索引 号 ， 


顺序 为 从 左 到 右 , 然后 往 下 。 


口 ColumnIndex 可 省 略 , 用 来 指明 要 访问 的 单元 格 所 在 的 列 号 的 数字 或 字符 串 , 用 数 


字 1 或 字符 “A” 表示 区 域 中 的 第 1 列 。 
例如 : 


Range ("Al:E10") .Item(4,3) 


表示 单元 格 C4， 这 个 单元 格 处 于 以 指定 区 域 中 左上 角 单 


元 格 Al ( 即 区 域 中 第 1 行 第 


1 列 的 单元 格 ) 为 起 点 的 第 4 行 第 3 列 。 因 为 Item 属性 为 默认 属性 ， 因 此 也 可 以 简写 为 : 


Range ("Al:E10") (4,3) 


当 省 略 ColumnIndex 参数 时 ， 计 数 方式 为 从 左 向 右 ， 即 在 区 域 中 的 第 1 行 开始 从 左 向 
右 计 数 ， 第 1 行 结束 后 ， 从 第 二 行 开始 从 左 到 右 接 着 计数 ， 依 此 类 推 。 例 如 : 


Range ("Al:B2") (1) ”代表 单元 格 Al 
Range ("Al:B2") (2) ”代表 单元 格 B1 
Range ("Al:B2") (3) ”代表 单元 格 A2 
Range ("Al:B2") (4) ”代表 单元 格 B2 


全 技巧 : Item 属性 的 值 即 可 为 正 数 ， 也 可 为 负数 。 其 序号 值 指定 的 单元 格 不 一 定 包含 在 引 


用 的 区 域内 。 


14.2.13 ”扩展 单元 格 区 域 


使 用 Range 对 象 的 Resize 属性 ， 可 以 调整 指定 单元 格 区 域 的 大 小 ， 并 返回 一 个 Range 


对 象 ， 该 对 象 代表 调整 后 的 区 域 。 其 语法 格式 如 下 : 
表达 式 .Resize (RowSize，Columnsize) 
其 两 个 参数 的 含义 如 下 : 
口 RowSize 为 新 区 域 中 的 行 数 。 如 果 省 略 该 参数 ， 则 该 


区 域 中 的 行 数 保持 不 变 。 


口 ColumnSize 为 新 区 域 中 的 列 数 。 如 果 省 略 该 参数 ， 则 该 区 域 中 的 列 数 保持 不 变 。 
例如 ， 下 列 代码 将 激活 Sheetl 工作 表 活 动 单元 格 向 右 偏 移 3 列 、 向 下 偏 移 3 行 处 的 单 


元 格 。 
Worksheets ("Sheet1") .Activate 
ActiveCell .Offset (rowOffset:=3, columnOffset:=3) 
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14.3 ”获取 单元 格 信息 


通过 不 同 的 方式 获取 对 Excel 工作 表单 元 格 区 域 的 引用 后 , 在 VBA 中 引用 这 些 对 象 即 
可 获取 单元 格 区 域 的 各 种 信息 。 


14.3.1 获取 单元 格 地 址 


使 用 Range 对 象 的 Address 属性 可 返回 代表 宏 语 言 的 区 域 引用 。 其 语法 格式 如 下 : 


表达 式 .Address (RowAbsolute, ColumnAbsolute, Referencestyle, External, 
RelativeTo) 


其 中 的 各 参数 都 可 省 略 ， 各 参数 的 含义 分 别 如 下 所 述 。 

口 RowAbsolute: 如 果 为 True， 则 以 绝对 引用 返回 引用 的 行 部 分 。 默 认 值 为 True。 

口 ColumnAbsolute: 如 果 为 True， 则 以 绝对 引用 返回 引用 的 列 部 分 。 默 认 值 为 True。 

口 ReferenceStyle: 设置 为 常量 xlAl 返回 Al 样式 的 引用 ， 常 量 xIR1ICI1 返回 RIC1 
样式 的 引用 。 

口 Extemal: 如 果 为 True， 则 返回 外 部 引用 。 如 果 为 False， 则 返回 本 地 引用 。 默 认 
值 为 False。 

口 RelativeTo: 如 果 RowAbsolute 和 ColumnAbsolute 为 False， 并 且 ReferenceStyle 
为 XIRIC1， 则 必须 包括 相对 引用 的 起 始点 。 此 参数 是 定义 起 始点 的 Range 对 象 。 

如 果 引 用 包含 多 个 单元 格 ，RowAbsolute 和 ColumnAbsolute 将 应 用 于 所 有 的 行 和 列 。 

例如 ， 以 下 代码 将 返回 活动 单元 格 各 地 址 的 表示 形式 : 


Sub 当前 单元 格 地 址 () 
Dim rngl As Range 
Dim strl As String, strTitle Rs String 
Set rngl = ActiveCell 
strTitle = "当前 单元 格 地 址 " 
strl = "绝对 地 址 : " & rng1l.Address & vbcrLf 
strl = strl & " 行 的 绝对 地 址 : " & rng1.Rddress (RowAbsolute:=False) & vbCrLf 
strl = strl & " 列 的 绝对 地 址 : " & rng1.RAddress (ColumnRbsolute:=False) & 
VbCrLf 
strl = strl & "以 R1C1 形式 显示 : " & rng1l.Address (ReferenceStyle:=xlR1C1) 
& vbCrLf 
strl = strl & "相对 地 址 : " & rngl.Address (False, False) 
MsgBox prompt:=strl, Title:=strTitle 
End Sub 


在 Excel 工作 表 中 选择 单元 格 Al。 执 行 以 上 代码 ， 将 显示 如 图 14-4 所 示 的 对 话 框 ， 
在 该 对 话 框 中 将 显示 单元 格 地 址 的 各 种 表示 形式 。 
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当前 单元 格 地 址 。 [区] 


图 14-4 【当前 单元 格 地 址 】 对 话 框 


14.3.2 ”获取 区 域 信息 


在 Excel 工作 表 中 ， 当 选择 区 域 后 ， 可 使 用 Range 对 象 的 多 个 属性 值 来 获取 区 域 中 的 
相应 信息 , 例如 ,获取 区 域 的 单元 格 数量 、 行 数 、 列 数 等 。 可 使 用 以 下 属性 来 获得 这 些 信息 。 
ActiveCell 对 象 : 代表 活动 窗口 (当前 工作 表 〉 的 活动 单元 格 。 

Rows 属性 : 代表 指定 单元 格 区 域 中 的 行 ， 通 过 其 Count 属性 可 取得 行 的 数量 。 
Columns 属性 : 代表 指定 单元 格 区 域 中 的 列 ， 通 过 其 Count 属性 可 取得 列 的 数量 。 
ListHeaderRows 属性 : 代表 指定 区 域 的 标题 行 数 。 

Cells 属性 : 代表 指定 单元 格 区 域 中 的 单元 格 ， 通 过 其 Count 属性 取得 单元 格 的 


口 


口 
口 
口 
口 


数量 。 


例如 ， 以 下 代码 将 显示 当前 区 域 的 相关 信息 : 


Sub 当前 区 域 信息 () 
Dim rngl As Range, strl As String 
Set ngl = ActiveCell .CurrentRegion 


strl = 
StL1 = 
strl = 
StL1 = 
strl = 
MsgBox 


"当前 区 域 信息 : " & vbNewLine 

strl & "单元 格 数 量 : " & rngl.Cells.Count & vbNewLine 
strl & " 行 数 : " & rng1.Rows .Count & vbNewLine 

strl & " 列 数 : " & rng1l.Columns.Count & vbNewLine 
strl & " 表 头 行 数 : " & rng1.ListHeaderRows 
str1，vboKon1y，" 当 前 区 域 信息 " 


Set rngl = Nothing 
End Sub 


执行 以 上 代码 ， 将 显示 如 图 14-5 所 示 的 信息 。 


当前 区 坛 信息 区] 


14.3.3 ”统计 区 域 中 公式 数量 


图 14-5 【当前 区 域 信息 】 对 话 框 


使 用 Range 对 象 的 HasFormula 属性 , 可 对 指定 区 域 是 否 包含 公式 进行 判断 。 如 果 区 域 
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中 所 有 单元 格 均 包含 公式 ， 则 该 属性 值 为 True; 如 果 所 有 单元 格 均 不 包含 公式 ， 则 该 属性 
值 为 False; 其 他 情况 下 为 Null。 
例如 ， 使 用 以 下 代码 可 显示 当前 区 域 公式 的 数量 : 
Sub 当前 区 域 公式 数量 () 
Dim cl1 As Range, rngl Rs Range 
Dim i As Integer 
Set rngl = ActiveCell .CurrentRegion 
For Each cl In rngl.Cells 
IE cl.HasFormula Then 
:I 
End If 
Next 
If i > 0 Then 
MsgBox "当前 单元 格 所 在 区 域 共有 " & i &" 个 公式 。" 
Else 
MsgBox "当前 单元 格 所 在 区 域 没有 公式 。" 
End If 
End Sub 


以 上 代码 使 用 For Each 循环 对 当前 区 域 的 每 个 单元 格 进行 单独 判断 ， 如 果 单 元 格 中 包 
括 有 公式 ， 则 累加 公式 计数 器 。 


14.3.4 ”追踪 公式 单元 格 


在 Excel 中 定义 公式 时 ， 使 用 了 两 个 概念 ， 即 引用 单元 格 和 从 属 单元 格 。 
口 引用 单元 格 : 是 被 其 他 单元 格 中 的 公式 引用 的 单元 格 。 例 如 ， 如 果 单 元 格 D10 包 
含 公式 “=B5”， 那 么 单元 格 B5 就 是 单元 格 D10 的 引用 单元 格 。 
口 从 属 单元 格 : 该 单元 格 中 包含 引用 其 他 单元 格 的 公式 。 例 如 ， 如 果 单 元 格 D10 包 
含 公 式 “=B5”， 那 么 单元 格 D10 就 是 单元 格 B5 的 从 属 单元 格 。 
为 了 帮助 用 户 检查 公式 ， 可 以 使 用 【追踪 引用 单元 格 】 和 【追踪 从 属 单元 格 】 命 令 以 
图 形 方式 显示 或 追踪 这 些 单元 格 与 包含 追踪 箭头 的 公式 之 间 的 关系 。 在 VBA 中 ， 可 以 使 
用 Range 对 象 的 以 下 几 个 属性 来 追踪 这 些 单元 格 。 
口 DirectPrecedents 属性 : 该 属性 返回 一 个 Range 对 象 ， 该 对 象 表示 包含 一 个 单元 格 
的 所 有 直接 引用 单元 格 的 区 域 。 如 果 有 多 个 引用 单元 格 ， 则 可 能 有 多 个 选择 〈 多 
个 Range 对 象 ) 。 
口 Precedents 属性 : 该 属性 返回 一 个 Range 对 象 ， 该 对 象 表示 公式 单元 格 的 所 有 引用 
单元 格 。 如 果 有 多 个 引用 单元 格 ， 则 可 以 是 一 个 多 重 选择 〈Range 对 象 的 并 集 ) 。 
口 ShowPrecedents 方法 : 该 方法 绘制 从 指定 区 域 指向 直接 引用 单元 格 的 追踪 箭头 。 
口 ShowDependents 方法 : 该 方法 绘制 从 指定 区 域 指向 直接 从 属 单元 格 的 追踪 箭头 。 
例如 ， 使 用 以 下 代码 可 以 显示 引用 单元 格 : 
sub 追踪 引用 单元 格 () 
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ActiveCell .ShowPrecedents 
End Sub 
而 使 用 以 下 代码 可 以 显示 从 属 单元 格 : 
Sub 追踪 从 属 单元 格 () 


ActiveCell .ShowDependents 
End Sub 


14.3.5” 按 颜色 统计 单元 格 数量 


使 用 Range 对 象 的 Interior 属性 返回 一 个 Interior 对 象 ， 该 对 象 代表 指定 对 象 的 内 部 。 
通过 Interior 对 象 的 ColorIndex 属性 可 获取 单元 格 内 部 的 颜色 。 

单元 格 内 部 颜色 可 指定 为 当前 调 色 板 中 颜色 的 索引 值 (1 一 56) ， 也 可 指定 为 下 列 
XIColorIndex 常量 之 一 。 

口 xlColorIndexAutomatic: 表示 自动 配色 ; 

口 xlColorIndexNone: 表示 无 色 。 


名 提示: 也 可 使 用 Interior 对 象 的 Color 属性 来 设置 内 部 颜色 , 该 颜色 值 由 RGB 函数 产生 。 


例如 ， 使 用 以 下 代码 可 统计 当前 工作 表 使 用 区 域 中 ， 各 填充 颜色 单元 格 的 数量 : 


Sub 按 颜色 统计 单元 格 () 
Dim rng As Range, rngl As Range 
Dim i Rs Integer，Rrr(1 to 56) Rs Integer, k Rs Integer 


Set rng = ActiveSheet .UsedRange ' 获 取 使 用 区 域 

For Each rngl In rng "循环 处 理 区 域 中 的 每 个 单元 格 
k = rngl.Interior.ColorIindex ' 获 取 填 充 色 
IE k <> xlColorIndexNone Then ' 具 有 底 色 

Arr(k) = Arr(k) + 1 "对 应 颜色 数组 中 进行 累加 

End If 

Next 

dB ' 统 计 单 元 格 显 示 的 位 置 


For k=1 To 56 
If Arr(k) <> 0 Then 
Cells(i, 1).Interior.ColorIndex = k 
Cells(i, 2) = Arr(k) 
= 主 +1 
End If 
Next 
End Sub 


以 上 代码 首先 声明 一 个 数组 ， 用 来 保存 每 种 颜色 单元 格 的 数量 ， 接 着 使 用 For Each 循 
环 对 每 个 单元 格 进行 统计 ， 在 统计 时 按 单 元 格 内 部 对 象 Interior 的 ColorIndex 值 判 断 单元 
格 内 部 颜色 。 最 后 使 用 一 个 循环 分 别 显 示 出 不 同 的 颜色 ， 并 在 单元 格 右 侧 显示 该 种 颜色 单 
元 格 的 数量 。 
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使 用 Interior 对 象 的 属性 还 可 获取 选 定 区 域 的 很 多 相关 属性 ， 例 如 下 面 的 两 个 属性 。 

口 Pattem 属性: 返回 或 设置 一 个 包含 xlPattern 常量 的 值 ， 代 表 内 部 图 案 。 

口 PattemColorIndex 属性 : 返回 或 设置 内 部 图 案 的 颜色 ， 表 示 为 当前 调 色 板 中 的 颜色 
编号 或 常量 xlColorImndexAutomatic、xlColorImndexNone 之 一 。 


144 操作 行列 


在 工作 表 的 操作 中 ， 对 行列 的 操作 是 最 常用 的 操作 之 一 ， 本 节 介绍 操作 行 和 列 方面 的 
内 容 ， 包 括 插入 行列 ) 、 隐 藏 行 ( 列 ) 、 设 置 行 高 〈 列 宽 ) 等 内 容 。 


14.4.1 插入 行 


插入 行 的 操作 可 通过 Range 对 象 的 Insert 方法 来 完成 。 

表达 式 .Insert (Shift，Copyorigin) 

Insert 方法 的 两 个 参数 都 可 以 省 略 ， 各 参数 的 含义 如 下 所 示 。 

口 Shift 指定 单元 格 的 调整 方式 ， 设 置 其 他 单元 格 相应 移 位 以 腾 出 空间 。 可 以 为 常 
量 xlShiftToRight (向 右 移动 单元 格 ) 或 xlShiftDown (向 下 移动 单元 格 ) 。 如 果 省 
略 此 参数 ，Excel 将 根据 区 域 的 形状 确定 调整 方式 。 

口 CopyOrigin: 复制 的 起 点 。 

如 果 要 插入 行 ， 首 先 通 过 工作 表 的 Rows 属性 返回 一 个 Range 对 象 ， 再 通过 Range 对 

象 的 Insert 方法 插入 单元 格 或 单元 格 区 域 。 具 体 的 代码 如 下 : 

Sub 插入 行 () 

Dim r Rs Long 
= Selection.Row 


RctiveSheet .Rows (r) .Insert 
End Sub 


以 上 代码 省 略 Insert 方法 的 参数 ， 插 入 行 后 当前 单元 格 所 在 行将 向 下 移动 。 
14.4.2 ”插入 列 

与 插入 行 类 似 ， 首 先 通 过 工作 表 的 Columns 属性 返回 一 个 Range 对 象 ， 再 通过 Range 
对 象 的 Insert 方法 插入 单元 格 或 单元 格 区 域 。 该 方法 的 语法 格式 如 下 : 

表达 式 . Insert (Shift，Copyorigin) 


Insert 方法 的 两 个 参数 都 可 以 省 略 ， 参 数 含义 如 下 所 述 。 
口 Shift 指定 单元 格 的 调整 方式 ， 设 置 其 他 单元 格 相应 移 位 以 腾 出 空间 。 可 以 为 常 
量 xlShiftToRight (向 右 移动 单元 格 ) 或 xlShiftDown (向 下 移动 单元 格 ) 。 如 果 省 
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略 此 参数 ，Excel 将 根据 区 域 的 形状 确定 调整 方式 。 
口 CopyOrigin: 复制 的 起 点 。 
例如 ， 使 用 以 下 代码 可 在 选择 的 单元 格 中 插入 一 列 : 
Sub 插入 列 () 

Dim c Rs Long 

c = Selection.Column 


RctiveSheet .Columns (c) .Insert 
End Sub 


14.4.3 ”删除 行 


使 用 Range 对 象 的 Delete 方法 可 删除 指定 的 行 。 
例如 ， 使 用 以 下 代码 可 删除 第 1 行 中 单元 格 为 空 的 行 : 
Sub 删除 空 行 () 
Dim rng As Range 
Set rng = Columns (1) .SpecialCel1ls (xlCellTypeBlanks) 


rng.EntireRow.Delete 
End sub 


以 上 代码 使 用 了 SpecialCells 方法 ， 使 用 该 方法 选择 满足 条 件 的 单元 格 ， 其 语法 格式 
如 下 : 
表达 式 .Specialcells (Type，Value) 


参数 的 含义 分 别 如 下 所 述 。 

口 Type: 设置 要 包含 的 单元 格 。 

口 Value: 如 果 Type 为 xlCellTypeConstants 或 xlCellTypeFormulas， 则 该 参数 可 用 于 
确定 结果 中 应 包含 哪 几 类 单元 格 。 将 这 些 值 相 加 可 使 此 方法 返回 多 种 类 型 的 单元 
格 。 默 认 情 况 下 ， 将 选择 所 有 常量 或 公式 ， 无 论 类 型 如 何 。 


14.4.4 隐藏 行 


设置 Rows 的 Hidden 属性 为 True， 可 隐藏 指定 的 行 。 
例如 ， 下 面 的 代码 首先 通过 工作 表 的 Rows 属性 返回 一 个 Range 对 象 ， 再 通过 Range 
对 象 的 Hidden 属性 设置 是 否 隐 藏 行 或 列 。 
Sub 隐藏 行 () 
r = ActiveCell .Row 


ws1.Rows (r) .Hidden = True 
End Sub 


县 提示 : 如 果 设置 Hidden 属性 为 False， 则 当前 行将 显示 出 来 。 
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14.4.5 ”设置 行 高 


要 设置 工作 表 中 行 的 高 度 ， 需 使 用 Range 对 象 的 RowHeight 属性 ， 该 属性 以 
返回 或 设置 指定 区 域 中 所 有 行 的 行 高 。 如 果 指 定 区 域 中 的 各 行 的 行 高 不 等 ， 则 返 


磅 为 单位 
回 Null。 


如 果 要 返回 几 行 的 RowHeight 属性 ， 可 得 到 每 一 行 的 行 高 (如 果 所 有 的 行 等 高 ) ， 或 
得 到 Null (如 果 它 们 不 等 高 ) 。 如 果 要 返回 几 行 的 Height 属性 ， 将 得 到 所 有 行 高 的 总 和 。 


例如 ， 以 下 代码 可 设置 选中 区 域 的 行 高 : 


Sub 设置 行 高 () 
Dim h As Long, r As Long, i As Integer, n As Integer 
Dim wsl Rs Worksheet 
h = Application.InputBox (prompt :=" 请 输入 所 选 行 的 高 度 : "，_ 
Title:=" 输 入 行 高 "，Type:=1) 
Set wsl = ActiveSheet 
n = Selection.Rows.Count 
r = ActiveCell.Row 
or is YTon 
Wsl.Rows(r + i - 1).RowHeight = h 
Next 
Set wsl = Nothing 
End sub 


执行 以 上 代码 ， 将 弹出 如 图 14-6 所 示 的 对 话 框 ， 输 入 行 高 值 后 单 击 【确定 】 
选中 单元 格 将 被 设置 为 指定 的 行 高。 如 果 在 Excel 工作 表 中 选中 了 多 个 单元 格 区 
选 每 行 的 高 度 都 将 设置 为 新 输入 的 高 度 。 


14-6 【输入 行 高 】 对 话 框 
名 技巧: 使 用 Range 对 象 的 AutoFit 方法 ， 可 更 改 区 域 中 的 列 宽 或 行 高 以 达到 最 佳 匹 配 。 


14.4.6 ”设置 列 宽 


与 设置 行 高 类 似 ， 设 置 列 宽 需 使 用 Range 对 象 的 ColumnWidth 属性 。 
例如 ， 以 下 代码 可 设置 选中 区 域 的 列 宽 : 
Sub 设置 列 宽 () 


Dim w Rs Long, c Rs Long, i Rs Integer, n Rs Integer 

Dim wsl Rs Worksheet 

w = Application.InputBox (prompt :=" 请 输入 所 选 列 的 宽度 : "，_ 
Title:=" 输 入 列 宽 "，Type:=1) 

If w = 0 Then Exit Sub 


按钮 ， 则 
域 ， 则 所 
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Set ws1 = RctiveSheet 
n = Selection.Columns .Count 
c = ActiveCell.Colum 
Tor Le L Ton 
wsl.Columns(c + i - 1).ColumnWidth = w 
Next 
Set wsl = Nothing 
End Sub 


全 技巧 : 使 用 Range 对 象 的 AutoFit 方法 ， 可 更 改 区 域 中 的 列 宽 或 行 高 以 达到 最 佳 匹配 。 


14.5 管理 批注 


在 Excel 中 ， 用 户 可 以 通过 插入 批注 来 对 单元 格 添加 注释 。 可 以 编辑 批注 中 的 文字 ， 
也 可 以 删除 不 再 需要 的 批注 。 


14.5.1 插入 批注 


在 Excel 界面 中 ， 选 择 【审阅 】 选 项 卡 ， 单 击 【 批 注 】 组 中 的 【新 建 批注 】 按 钮 ， 可 
为 当前 单元 格 插入 批注 ， 还 可 通过 该 组 中 的 相关 按钮 处 理 批注 。 

也 可 以 通过 VBA 代码 对 批注 进行 管理 。 在 VBA 中 , 将 每 一 个 批注 作为 一 个 Comment 
对 象 来 处 理 。 每 个 工作 表 的 Comment 对 象 组 成 一 个 Comments 集合 ， 如 果 工 作 表 中 没有 批 
注 ， 则 该 集合 就 为 空 。 

使 用 AddComment 方法 可 在 区 域内 添加 批注 。 以 下 代码 将 在 第 一 张 工 作 表 的 单元 格 
E5 中 添加 批注 。 

Sub 添加 批注 () 

With Worksheets(1) .Range ("e5") .AddComment 
.Visible = False 
.Text "批注 日 期 : " & Date 


End With 
End Sub 


Text 是 Comment 对 象 的 方法 ， 所 以 不 使 用 等 号 设置 其 批注 值 。 
全 注意 : 如 果 单 元 格 中 已 经 添加 了 批注 ,使 用 AddComment 方法 再 插入 批注 时 将 产生 错误 。 
14.5.2 ”查看 批注 


工作 表 中 的 批注 全 部 在 Comments 集合 中 ， 所 以 可 以 用 For Each 循环 将 其 逐个 显示 出 
来 。 例 如 ， 以 下 代码 显示 第 一 个 工作 表 中 各 批注 的 作者 及 批注 的 内 容 : 
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sub 查看 批注 () 


Dim cm As Comment 
Dim i As Integer, j As Integer 
i = Worksheets(1) .Comments .Count 
For Each cm In Worksheets (1) .Comments 
二 
MsgBox "第 " & j & "条 / 共 " & i & "条 批注 " & vbcrLf & _ 
"作者 :" & cm.Author & vbCrLf & "批注 内 容 :" & cm.Text 
Next 
End Sub 


执行 以 上 代码 ， 将 在 Excel 中 显示 提示 对 话 框 ， 并 在 该 对 话 框 中 显示 一 条 批注 信息 ， 
单 击 【 确 定 】 按 钮 ， 将 显示 下 一 个 批注 。 


名 提示: 执行 以 上 代码 之 前 ， 应 先 在 第 一 个 工作 表 中 插入 几 个 批注 。 


14.5.3 ”隐藏 /显示 批注 


工作 表 中 的 批注 为 Comment 对 象 ， 所 有 Comment 对 象 组 成 Comments 对 象 集合 。 通 
过 设置 该 对 象 的 Visible 属性 可 设置 或 获取 批注 对 象 的 显示 与 隐藏 。 
例如 ， 以 下 代码 可 切换 选中 单元 格 批注 的 显示 或 隐藏 状态 : 


Sub 批注 显示 状态 () 
Dim rngl As Range, rng2 As Range 
On Error Resume Next 
Set rngl = ActiveCell 
Set rng2 = ActiveSheet.Cells.SpecialCells (xlCellTypeComments) 
If rng2 Is Nothing Then Exit Sub 
IE Not Application.Intersect (rngl, rng2) Is Nothing Then 
MsgBox "显示 /隐藏 当前 单元 格 的 批注 。" 
rngl.Comment .Visible = Not (rngl.Comment.Visible) 
End If 
End sub 


以 上 代码 首先 获取 对 活动 单元 格 的 引用 ， 接 着 获取 当前 工作 表 中 具有 批注 的 单元 格 的 
引用 。 通 过 将 活动 单元 格 与 有 批注 的 单元 格 集合 进行 重 人 运算， 如 果 返 回 值 为 True， 则 表 
示 活 动 单元 格 具 有 批注 ， 然 后 再 对 Comment 对 象 的 Visible 属性 取 反 ， 即 可 在 显示 与 隐藏 
批注 之 间 进 行 切换 。 


14.5.4 删除 批注 
使 用 Comment 对 象 的 Delete 方法 可 删除 指定 批注 。 
例如 ,以 下 代码 通过 一 个 提示 对 话 框 逐 条 显示 批注 信息 , 提示 用 户 是 否 删 除 该 条 批注 : 
Sub 删除 批注 () 


Dim cm As Comment, strl As String 
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Dim i Rs Integer, j As Integer 
i = Worksheets(1) .Comments.Count 
For Each cm In Worksheets (1) .Comments 
pe 
strl = "第 " & j & "条 / 共 " & i & "条 批注 " & vbCrLf & _ 
"作者 :" & cm.Author & vbCrLf & "批注 内 容 :" & cm.Text & vbNewLine 
& vbNewLine 
strl = strl & " 单 击 【是 】 按 钮 将 删除 该 批注 ! " 
IE MsgBox(strl，vbQuestion + vbYesNo， "删除 批注 ") = vbYes Then 


cm.Delete 
End If 
Next 
End Sub 


执行 以 上 代码 ， 将 显示 如 图 14-7 所 示 的 提示 对 话 框 ， 单 击 【 是 】 按 钮 将 删除 显示 的 批 
注 ， 单 击 【 否 】 按 钮 将 显示 下 一 条 批注 信息 。 
全 技巧 : 使 用 Range 对 象 的 ClearComments 方法 ， 可 清除 指定 区 域 的 所 有 单元 格 批注 。 如 
果 选 中 全 部 单元 格 ， 则 可 以 清除 工作 表 中 的 所 有 批注 。 若 只 希望 删除 部 分 批注 ， 
则 需要 先 构造 一 个 单元 格 区 域 对 象 ， 再 调用 ClearComments 方法 来 删除 。 
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14.5.5 ”为 输入 数据 的 单元 格 添加 批注 


要 为 输入 数据 的 单元 格 添加 批注 ， 就 需要 知道 用 户 在 哪个 单元 格 中 输入 数据 。 这 时 ， 
可 使 用 Worksheet 对 象 的 Change 事件 来 捕获 工作 表 数 据 的 更 改 。 

Worksheet 对 象 的 Change 事件 发 生 在 用 户 更 改 工作 表 中 的 单元 格 或 外 部 链接 时 ， 所 引 
起 的 单元 格 的 更 改 。 其 事件 过 程 的 语法 格式 如 下 : 


Private Sub Worksheet Change (ByVal Target As Range) 


End Sub 
其 中 ， 参 数 Target 表示 被 修改 的 数据 区 域 ， 是 一 个 Range 对 象 。 通 过 该 参数 可 获取 数 
据 被 修改 的 单元 格 区 域 。 
各 注意 : 当 单元 格 在 重新 计算 过 程 中 更 改 时 ， 将 不 会 发 生 该 事件 。 使 用 Calculate 事件 可 以 
捕获 工作 表 重 新 计算 。 
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在 工作 表 Sheetl 的 Change 过 程 中 编写 以 下 VBA 代码 : 
Private Sub Worksheet Change (ByVal Target As Range) 
On Error Resume Next 
With Target 
-ClearComments 
IF .Value <> "" Then 
-AddComment "" & Now 
Else 
Exit Sub 
End If 
End With 
End Sub 


当 用 户 更 改 单 元 格 的 值 后 , 如 果 目 标 单元 格 的 值 不 为 空 , 则 为 该 单元 格 添加 一 个 批注 ， 
批注 的 内 容 为 当前 的 时 间 。 


14.5.6 ”将 原 数据 作 批注 


为 了 跟踪 用 户 对 工作 表 数 据 的 修改 ， 保 存单 元 格 原 有 的 数据 ， 可 将 单元 格 原 有 数据 作 
为 批注 保存 起 来 。 

要 将 原 有 数据 作为 批注 保存 ， 可 在 SelectionChange 事件 过 程 中 编写 代码 ,在 用 户 选择 
单元 格 时 首先 将 该 单元 格 的 值 保存 到 一 个 模块 变量 中 。 然 后 在 Change 事件 过 程 将 该 模块 
变量 的 值 作为 批注 的 内 容 即 可 。 

首先 ， 在 工作 表 Sheetl 的 声明 部 分 定义 一 个 模块 变量 old， 用 来 保存 单元 格 的 原 值 。 


Dim old 


其 次 ， 在 工作 表 Sheetl 的 SelectionChange 事件 过 程 中 编写 以 下 代码 ， 将 单元 格 中 的 
值 保存 到 模块 变量 old 中 。 


Private Sub Worksheet_SelectionCchange (ByVal Target As Range) 
old = Target.Value “' 保 存单 元 格 中 的 值 
End sub 


最 后 ， 在 工作 表 Sheetl 的 Change 事件 过 程 中 编写 以 下 代码 ， 向 单元 格 中 添加 批注 。 
具体 代码 如 下 : 


Private Sub Worksheet Change (ByVal Target As Range) 
With Target 
IE .Count > 1 Or .Value = "" Then Exit sub ' 多 个 单元 格 或 值 为 空 则 退出 
IE old <> "" Then. 
.Comment .Visible = True 
-Comment .Text Text:=.Comment.Text & vbNewLine & 


"于 " & VBA.Now & " 修改 ， 原 数据 为 ，" & old ' 在 原 批注 中 添加 内 容 


Else 
-AddComment "添加 批注 
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- Comment .Text Text := .Comment .Text & "于 " & VBA.Now & " 修改 " 


End If 
End With 
End Sub 


编写 好 以 上 代码 后 , 在 Sheetl 工作 表 的 单元 格 A3 中 输入 数据 , 每 次 输入 新 的 数据 后 ， 
原 数据 将 追加 到 批注 中 ， 如 图 14-8 所 示 。 
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图 14-8 ”添加 批注 


14.6 ”操作 单元 格 


用 户 可 对 单元 格 进行 多 种 操作 ， 例 如 ， 输 入 数据 、 删 除数 据 、 设 置 公式 、 复 制 数据 、 
合并 和 拆 分 单元 格 等 操作 。 
14.6.1 给 单元 格 设置 公式 


可 使 用 Range 对 象 的 以 下 两 个 属性 来 设置 公式 。 
口 Formula 属性 : 返回 或 设置 一 个 Variant 值 , 它 代表 Al 样式 表示 法 和 宏 语 言 中 的 对 


象 的 公式 。 
口 FormulaR1C1 属性 : 返回 或 设置 指定 对 象 的 公式 ， 该 公式 使 用 宏 语言 R1C1 格式 符 
号 表示 。 


例如 ， 以 下 代码 可 为 单元 格 Al 设置 相应 的 公式 : 


Sheet1.Range ("Al1") .Formula = "=$AS$4+$AS$10" 
Sheet1.Range ("Al1") .Formula = "=SUM(B2:D2)" 
Sheet1.Range ("Al1") .FormulaR1C1 = "=SQRT(R1C1)" 


14.6.2 ”复制 公式 


复制 单元 格 公式 的 操作 与 复制 单元 格 数据 类 似 ， 首 先 将 具有 公式 的 单元 格 复制 到 剪贴 
板 中 ， 再 使 用 PasteSpecial 方法 将 Range 从 剪贴 板 粘 贴 到 指定 的 区 域 中 。PasteSpecial 方法 
的 语法 格式 如 下 : 


表达 式 .Pastespecial (Paste, Operation, SkipBlanks, Transpose) 
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其 中 的 各 参数 都 可 省 略 ， 其 含义 分 别 如 下 所 述 。 

口 Paste: 设置 要 粘贴 的 内 容 ， 可 使 用 Excel 中 的 xlPasteType 枚 举 数据 ， 具 体内 容 如 
表 14-1 所 示 。 

口 Operation: 设置 粘贴 操作 的 方法 ， 可 使 用 xlPasteSpecialOperation 枚 举 数据 ， 有 具体 
内 容 如 表 14-2 所 示 。 

口 SkipBlanks: 该 参数 如 果 为 True， 则 不 将 剪贴 板 上 区 域 中 的 空白 单元 格 粘贴 到 目标 
区 域 中 。 默 认 值 为 False。 

口 Transpose: 该 参数 如 果 为 True， 则 在 粘贴 区 域 时 转 置 行 和 列 。 默 认 值 为 False。 


表 14-1 xlPasteType 枚 举 值 


名 称 值 描述 
xlPasteAll —4104 粘贴 全 部 内 容 
xlPasteAllExceptBorders 第 粘贴 除 边框 外 的 全 部 内 容 
xlPasteAllUsingSourceTheme 使 用 源 主题 粘贴 全 部 内 容 
xlPasteColumnWidths | s | 粘贴 复制 的 列 宽 
xlPasteComments 粘贴 批注 
xlPasteFormats 粘贴 复制 的 源 格 式 
xlPasteFormulas 粘贴 公式 
xlPasteFormulasAndNumberFormats | 11 | 粘贴 公式 和 数字 格式 
xlPasteValidation | se | 粘贴 有 效 性 
xlPasteValues 粘贴 值 
xlPasteValuesAndNumberFormats 粘贴 值 和 数字 格式 


表 14-2 xlPasteSpecialOperation 枚 举 值 


名 称 描述 
xlPasteSpecialOperationAdd | 2 ”| 复制 的 数据 与 目标 单元 格 中 的 值 相 加 
XlPasteSpecialOperationDivide 复制 的 数据 除 以 目标 单元 格 中 的 值 
xlPasteSpecialOperationMultiply | 4 | 复制 的 数据 乘 以 目标 单元 格 中 的 值 
xlPasteSpecialOperationNone 粘贴 操作 中 不 执行 任何 计算 
xlPasteSpecialOperationSubtract 复制 的 数据 减 去 目标 单元 格 中 的 值 


例如 ， 以 下 代码 将 单元 格 E2 中 的 公式 分 别 粘贴 到 下 方 的 3 个 单元 格 中 : 
Sub 复制 公式 () 


Dim i As Integer 
With Sheet1 
.Range ("E2") .Copy 
For 二 3 To 5 
-Range ("E" & i).PasteSpecial Paste:=xlPasteFormulas 
Next 
End With 
End Sub 


Ti 
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14.6.3 ”给 单元 格 设置 错误 值 


Excel 单元 格 的 错误 值 共有 7 个 。 工 作 表 中 有 时 需要 为 单元 格 设置 错误 值 ， 这 时 可 使 
用 CVErr 函数 来 完成 该 任务 。CVErr 函数 的 语法 格式 如 下 : 
CVErr (errornumber) 


参数 errormmumber 可 以 是 任何 有 效 的 错误 号 代码 。 

可 以 在 过 程 中 使 用 CVErr 函数 来 创建 用 户 自 定义 的 错误 。 例 如 ， 如 果 创 建 一 个 函数 ， 
使 其 可 以 接受 若干 个 参数 ， 并 且 正 常 返回 一 个 字符 串 ， 那 么 就 可 以 让 该 函数 来 判断 输入 的 
参数 , 确认 它们 是 否 在 可 接受 的 范围 内 。 如 果 不 是 ， 则 此 函数 将 不 会 返回 所 期 望 的 字符 串 。 
在 这 种 情况 下 ，CVErr 可 以 返回 一 个 错误 号 ， 并 告知 应 该 采取 的 行动 。 


全 注意 ; Error 的 隐 式 转换 是 不 允许 的 ， 例 如 ， 不 能 直接 把 CVErr 的 返回 值 赋 值 给 一 个 非 
Variant 的 变量 。 然 而 ， 可 以 对 CVErr 的 返回 值 进行 显 式 转换 (使 用 CInt、CDbl 
等 ) ， 并 赋值 给 适当 的 数据 类 型 变量 。 


例如 ， 以 下 代码 将 在 单元 格 中 分 别 设置 错误 值 : 
sub 设置 错误 值 () 


Dim arrl, i Rs Integer 
arrl = Array (xlErrNull, xlErrDivO, xlErrValue, xlErrRef, _ 
xlErrName, xlErrNum, xlErrNA) 
For Ye 
Activesheet.Cells(8, i).Value = CVErr(arrl(i - 1)) 
Next i 
End Sub 


以 上 代码 首先 定义 一 个 包含 错误 值 常量 的 数组 ， 再 使 用 循环 将 各 错误 值 分 别 赋值 给 各 
单元 格 。 


14.6.4 判断 错误 类 型 


使 用 IsError 函数 可 返回 表达 式 是 否 为 一 个 错误 值 。 其 语法 格式 如 下 : 

IsError (expression) 

参数 expression 可 以 是 任何 有 效 表达 式 。 

IsError 函数 被 用 来 确定 一 个 数值 表达 式 是 否 表 示 一 个 错误 。 如 果 expression 参数 表示 
一 个 错误 ， 则 IsError 返回 True; 否则 返回 False。 

例如 ， 以 下 代码 将 判断 活动 单元 格 的 错误 类 型 : 

Sub 判断 错误 类 型 () 


Dim err val 
IE IsError(ActiveCell .Value) Then 
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err val = ActiveCell .Value 
Select Case err val 
Case CVErr (xlErrDiv0) 
MsgBox "#DIV/0! error" 
Case CVErr (xlErIrNA) 
MsgBox "#N/A errorn 
Case CVErr (xlErrName) 
MsgBox "#NAME? error" 
Case CVErr (xlErrNul11) 
MsgBox "#NULL! error" 
Case CVErr (xlErrNum) 
MsgBox "#NUM! error" 
Case CVErr (xlErrRef) 
MsgBox "#REF! error" 
Case CVErr (xlErrValue) 
MsgBox "#VALUE! error" 
Case Else 
MsgBox "不 可 识别 错误 ! " 
End Select 
End If 
End Sub 


以 上 代码 首先 判断 活动 单元 格 ， 如 果 单 元 格 中 为 错误 值 ， 则 使 用 CVErr 函数 转换 各 错 
误 值 的 常量 ， 与 单元 格 中 的 值 进行 判断 ， 并 显示 出 错误 类 型 。 


14.6.5 ”设置 打印 区 域 


Excel 工作 表 中 可 通过 设置 打印 区 域 ， 使 工作 表 中 的 部 分 数据 进行 打印 输出 。 但 大 多 
数 时 候 都 需要 将 当前 工作 表 所 有 使 用 区 域 设 置 为 打印 区 域 。 

可 使 用 PageSetup 对 象 的 PrintArea 属性 设置 打印 区 域 。 

PrintArea 属性 以 字符 串 返回 或 设置 要 打印 的 区 域 ， 该 字符 串 使 用 宏 语 言 的 Al 样式 的 
引用 。 将 该 属性 设置 为 False 或 空 字符 串 〈"") ， 可 打印 整个 工作 表 。 


全 提示 : PageSetup 对 象 包含 所 有 页 面 设 置 的 属性 ( 左边 距 、 底 部 边 距 、 纸 张大 小 等 ) 。 
例如 ， 使 用 以 下 代码 可 将 当前 工作 表 的 使 用 区 域 设置 为 打印 区 域 : 
sub 设置 打印 区 域 () 


Dim strl As String 
strl = ActiveSheet .UsedRange.Address 
ActiveSheet .PageSetup.PrintArea = strl 
Str1l = "" 

End Sub 


以 上 代码 首先 取得 当前 使 用 区 域 地 址 ， 再 使 用 PrintArea 属性 设置 打印 区 域 。 
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14.6.6 合并 单元 格 


使 用 Range 对 象 的 Merge 方法 可 创建 合并 单元 格 ， 该 方法 的 语法 格式 如 下 : 
表达 式 .Merge (Across) 


其 中 的 参数 Across 可 省 略 , 该 参数 如 果 为 Tme, 则 将 指定 区 域 中 每 一 行 的 单元 格 合并 
为 一 个 单独 的 合并 单元 格 。 默 认 值 是 False (将 区 域 中 的 多 行 单元 格 合并 为 一 个 单元 格 》。 


全 提示 : 合并 单元 格 的 值 在 合并 单元 格 后 的 左上 角 单 元 格 中 指定 。 
例如 ， 使 用 以 下 代码 可 将 单元 格 Al 和 A2 合并 为 一 个 单元 格 : 
Range ("Al", "A2") .Merge 
而 以 下 代码 将 单元 格 区 域 Al:C3 共 9 个 单元 格 合并 为 一 个 单元 格 : 


Range ("Al", "C3") .Merge 


14.6.7” 拆 分 单元 格 


使 用 Range 对 象 的 UnMerge 方法 , 可 以 将 合并 区 域 分 解 为 独立 的 单元 格 。 对 非 合 并 区 
域 使 用 UnMerge 方法 将 不 会 产生 任何 作用 。 也 可 以 使 用 MergeCells 属性 判断 指定 区 域 是 否 
包含 合并 单元 格 ， 如 果 包 含 合并 单元 格 ， 则 该 属性 返回 值 为 Tme。 

例如 ， 以 下 代码 对 选中 的 单元 格 区 域 进行 拆 分 : 

Sub 拆 分 单元 格 () 

Dim rng As Range 


If Not Selection.MergeCells Then 
MsgBox "选中 区 域 不 是 合并 区 域 ! " 


Exit Sub 
End If 
Selection.UnMerge ' 拆 分 单元 格 
For Each rng In Selection ' 逐 个 处 理 选中 区 域 的 单元 格 
IE rng = "" Then ' 若 当前 单元 格 为 空 
rng = rng.Offset(-1, 0) .Value ' 取 上 一 单元 格 的 值 
End If 
Next 
End Sub 


以 上 代码 首先 判断 用 户 选 择 的 单元 格 是 否 为 合并 区 域 ， 如 果 是 合并 区 域 ， 则 调用 
UnMerge 方法 拆 分 单元 格 ， 接 着 循环 处 理 拆 分 的 每 一 个 单元 格 ， 将 其 赋值 为 上 一 个 单元 格 
的 值 。 


“268。 


第 14 章 使 用 Range 对 象 


14.6.8 ”限制 单元 格 移动 范围 


使 用 Worksheet 对 象 的 ScrollArea 属性 ， 可 设置 允许 用 户 滚动 的 区 域 。 其 参数 为 一 个 
以 Al 样式 的 区 域 引 用 形式 表示 的 区 域 。 用 户 不 能 选 定 滚动 区 域 之 外 的 单元 格 。 

如 果 将 该 属性 设置 为 空 字符 串 ("), 则 表示 允许 对 整 张 工作 表 内 所 有 单元 格 的 选 定 ( 相 
当 于 取消 对 滚动 区 域 的 限制 )。 

也 可 通过 ScrollArea 属性 获取 当前 滚动 区 域 的 设置 值 。 

例如 ， 使 用 以 下 代码 可 设置 单元 格 移动 范围 为 当前 数据 区 域 。 


Sub 限制 移动 范围 () 
Dim rngl As Range, strl As String 
Set rngl = ActiveCell .CurrentRegion 


strl = rngl.Address 
MsgBox "将 单元 格 的 移动 范围 限制 在 单元 格 当前 区 域 " & strl & " 之 内 " 
RctiveSheet.ScrollRrea = strl 
End Sub 
以 上 代码 先 获取 活动 单元 格 当前 区 域 的 地 址 ， 再 通过 ScrollArea 属性 设置 滚动 区 域 。 
执行 以 上 代码 后 ， 用 户 将 不 能 再 将 单元 格 区 域 滚动 到 其 他 单元 格 。 
在 需要 的 时 候 ， 可 使 用 以 下 代码 解除 移动 范围 限制 : 
sub 解除 范围 限制 () 
MsgBox "解除 移动 范围 限制 " 
ActiveSheet.ScrollArea = "" 
End Sub 


以 上 代码 设置 ScrollArea 属性 为 空 字符 串 ， 就 可 以 解除 移动 范围 限制 。 
14.6.9 ”清除 单元 格 


可 以 使 用 Range 对 象 的 多 种 方法 清除 单元 格 ， 各 方法 的 功能 分 别 如 下 所 述 。 

口 ClearContents 方法 : 清除 单元 格 区 域 中 的 内 容 公式 。 

口 ClearFormats 方法 : 清除 单元 格 区 域 中 的 格式 设置 。 

口 ClearComments 方法 : 清除 单元 格 区 域 中 的 所 有 单元 格 批注 。 

口 Clear 方法 : 清除 单元 格 区 域 的 公式 和 格式 设置 。 

例如 ， 以 下 代码 将 清除 工作 表 Sheetl 上 Al1:G37 单元 格 区 域 的 公式 ， 但 保留 其 格式 
Sheet1.Range ("Al:G37") .ClearContents 

以 下 代码 清除 工作 表 Sheetl 上 A1:G37 单元 格 区 域 的 所 有 格式 设置 。 

Sheet1.Range ("R1:G37") .ClearFormats 
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以 下 代码 清除 工作 表 Sheetl 上 第 一 个 嵌入 式 图 表 的 格式 设置 。 
Sheet1.ChartObjects(1) .Chart .ChartRrea.ClearFormats 
以 下 代码 清除 E5 单元 格 的 所 有 批注 。 


Sheet1.Range ("E5") .ClearComments 


14.6.10 ”删除 单元 格 区 域 


在 Excel 环境 中 ， 在 功能 区 【开始 】 选 项 卡 的 【单元 格 】 组 中 ， 单 击 【 删 除 单元 格 】 
命令 按钮 ， 将 打开 如 图 14-9 所 示 的 对 话 框 ， 可 根据 需要 选择 替换 删除 单元 格 的 方向 。 


图 14-9 ”删除 单元 格 


在 VBA 中 ， 使 用 Range 对 象 的 Delete 方法 也 可 完成 删除 选中 单元 格 区 域 的 功能 ， 其 
语法 格式 如 下 : 

表达 式 .Delete (shift) 

参数 Shift 可 省 略 ， 用 来 设置 如 何 调整 单元 格 以 替换 删除 的 单元 格 。 如 果 省 略 此 参数 ， 
Excel 将 根据 区 域 的 形状 确定 调整 方式 。 该 参数 可 设置 为 以 下 常量 之 一 

口 xlShiftToLeft: 单元 格 向 左 移动 替换 被 删除 的 单元 格 。 

口 xlShiftUp: 单元 格 向 上 移动 替换 被 删除 的 单元 格 。 

例如 , 以 下 代码 将 删除 选中 的 单元 格 区 域 , 单元 格 随 之 向 左 移动 替换 被 删除 的 单元 格 。 


Sub 删除 单元 格 () 
Dim rngl As Range 
Set rngl = Selection 
rngl.Delete (xlSshiftToLeft) 
Set rngl = Nothing 

End Sub 


14.7 设置 单元 格格 式 
在 Excel 中 进行 操作 时 ， 很 多 时 候 都 需要 对 单元 格 进行 设置 ， 以 制作 出 美观 大 方 的 表 


格 。 在 VBA 中 ， 也 可 使 用 各 种 命令 进行 单元 格 的 格式 设置 。 
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14.7.1 设置 自动 套用 格式 


在 Excel 2003 及 以 前 版 本 中 ，Range 对 和 象 提供 了 一 个 AutoFormat 的 方法 ， 使 用 该 ee 


可 对 选中 区 域 自动 套用 格式 。 在 Excel 2007 版 本 中 该 方法 被 隐藏 了 ， 但 仍然 可 以 使 用 。 
方法 的 语法 格式 如 下 : 


口 
口 
口 
口 
口 
口 


表达 式 .AutoFormat (Format, Number, Font, Alignment, Border, Pattern, Width) 


该 方法 各 参数 都 可 省 略 ， 各 参数 的 含义 分 别 如 下 所 述 。 

口 Format: 指定 的 自动 套用 格式 ， 可 设置 为 xIRangeAutoFormat 常量 之 一 ， 默 认 常 量 
为 xIRangeAutoFormatClassicl (古典 1 样式 ) ， 该 类 常量 非常 多 ， 使 用 时 可 查看 帮 
助 中 的 信息 。 

Number: 如 果 该 值 为 True， 则 在 自动 套用 格式 中 包括 数字 格式 。 默 认 值 为 True。 
Font: 如 果 该 值 为 True， 则 在 自动 套用 格式 中 包括 字体 格式 。 默 认 值 为 True。 
Alignment: 如 果 该 值 为 True, 则 在 自动 套用 格式 中 包括 对 齐 方 式 。 默认 值 为 True。 
Border: 如 果 该 值 为 True， 则 在 自动 套用 格式 中 包括 边框 格式 。 默 认 值 为 True。 
Pattern: 如 果 该 值 为 Tme， 则 在 自动 套用 格式 中 包括 图 案 格式 。 默 认 值 为 True。 
Width: 如 果 该 值 为 True， 则 在 自动 套用 格式 中 包括 列 宽 和 行 高 。 默 认 值 为 True。 
例如 ， 以 下 代码 给 工作 表 Sheetl 的 数据 区 域 设置 自动 套用 格式 ; 


Sub 自动 套用 格式 () 


Dim rngl As Range 
Set rngl = Sheet1.Range("R1") .CurrentRegion 
rngl.autoformat 
Set rngl = Nothing 
End Sub 


14.7.2 ”设置 边框 线 


可 返 
区 域 


右边 


设置 所 选区 域 的 边框 可 通过 Borders 集合 来 进行 设置 .通过 Range 对 象 的 Borders 属性 
回 一 个 Borders 集合 ， 该 集合 代表 样式 或 单元 格 区 域 (包括 定义 为 条 件 格 式 一 部 分 的 
) 的 边框 。 

Borders 集合 由 4 个 Border 对 象 组 成 ， 分 别 代 表 Range 对 象 的 4 个 边框 ， 即 左边 框 、 
框 、 顶 部 边框 和 底部 边框 。 

使 用 以 下 形式 可 返回 单个 Border 对 象 : 

表达 式 .Borders (index) 


其 中 参数 index 用 来 指定 边框 ， 可 分 别 用 以 下 常量 表示 不 同 的 边框 。 
口 xlDiagonalDown: 从 区 域 中 每 个 单元 格 的 左上 角 至 右 下 角 的 边框 。 
口 xlDiagonalUp: 从 区 域 中 每 个 单元 格 的 左下 角 至 右上 角 的 边框 。 
口 xlEdgeBottom: 区 域 底部 的 边框 。 
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口 xlEdgeLeft: 区 域 左 边 的 边框 。 
口 xIEdgeRight: 区 域 右边 的 边框 。 
口 xlEdgeTop: 区 域 顶部 的 边框 。 
口 
口 


xlInsideHorizontal: 区 域 中 所 有 单元 格 的 水 平 边框 《区 域 以 外 的 边框 除外 )。 
xlInsideVertical: 区 域 中 所 有 单元 格 的 垂直 边框 〈 区 域 以 外 的 边框 除外 )。 
例如 以 下 代码 设置 单元 格 区 域 “Al:G1” 的 底部 边框 的 颜色 。 
Sheet1.Range ("Al:G1") .Borders (xlEdgeBottom) .Color = RGB(255, 0, 0) 
以 下 代码 设置 当前 区 域 的 边框 线 为 双 线 。 


Sub 设置 边框 线 () 
Dim rngl As Range 
Set rngl = Sheet1.Range ("RA1") .CurrentRegion 
ngl.Borders .LineStyle = xlDouble 
Set rngl = Nothing 
End Sub 


14.7.3 ”设置 文本 对 齐 格式 


在 Excel 中 可 以 通过 【设置 单元 格格 式 】 对 话 框 设 置 单元 格 中 文本 的 水 平和 垂直 对 齐 
方式 。 使 用 VBA 设置 单元 格 区 域 的 对 齐 方式 时 ,可 使 用 Range 对 象 的 HorizontalAlignment 
属性 和 VerticalAlignment 属性 来 进行 设置 。 


1. HorizontalAlignment 属 性 


使 用 该 属性 可 返回 或 设置 指定 单元 格 区 域 的 水 平 对 齐 方式 。 此 属性 的 值 可 设 为 以 下 常 
量 之 一 

口 xlCenter: 表示 居中 ; 

口 xlDistributed: 表示 分 散 对 齐 ; 

口 xlJustify: 表示 两 端 对 齐 ; 

口 xlLeft: 表示 左 对 齐 ; 

口 xlRight: 表示 右 对 齐 。 
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. VerticalAlignment 属 性 
使 用 该 属性 可 返回 或 设置 指定 单元 格 区 域 的 垂直 对 齐 方式 。 此 属性 的 值 可 设 为 以 下 常 


昌之 一 
口 xlVAlignBottom: 表示 靠 下 ; 
口 xlVAlignCenter: 表示 居中 对 齐 ; 
口 xlVAlignDistributed: 表示 分 散 对 齐 ; 
口 xlVAlignJustify: 表示 两 端 对 齐 ; 
口 xlVAlignTop: 表示 靠 上 。 
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例如 ， 使 用 以 下 代码 可 设置 选择 区 域 的 单元 格 文本 对 齐 方式 为 “水 平 居中 ”: 
Selection.HorizontalAlignment = xlHAlignCenter 
而 以 下 代码 设置 为 “垂直 居中 ”: 


Selection.VerticalAlignment = xlVAlignCenter 


14.7.4 ”单元 格 文本 缩 排 


在 VBA 中 设置 单元 格 的 缩 排 值 时 ， 可 使 用 IndentLevel 属性 来 获取 或 设置 缩 进 值 ， 也 
可 使 用 InsertIndent 方法 增加 或 减少 缩 进 值 。 


1. IndentLevel 属 性 


通过 该 属性 可 返回 或 设置 单元 格 或 单元 格 区域 的 缩 进 量 。 可 以 是 0 一 15 之 间 的 整数 。 
若 将 此 属性 设置 为 小 于 0 或 者 大 于 15 的 数字 ， 将 导致 程序 发 生 错 误 。 


2. Insertindent 方 法 


使 用 Range 对 象 的 InsertIndent 方法 ， 可 向 指定 的 区 域 添加 缩 进 量 。 其 语法 格式 如 下 : 
表达 式 . InsertIndent (InsertAmount) 


参数 InsertAmount 为 设置 的 缩 进 量 。 若 设置 为 负数 ， 则 可 减少 缩 进 量 。 
如 果 用 本 方法 将 缩 进 量 设置 为 一 个 小 于 0 ( 零 ) 或 大 于 15 的 值 ， 将 导致 程序 出 错 。 
例如 ， 使 用 以 下 代码 可 为 选择 区 域 各 单元 格 增加 缩 排 值 : 
sub 增加 缩 排 值 () 
On Error Resume Next 


Selection.InsertIndent 1 
End Sub 


其 中 ， 使 用 On Error 语句 可 捕获 因 设置 大 于 〈 大 于 15) 缩 排 值 时 产生 的 错误 。 
使 用 以 下 代码 可 减少 单元 格 文本 的 缩 排 值 : 
sub 减少 缩 排 值 () 


On Error Resume Next 
Dim rngl As Range 
Set rngl = Selection 
IE rngl.IndentLevel > 0 Then 
ng1l1.InsertIndent -1 
End If 
Set rngl = Nothing 
End Sub 


使 用 InsertIndent 方法 减少 缩 排 值 时 , 如 果 缩 排 值 已 经 为 0, 当 再 次 执行 InsertIndent(-1) 
时 ， 程 序 将 出 现 错误 。 为 了 防止 这 种 错误 出 现 ， 可 先 使 用 Range 对 象 的 mdentLevel 属性 获 
取 单 元 格 区 域 的 缩 进 值 ， 若 该 值 大 于 0， 则 可 以 执行 减少 缩 排 操作 。 
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14.7.5 “设置 文本 方向 


通过 Range 对 象 的 Orientation 属性 ， 可 获取 或 设置 单元 格 区 域 文字 的 方向 。 其 值 可 以 
从 -90” 一 90” 的 一 个 整数 值 或 以 下 常量 之 一 。 
口 xlIDownward: 表示 文字 向 下 排列 ; 
口 xlHorizontal: 表示 文字 水 平 排列 ; 
口 xlUpward: 表示 文字 向 上 排列 ; 
口 xlVertical: 表示 文字 在 单元 格 中 向 下 居中 排列 。 
例如 ， 使 用 以 下 代码 ， 可 设置 文本 方向 为 任意 角度 : 
Sub 设置 文本 方向 () 
Dim i Rs Integer 
i =RApplication.InputBox (Prompt :=" 输 入 文字 的 角度 (-90” 一 90”) : "， Type:=1) 
IE i >= -90° And i <= 90”Then 
Selection.Orientation = i 


End If 
End Sub 


执行 以 上 代码 ， 将 显示 如 图 14-10 所 示 的 对 话 框 ， 输 入 文字 的 角度 后 ， 选 择 区 域 的 文 
本 将 按 设置 的 角度 显示 。 


图 14-10 输入 文本 角度 


14.7.6 ”设置 自动 换行 格式 


使 用 Range 对 象 的 WrapText 属性 ， 可 获取 或 设置 是 否 为 单元 格 区 域 中 的 文本 设置 了 
自动 换行 。 

如 果 指 定 区 域内 所 有 单元 格 中 的 文本 都 自动 换行 ， 此 属性 将 返回 True; 如 果 指 定 区 域 
内 所 有 单元 格 中 的 文本 都 不 自动 换行 则 返回 False; 如 果 指 定 区 域内 有 些 单元 格 中 的 文本 
自动 换行 ， 而 另 一 些 单元 格 中 的 文本 不 自动 换行 ， 则 返回 Null。 

例如 ， 使 用 以 下 代码 可 设置 选择 的 单元 格 自动 换行 : 

Sub 自动 换行 () 


Selection.WrapText = True 
End Sub 


14.7.7 设置 缩小 字体 填充 


使 用 Range 对 象 的 ShrinkToFit 属性 , 可 获取 或 设置 单元 格 区 域 的 文本 自动 缩小 ,以 适 
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应 单元 格 列 宽 。 
如 果 文 本 自动 缩小 以 适应 可 用 列 宽 ， 此 属性 将 返回 True; 如 果 没 有 将 指定 区 域 中 所 有 
单元 格 的 这 一 属性 设 为 相同 的 值 ， 则 返回 Null。 
例如 , 使 用 以 下 代码 可 设置 选中 的 单元 格 缩小 字体 , 以 便 将 内 容 完 全 显示 在 单元 格 中 : 
Sub 缩小 字体 填充 () 


Selection.ShrinkToFit = True 
End Sub 


14.7.8 设置 日 期 格式 


使 用 Range 对 象 的 NumberFormatLocal 属性 ， 可 以 字符 串 的 形式 返回 或 设置 一 个 代表 
单元 格 对 象 的 格式 代码 。 
日 期 格式 有 很 多 种 形式 ， 读 者 可 通过 录制 宏 ， 记 录 设 置 单元 格 日 期 格式 ， 查 看 各 种 日 
期 格式 和 格式 代码 。 
例如 ， 使 用 以 下 代码 可 将 单元 格 日 期 格式 设置 为 “年 /月 /日 ”的 格式 : 
sub 设置 日 期 格式 () 
Dim rng Rs Range, rngl As Range 
Set rngl = ActiveSheet .UsedRange 
For Each rng In rngl 
If IsDate(rng.Value) Then 
rng.NumberFormatLocal = "yyyy" "年 ""m"" 月 ""d"" 日 "";@" 
End If 
Next 
End Sub 


以 上 代码 检查 当前 工作 表 的 所 有 单元 格 ， 如 果 单 元 格 的 值 为 日 期 值 ， 则 将 其 转换 为 设 
定 的 格式 。 使 用 IDate 函数 可 判断 一 个 表达 式 是 否 可 以 转换 成 日 期 。 其 语法 格式 如 下 : 

IsDate (expression) 

参数 expression 是 一 个 日 期 表达 式 或 字符 串 表达 式 ， 这 里 的 字符 串 表 达 式 是 可 以 作为 
日 期 或 时 间 来 认定 的 。 

如 果 表 达 式 是 一 个 日 期 ， 或 可 以 作为 有 效 的 日 期 识别 ， 则 IDate 返回 Trme; 否则 返回 


False。 


14.7.9 生成 大 写 金额 


金额 大 写作 为 财务 管理 中 的 一 种 常用 数据 表示 方式 ， 在 很 多 管理 系统 中 都 要 用 到 。 中 
文 版 Excel 也 支持 阿拉 伯 数 字 转 换 为 中 文大 写 形式 。 通 过 录制 宏 可 以 看 出 ， 设 置 数 字 为 中 
文大 写 样 式 的 格式 代码 如 下 : 

[DBNum2] [$-804]G/ 通 用 格式 
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可 是 ， 这 种 中 文大 写 样式 不 符合 金额 的 要 求 ， 其 转换 后 的 效果 如 下 : 
喜 什 零 伍 抬 壹 .过 


这 种 形式 还 不 能 作为 财务 金额 大 写 来 使 用 ， 要 将 以 上 内 容 转换 为 符合 要 求 的 金额 大 写 
形式 还 需要 进行 一 些 处 理 。 
以 下 代码 就 可 以 完成 这 种 转换 。 


Sub 大 写 金额 () 
Dim t Rs Currency, strl As String 
Dim i As Integer, strJ As String, strF Rs String 
Dim rngl As Range 
With ActiveSheet 
Set rngl = Range ("IV1") .End(xlToRight) “' 获 取 最 右 侧 列 
t = ActiveCell .Value 
With ngl 
-Value = 七 
.NumberFormatLocal = " [DBNum2] [$-804]G/ 通 用 格式 " 
.Columns .RutoFit 
strl = .Text 
:Clear 
End With 
i = Instr(strl, ".") 
If i > 0 Then 
strJy = Mid(str1l, i + 1, 1) ' 获 取 角 部 分 字符 
strF = Mid(strl， + 2, 1) "获取 分 部 分 字符 
If strF = "" Then 
strl = Left (stri, i - 1) & "元 " & strJ & " 角 整 " 


Else 
strl = Left (strl, i - 1) & "元 " & strJ & " 角 " & strF & "分 " 

End If 

Else 
strl = strl & "元 整 " 

End If 

ActiveCell = "人民币 " & strl 

End With 


End Sub 


以 上 代码 使 用 第 一 行 的 最 后 一 列 作为 临时 单元 格 ， 将 当前 单元 格 的 值 填写 到 临时 单元 
格 中 ， 再 将 临时 单元 格 设置 为 中 文大 写 样式 ， 通 过 Text 属性 获取 该 单元 格 的 显示 值 。 最 后 
通过 字符 串 处 理 函 数 对 中 文大 写字 符 进 行 处 理 。 

使 用 Range 对 象 的 Value 属性 可 取得 单元 格 的 值 ， 以 上 代码 需要 取得 转换 后 显示 的 中 
文大 写字 符 串 ， 但 使 用 Value 属性 只 能 取得 单元 格 中 的 数值 ， 而 不 能 获取 显示 的 大 写字 符 
串 。 这 时 可 使 用 Range 对 象 的 Text 属性 ， 该 属性 返回 或 设置 指定 对 象 中 的 文本 。 

接着 将 获取 的 文本 使 用 字符 串 处 理 函 数 Left 和 Mid, 分 别 取出 元 、 角 、 分 各 部 分 内 容 ， 
再 判断 角 和 分 部 分 是 否 为 室 ， 从 而 生成 不 同 的 大 写 金额 字符 串 。 
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14.7.10 ”设置 单元 格 图 案 


使 用 Interior 对 象 的 以 下 属性 可 设置 单元 格 区 域 的 内 部 图 案 和 图 案 颜色 。 
口 Pattem 属性 : 可 获取 或 设置 一 个 代表 内 部 图 案 的 值 。 
口 _ PatternColor 属性 : 将 以 RGB 值 返回 或 设置 内 部 图 案 的 颜色 。 
例如 ， 以 下 代码 循环 显示 不 同 的 内 部 图 案 ， 再 使 用 随机 函数 Rnd 生成 图 案 的 颜色 并 


显示 。 


Sub 设置 单元 格 图 案 () 
Dim i As Integer 
Dim r As Integer, g As Integer, b As Integer 
Randomize 
On Error Resume Next 
For i=1 To 18 
With Selection.Interior 
-Pattern = i 
r= Int(Rnd * 255) 
g = Int(Rnd * 255) 
b Int (Rnd * 255) 
.PatternColor = RGB(r, g, b) 
End With 
MsgBox "下 个 图 案 样式 " 
Next i 
End sub 


县 提示 : 设置 PattermmColorIndex 属性 为 常量 xlColorIndexNone， 表 示 为 无 色 。 


14.8 设置 条 件 格式 


在 Excel 中 ，FormatConditions 对 象 代表 一 个 区 域内 所 有 条 件 格 式 的 集合 。 
FormatConditions 集合 可 以 包含 多 个 条 件 格式 。 每 个 格式 由 一 个 FormatCondition 对 象 代表 。 

使 用 FormatConditions 对 象 的 Add 方法 ， 可 向 集合 中 添加 新 的 条 件 格式 。 其 语法 格式 
如 下 : 


表达 式 .Add (Type，Operator，Formulal，Eormula2) 


各 参数 的 含义 如 下 : 
口 Type: 指定 条 件 格式 是 基于 单元 格 值 还 是 基于 表达 式 ， 可 使 用 的 常量 如 表 14-3 
所 示 。 


口 Operator: 条 件 格式 运算 符 。 如 果 Type 为 xIExpression， 则 忽略 Operator 参数 。 可 
使 用 的 常量 如 表 14-4 所 示 。 
口 Formulal: 与 条 件 格式 相关 联 的 值 或 表达 式 。 可 以 是 常量 值 、 字 符 串 值 、 单 元 格 
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引用 或 公式 。 

口 Formula2: 当 参 数 Operator 为 xlIBetween 或 xINotBetween 时 ， 它 是 与 条 件 格式 第 
二 部 分 相关 联 的 值 或 表达 式 〈 和 否则 忽略 该 参数 ) 。 可 为 常量 值 、 字 符 串 值 、 单 元 
格 引用 或 公式 。 


表 14-3 ”Type 可 用 常量 


xlAboveAverageCondition 高 于 平均 值 条 件 xlIconSet 图 标 集 


xlBlanksCondition 空 值 条 件 xINoBlanksCondition | 无 空 值 条 件 
xlCellValue | 单元 格 值 XINoErrorsCondition | 无 错误 条 件 
xlColorScale | 色 阶 xlTextString | 文本 字符 串 
xlCompareColumns | 比较 列 xlTimePeriod | 时 间 段 
xlDatabar | 数据 条 xlTop10 | 前 10 个 值 
xlErrorsCondition 错误 条 件 xlUniqueValues | 唯一 值 


表达 式 


xlExpression 


表 14-4 Operator 可 用 常量 


xlBerween 
xlEqual xINotEqual 


XlGreater xlGreaterEqual 
xlLess xlLessEqual 小 于 等 于 


向 单元 格 区 域 添加 条 件 格式 的 代码 如 下 : 


With 表达 式 .Formatconditions .Add (参数 ) 
设置 格式 代码 
End With 


使 用 FormatConditions 集合 对 象 的 Modify 方法 可 修改 现 有 的 条 件 格式 ， 使 用 Delete 
方法 可 在 添加 新 条 件 格式 前 删除 现 有 的 格式 。 


全 注意 ; 对 单个 区 域 定义 的 条 件 格式 不 能 超过 3 个 。 


例如 ， 使 用 以 下 代码 可 为 工作 表 Sheetl 的 区 域 “F32:F13” 设 置 条 件 格式 ， 当 该 区 域 
中 单元 格 的 值 大 于 等 于 2000 时 ， 显 示 为 红色 ; 当 单 元 格 的 值 小 于 1000 时 ， 显 示 为 绿色 。 
Sub 设置 条 件 格式 () 


Dim rngl As Range 
Set rngl = Sheet1.Range("C2:E6") 
"添加 条 件 格式 ， 设 置 单 元 格 值 大 于 等 于 2000 的 格式 
With rngl.FormatConditions.Add(Type:=xlCellValue, _ 
Operator:=xlGreaterEqual, Formulal:=2000) 
With .Borders 
-LineStyle = xlContinuous 
.Weight = xlThin 
-ColorIndex = 6 
End With 
With .Font 
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-Bold = True 
-ColorIndex = 3 
End With 
End With 
' 添 加 条 件 格 式 ， 设 置 单元 格 值 小 于 1000 的 格式 
With rng1l.FormatConditions.Add(Type:=xlCellValue, _ 
Operator:=xlLess, Formulal:=1000) 
With .Font 
-Bold = True 
:ColorIndex = 10 
End With 
End With 
End Sub 


对 于 当前 工作 表 中 的 条 件 格 式 ， 可 使 用 FormatConditions 集合 对 象 的 Delete 方法 将 其 
删除 ， 代 码 如 下 : 
Sub 清除 条 件 格式 () 


Cells.FormatConditions.Delete 
End sub 


以 上 代码 使 用 Cells 返回 当前 工作 表 的 全 部 单元 格 ， 通 过 上 面 的 代码 可 清除 当前 工作 
表 的 所 有 条 件 格式 。 
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除了 前 面 几 章 介绍 的 Excel 对 象 外 ,在 开发 Excel 应 用 程序 时 还 经 常 使 用 到 Name 对 象 、 
Window 对 象 、Chart 对 象 等 。 本 章 介绍 用 VBA 控制 这 几 个 对 象 的 方法 。 


15.1 使 用 Name 对 象 


Name 对 象 代 表单 元 格 区 域 的 定义 名 。 名 称 可 以 是 内 署名 称 ( 例 如 Database、Print Area 
和 Auto_Open) 或 自 定 义 名 称 。 


15.1.1 添加 名 称 


在 Excel 中 ， 可 使 用 行 号 列 标 来 引用 单元 格 〈 如 Al1) ， 也 可 对 单元 格 区 域 进行 命名 ， 
然后 在 公式 或 VBA 代码 中 使 用 名 称 来 引用 相关 单元 格 。 单 元 格 区 域 的 名 称 定 义 保存 在 
Name 对 象 中 。 

Name 对 象 是 Application、Workbook 和 Worksheet 对 象 的 Names 集合 的 成 员 。 使 用 
Names(index) 〈 其 中 index 是 名 称 索引 号 或 定义 名 称 ) 可 返回 一 个 Name 对 象 。 


名 注意 : 这 里 的 Name 对 象 ， 不 是 Workbook 对 象 的 Name 属性 。 


可 用 Add 方法 创建 名 称 并 将 其 添加 到 集合 中 。 下 面 的 语句 创建 一 个 新 名 称 ， 指 向 工作 
表 Sheetl 上 单元 格 区 域 Al:C20。 


Names.Add Name:="test", RefersTo:="=sheetl!$a$1:$c$20" 


RefersTo 参数 必须 以 Al 样式 表示 法 指定 ， 包 括 必要 时 使 用 的 美元 符号 ($)。 例 如 ， 如 
果 在 工作 表 Sheetl 上 选 定 了 单元 格 A10,， 然后 又 将 RefersTo 参数 指定 为 “=Sheetl!A1:B1” 
而 定义 了 一 个 名 称 , 那么 该 名 称 实 际 上 指向 单元 格 区 域 A10:B10( 因 为 指定 的 是 相对 引用 )。 
若 要 指定 绝对 引用 ， 应 当 用 “=Sheetl!$AS1:$SB$1”。 

例如 ， 在 一 个 “库存 管理 系统 ”中 ， 有 一 个 名 称 为 “商品 信息 ”的 工作 表 ， 如 图 15-1 
所 示 。 在 该 工作 表 中 的 数据 不 断 变化 ， 如 果 需 要 对 商品 信息 区 域 进行 命名 ， 供 其 他 表格 使 
用 ， 可 使 用 以 下 代码 进行 定义 : 


Sub 定义 名 称 () 


Dim intRow As Integer 
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intRow = Sheets ("商品 信息 ") . [B65536] .End (xlUp) .Row ' 获 取 商 品 信息 的 数据 行 数 
RctiveWorkbook .Names.RAdqd Name:="SP", 


RefersToR1C1:="= 商 品 信息 !R3C1:R" & intRow & "C6" 


"在 "商品 信息 " 表 中 定 
义 名 称 SP 
End Sub 


对 于 已 定义 Name 对 象 的 名 称 ， 也 可 通过 VBA 代码 进行 修改 。 例 如 , 在 工作 短 中 已 经 
定义 了 一 个 Name， 名 称 为 SP。 


在 【公式 】 选 项 卡 的 【定义 的 名 称 】 组 中 ， 单 击 【 名 称 管理 器 】 按 钮 ， 打 开 【 名 称 管 
理 器 】 对 话 框 ， 查 看 结果 如 图 15-2 所 示 。 


引用 位 置 “范围 “备注 
“= 商品 信息 1$..。 工作 簿 


砚 间 用 Namegj 旬 xs [ 共 模 芭 


a 
peepsenns 


E 因 
it 怕 托 区 拉手 机 v31 
人 品 信 息 .Sheote2 Shoot9 2 


图 15-1 工作 表 图 15-2 【名 称 管理 器 】 对 话 框 


15.1.2 修改 名 称 


使 用 Name 对 象 的 Name 属性 可 修改 已 有 Name 对 象 的 名 称 。 


各 注意 : 这 里 两 个 Name 关键 字 的 意义 是 不 同 的 ， 前 一 个 Name 表示 对 象 ， 后 一 个 Name 


编写 以 下 代码 ， 可 将 名 为 SP 的 名 称 改 为 SP1: 
Sub 改变 名 称 () 
Dim MyName Rs Name 
For Each MyName In Names 
IE MyName .Name = "SP" Then 
MyName .Name = "SP1" 
End If 
Next 
End Sub 


执行 以 上 过 程 后 ， 在 【公式 】 选 项 卡 的 【定义 的 名 称 】 组 中 单 击 【 名 称 管理 器 】 按 钮 ， 
打开 【名 称 管理 器 】 对 话 框 ， 可 看 到 改名 后 的 结果 如 图 15-3 所 示 。 
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图 15-3 修改 名 称 


15.1.3 ”显示 名 称 的 定义 


在 定义 Name 对 象 时 ， 使 用 RefersTo 参数 表示 Name 对 象 引用 的 公式 。 在 程序 中 ， 也 
可 使 用 RefersTo 属性 ， 用 宏 语 言 以 Al 样式 表示 法 返回 或 设置 名 称 所 引用 的 公式 〈 以 等 号 
开头 )。 

例如 ， 以 下 代码 创建 活动 工作 簿 中 所 有 名 称 的 列表 ， 并 用 宏 语 言 以 Al 样式 表示 法 表 
示 这 些 名 称 所 引用 的 公式 。 该 列表 将 出 现在 一 个 新 建 的 工作 表 中 。 


Sub 名 称 列表 () 
Set NewSheet = Worksheets.Add "新 建 一 个 工作 表 
=1 
For Each nm In ActiveWorkbook.Names ' 循 环 处 理工 作 短 中 的 Name 对 象 
NewSheet .Cells(i，1) .Value = nm.Name 'Name 对 象 的 名 称 
NewSheet .Cells(i，2) .Value = "'" & nm.RefersTo 
'Name 对 象 的 公式 
二 
Next 
NewSheet .Columns ("A:B") .AutoFit 
End Sub 


全 提示 : 除了 使 用 RefersTo 返回 或 设置 指定 名 称 所 引用 的 公式 外 , 还 可 使 用 RefersToR1C1 
属性 ， 以 R1C1 样式 返回 或 设置 指定 名 称 所 引用 的 公式 。 


15.1.4 获取 Name 对 象 的 引用 


使 用 RefersTo 或 RefersToR1C1 属性 可 返回 Name 对 象 所 引用 的 公式 ， 这 些 属 性 返回 
的 值 为 字符 串 类 型 。 若 需要 在 VBA 代码 中 引用 Name 对 象 中 公式 定义 的 单元 格 ， 可 使 用 
RefersToRange 属性 ， 该 属性 返回 由 Name 对 象 引用 的 Range 对 象 。 
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全 注意 : 如 果 Name 对 象 并 不 引用 区 域 ( 例如， 该 对 象 引用 的 是 一 个 常量 或 公式 ) ， 则 该 
属性 无 效 。 


例如 ， 使 用 以 下 代码 使 用 RefersToRange 属性 获取 工作 短 中 各 名 称 的 引用 ， 再 显示 出 
该 名 称 占用 的 单元 格 行 、 列 、 单 元 格 数量 。 


Sub 查看 名 称 区 域 信息 () 
Dim nm Rs Name, strl As String, rngl Rs Range 
For Each nm In ActiveWorkbook.Names "循环 处 理工 作 短 中 的 Name 对 象 
strl = "Name 对 象 名 称 : " & nm.Name & vbNewLine 
strl = strl & "公式 : " & nm.RefersTo & vbNewLine 
Set rngl = nm.RefersToRange 
strl = strl & "该 对 象 所 占 单元 格 数 量 : " & rngl.Cells.Count & vbNewLine 
strl = strl & " 行 数 : " & rngl.Rows.Count & vbNewLine 
strl = strl & " 列 数 : " & rngl.Columns.Count 
MsgBox str1，vboKonly， "查看 名 称 区 域 信息 " 
Next 
End Sub 


执行 以 上 代码 ,将 显示 如 图 15-4 所 示 的 对 话 框 ， 显 示 当 前 工作 竹中 某 一 个 Name 对 象 
的 相应 信息 。 


查看 名 称 区 域 信 息 ”区 | 


图 15-4 【查看 名 称 区 域 信息 】 对 话 框 


15.2 使 用 Window 对 象 


Window 对 象 代表 一 个 窗口 ， 可 以 对 窗口 特性 进行 设置 和 操作 。 许 多 工作 表 特 征 〈 例 
如 滚动 条 和 标尺 ) 实际 上 是 窗口 的 属性 。 

Window 对 象 是 Windows 集合 的 成 员 。 在 Excel 中 ，Application 对 象 和 Workbook 对 
象 都 有 Windows 集合 , 其 中 Application 对 象 的 Windows 集合 包含 应 用 程序 中 的 所 有 窗口 ， 
而 Workbook 对 象 的 Windows 集合 只 包含 指定 工作 短 中 的 窗口 。 


15.2.1 创建 窗口 


在 Excel 2007 操作 环境 中 ， 在 【视图 】 选 项 卡 的 【窗口 】 组 中 ， 单 击 【 新 建 窗口 】 按 
钮 ， 可 新 建 一 个 Excel 窗口 ， 该 窗口 的 标题 栏 名 称 将 显示 为 “Book1.xlsm:2”， 在 新 建 的 窗 
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口中 将 显示 活动 窗口 的 副本 ， 如 图 15-5 所 示 。 


S | 回 四 ”8 ) = ”使 用 Window 对 象 xls:2 [ 医 容 模式 ] - Microsoft Excel 到 
| 


可 要 | 至 十 | 择 | -lll 3 插入 - 三 - 

11 名 Se 5 
le 2 wen 远 择 | 
| 5 


BX 


加 县 


| 宋体 
| wn [er 性” J 
WM EE 3 


图 15-5 第 一 个 窗口 副本 


在 VBA 代码 中 , 使 用 Window 对 象 的 NewWindow 方法 , 可 新 建 一 个 窗口 或 者 创建 指 
定 窗口 的 副本 。 


全 注意 : 窗口 号 和 窗口 索引 (Index 属性 ) 是 两 个 不 同 的 概念 , 例如 , 名 称 为 “Book1l.xlsm:2” 
的 窗口 ， 其 窗口 号 为 2， 而 窗口 索引 为 该 窗口 在 Windows 集合 中 的 位 置 ， 可 以 是 
窗口 名 称 或 编号 。 


例如 ， 以 下 代码 将 创建 一 个 新 窗口 : 


Sub 创建 窗口 () 
ActiveWindow.NewWindow 
MsgBox "新 建 窗口 的 窗口 号 是 : " & ActiveWindow.WindowNumber 
End Sub 
Window 对 象 的 WindowNumber 属性 返回 窗口 号 。 例 如 ， 名 称 为 “Book1.xls:2” 的 窗 
口 ， 其 窗口 号 为 2。 大 多 数 窗口 的 窗口 号 为 1。 


15.2.2 ”调整 窗口 大 小 


通过 Window 对 象 的 EnableResize 属性 可 控制 是 否 能 够 调整 窗口 大 小 ， 如 果 其 值 为 
True， 则 能 够 调整 窗口 大 小 ， 如 果 其 值 为 False， 则 不 允许 调整 窗口 大 小 。 

控制 窗口 大 小 的 属性 主要 有 : 控制 窗口 左上 角 位 置 的 两 个 属性 (Top 和 Left) ， 控 制 
窗口 的 宽度 和 高 度 的 两 个 属性 (Width 和 Height)， 各 属性 的 含义 如 下 所 述 。 

口 Top 属性 : 代表 从 窗口 上 边缘 到 使 用 区 域 (在 菜单 、 任 何 停放 在 顶端 的 工具 栏 和 编 

辑 栏 下 方 ) 上 边缘 的 距离 〈 以 磅 为 单位 )。 

口 Left 属性 : 代表 从 客户 区 左边 缘 到 窗口 左边 缘 的 距离 〈 以 磅 为 单位 )。 

口 Width 属性 : 代表 窗口 的 宽度 〈 以 磅 为 单位 )。 

口 Height 属性 : 代表 窗口 的 高 度 〈 以 磅 为 单位 )。 


全 注意 : 无 法 对 最 大 化 窗口 设置 这 些 属性 。 
例如 ， 使 用 以 下 代码 将 动态 改变 窗口 大 小 
Sub 动态 改变 窗口 大 小 () 
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With ActiveWindow 
-WindowState = xlNormal 
.EnableResize = True 


Top = 1 
-Left = 1 
.Height = 40 
-Width = 40 
For i = 40 To Application.UsableWidth 
-Width = i 
Next 
For i = 40 To Application.UsableHeight 
.Height = i 
Next 
End With 
errl: 
End Sub 


执行 以 上 代码 ， 当 前 窗口 将 首先 逐渐 变 宽 ， 然 后 再 逐步 变 高 ， 达 到 动态 改变 窗口 大 小 
的 效果 。 


名 注意: 以 上 过 程 需要 在 Excel 界面 中 执行 ， 才 能 查看 到 动态 的 效果 。 


15.2.3 ”获取 窗口 状态 


窗口 的 状态 包括 两 个 方面 ， 首 先是 Excel 应 用 程序 窗口 的 状态 ， 另 一 个 是 工作 短 窗 口 
的 状态 。 窗 口 状态 有 3 种 形式 ， 通 过 Window 对 象 的 WindowState 属性 可 返回 或 设置 窗口 
的 状态 。 可 用 以 下 常量 表示 窗口 的 状态 。 

口 xIMaximized: 最 大 化 ; 

口 xlMinimized:， 最 小 化 ; 

口 xINormal: 正常 。 

使 用 以 下 代码 可 获取 窗口 状态 : 


Sub 获取 窗口 状态 () 
Dim strl As String 
strl = "Excel 应 用 程序 窗口 的 状态 : " 
Select Case Application.Windowstate 
Case xlMaximized 
strl = strl & "最 大 化 。" 
Case xlMinimized 
strl = strl & "最 小 化 。" 
Case xlNormal 
strl = strl & "正常 。" 
End Select 


Excel VBA 开发 技术 大 全 


MsgBox strl 


str1l = "当前 活动 工作 簿 窗口 的 状态 : " 
Select Case ActiveWindow.WindowsState 
Case xlMaximized 
strl = strl & "最 大 化 。" 
Case xlMinimized 
strl = strl & "最 小 化 。" 
Case xlNormal 
strl = strl & "正常 。" 
End Select 
MsgBox strl 
End Sub 


以 上 代码 首先 获取 Excel 应 用 程序 窗口 的 状态 并 显示 出 来 ， 接 着 获取 工作 夭 窗 口 的 状 
态 并 显示 出 来 。 


15.2.4 ” 拆 分 窗 格 


通过 Window 对 象 的 Split 属性 ， 可 查询 窗口 是 否 被 拆 分 。 如 果 指 定 窗口 被 拆 分 ， 则 该 
属性 值 为 True。 将 该 属性 值 设置 为 False， 可 取消 指定 窗口 的 拆 分 状态 。 

窗口 可 以 进行 水 平和 垂直 两 个 方向 上 的 拆 分 ， 可 通过 Window 对 象 的 以 下 两 个 属性 进 
行 控制 。 

口 SplitRow 属性 : 返回 或 设置 将 指定 窗口 拆 分 成 窗 格 处 的 行 号 ( 拆 分 线 以 上 的 行 数 ) 。 

口 SplitColumn 属性 : 返回 或 设置 将 指定 窗口 拆 分 成 窗 格 处 的 列 号 〈 拆 分 线 左 侧 的 

列 数 )。 
使 用 以 下 代码 可 拆 分 窗 格 : 


sub 拆 分 窗 格 () 
Dim r Rs Long, c Rs Long 
r = ActiveCell.Row 
c = ActiveCell .Colum 
With ActiveWindow 
If .Split Then 
.Split = False 
Else 
.SplitRow =r-1 
.SplitColum = c -1 
End If 
End With 
End Sub 


以 上 代码 中 ， 因 为 SplitRow 和 Splitcolumn 属性 是 从 指定 行 数 的 上 方 和 列 数 的 左 侧 进 
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行 拆 分 ， 所 以 需 将 活动 单元 格 的 行 数 和 列 数 减 1。 
对 拆 分 的 窗 格 还 可 通过 设置 Window 对 象 的 FreezePanes 属性 为 True 来 冻结 窗 格 ， 如 
果 设 置 为 False， 则 可 以 取消 冻结 窗口 。 
例如 ， 以 下 代码 可 在 冻结 和 取消 冻结 之 间 转 换 : 


ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes 


15.2.5 ”设置 窗口 显示 比例 


在 Excel 2007 的 状态 栏 中 ， 双 击 右 侧 的 本 B 阐 图 标 ， 将 打开 如 图 15-6 所 示 的 【显示 比 
例 】 对 话 框 。 通 过 该 对 话 框 ， 用 户 可 以 调整 表格 的 显示 比例 。 其 比例 以 百分数 表示 (100 
表示 正常 大 小 ，200 表示 双 倍 大 小 ， 依 次 类 推 )。 


图 15-6 【显示 比例 】 对 话 框 


在 VBA 代码 中 , 通过 Window 对 象 的 Zoom 属性 来 获取 或 设置 窗口 的 显示 比例 。 将 此 
属性 设 为 True， 可 将 窗口 大 小 设置 成 与 当前 选 定 区 域 相 适应 的 大 小 。 


外 注意 : 本 功能 仅 对 窗口 中 当前 的 活动 工作 表 起 作用 。 如 果 要 对 其 他 工作 表 使 用 此 属性 
必须 先 激活 工作 表 。 


用 VBA 代码 设置 窗口 显示 比例 的 代码 如 下 : 


Sub 窗口 显示 比例 () 
Dim s As Integer 


s = Application.InputBox (prompt :=" 请 输入 窗口 的 显示 比例 : " & _ 
vbCrLf & " (100 表示 正常 大 小 ，200 表示 双 倍 大 小 ， 依 次 类 推 ) 。 "，_ 
Title:=" 显 示 比 例 "，Default:=100, Type:=1) 

If s = 0 Then Exit sub 

ActiveWindow.Zoom = s 

End Sub 


运行 以 上 代码 ， 首 先 弹 出 如 图 15-7 所 示 的 对 话 框 ， 要 求 用 户 输入 显示 比例 ， 如 果 在 该 
对 话 框 中 单 击 【 取 消 】 按 钮 ， 则 返回 值 为 0， 将 退出 子 过 程 的 执行 。 
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图 15-7 输入 显示 比例 


15.2.6 ”设置 工作 筹 显示 选项 


通过 Window 对 象 的 以 下 3 个 属性 值 可 获取 或 设置 工作 敌 的 显示 选项 。 

口 DisplayHorizontalScrollBar: 水 平 滚动 条 ; 

口 DisplayVerticalScrollBar: 垂直 滚动 条 ; 

口 DisplayWorkbookTabs: 工作 表 标 签 。 

以 上 3 个 属性 值 如 果 为 True， 则 表示 显示 相关 的 元 素 ， 如 果 为 False 则 表示 隐藏 相关 

的 元 素 。 
例如 ， 以 下 代码 分 别 对 这 3 个 属性 值 取 反 ， 即 可 在 显示 或 隐藏 之 间 进 行 切换 。 
With ActiveWindow 

.DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar 
.DisplayVerticalScrollBar = Not .DisplayVerticalscrollBar 
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs 


End With 
End Sub 


通过 Window 对 象 的 以 下 3 个 属性 值 可 获取 或 设置 工作 表 的 显示 选项 。 

口 DisplayHeadings: 显示 行 号 列 标 ; 

口 DisplayFormulas: 显示 公式 ; 

口 DisplayZeros: 显示 0 值 。 

以 上 3 个 属性 值 如 果 为 True， 则 表示 显示 相关 的 元 素 ， 如 果 为 False 则 表示 隐藏 相关 
的 元 素 。 


15.2.7 ”设置 工作 表 网 格 线 
使 用 Window 对 象 的 DisplayGridlines 属性 可 获取 或 设置 工作 表 是 否 显示 网 格 线 , 如 果 
该 属性 值 为 Tme， 则 显示 网 格 线 。 


县 提示 : 该 属性 仅 影响 显示 的 网 格 线 ， 不 能 控制 网 格 线 的 打印 。 因 此 该 属性 仅 适 用 于 工作 
表 和 宏 工 作 表 。 
网 格 线 颜 色 可 使 用 Window 对 象 的 以 下 两 个 属性 进行 设置 。 
口 GridlineColor 属性 : 以 RGB 值 返 回 或 设置 网 格 线 颜 色 。 
口 GridlineColorIndex 属性 : 返回 或 设置 网 格 线 颜 色 ， 其 值 为 当前 调 色 板 中 的 索引 。 
使 用 以 下 代码 可 设置 网 格 线 颜 色 : 
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Sub 设置 网 格 线 颜色 () 
Dim i Rs Integer, r As Integer, g As Integer, b As Integer 
i = Application.InputBox (prompt :=" 请 选择 网 格 线 的 颜色 : " & _ 
VbCrLf & " (1. 红色 2. 绿色 3. 蓝 色 ) "，_ 
Title:=" 网 格 线 颜 色 "，Default:=1, Type:=1) 
Select Case i 


Case 1: r=1 
Case 2: g=1 
Case 3: b=1 
End Select 
ActiveWindow.GridlineColor = RGB(r * 255, g * 255, b * 255) 
End Sub 


执行 以 上 代码 ， 将 弹出 如 图 15-8 所 示 的 对 话 框 ， 输 入 1 一 3 中 的 一 个 数 ， 即 可 将 网 格 
线 显 示 为 红 、 绿 、 蓝 色 。 


图 15-8 ”设置 网 格 线 颜色 


15.3 ”使 用 Chart 对 象 


在 Excel 中 对 数据 进行 分 析 时 ， 使 用 图 表 可 直观 地 查看 分 析 结 果 。Excel 提供 上 百 种 图 
表 类 型 ， 通 过 VBA 代码 可 以 控制 图 表 的 各 个 方面 。 

在 Excel 中 可 以 快速 简便 地 创建 图 表 , 在 程序 中 , 通过 VBA 代码 也 可 方便 地 创建 图 表 。 
在 Excel 中 创建 的 图 表 ， 可 以 嵌入 到 工作 表 中 数据 的 旁边 ， 也 可 插入 到 一 个 新 的 图 表 工 作 
表 中 ， 分 别称 为 嵌入 式 图 表 和 图 表 工作 表 。 


15.3.1 创建 图 表 工 作 表 


用 VBA 创建 图 表 工 作 表 ， 一 般 按 以 下 步骤 进行 : 

(1) 创建 一 个 空 的 图 表 工 作 表 。 

Charts 集合 包含 工作 短 中 所 有 图 表 工 作 表 的 集合 。 每 个 图 表 工 作 表 都 由 一 个 Chart 对 
象 来 表示 ， 但 不 包括 嵌入 在 工作 表 或 对 话 框 编辑 表 上 的 图 表 。 

通过 Charts 集合 的 Add 方法 可 向 集合 中 添加 新 的 图 表 工 作 表 (新 建 图 表 工 作 表 ), Add 
方法 的 语法 格式 如 下 : 


表达 式 .Add (Before, After, Count, Type) 


该 方法 的 参数 都 可 省 略 ， 各 参数 的 含义 如 下 所 述 。 
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Before: 指定 工作 表 的 对 象 ， 新 建 的 工作 表 将 置 于 此 工作 表 之 前 。 

After: 指定 工作 表 的 对 象 ， 新 建 的 工作 表 将 置 于 此 工作 表 之 后 。 

Count: 要 添加 的 工作 表 数 。 默 认 值 为 1。 

Type: 指定 要 添加 的 图 表 类 型 ， 可 创建 的 图 表 类 型 很 多 ， 具 体 可 参考 Excel VBA 
的 帮助 信息 。 


全 提示 : 如 果 Before 和 After 两 者 都 被 省 略 , 新建 的 图 表 工 作 表 将 插入 到 活动 工作 表 之 前 。 


(2) 设置 数据 源 区 域 。 

通过 Chart 对 象 的 SetSourceData 方法 ， 可 为 指定 图 表 设 置 源 数据 区 域 。 其 语法 格式 
如 下 : 

表达 式 .SetSsourceData(Source，P1otBy) 

该 方法 的 两 个 参数 含义 如 下 所 述 。 

口 Source: 为 一 个 Range 对 象 ， 用 来 指定 图 表 的 源 数 据 区 域 。 

口 PlotBy: 指定 数据 绘制 方式 。 可 使 用 常量 x1Columns (数据 系列 在 行 中 ) 和 xlRows 

(数据 系列 在 列 中 ) 之 一 。 

(3) 指定 图 表 类 型 。 

通过 Chart 对 象 的 ChartType 属性 可 获取 或 设置 图 表 类 型 。 

(4) 设置 图 标 标题 。 

通过 Chart 对 象 的 ChartTitle 属性 ， 可 返回 一 个 ChartTitle 对 象 ， 该 对 象 表示 指定 图 表 
的 标题 。 通 过 该 对 象 的 属性 可 控制 图 表 的 标题 ， 例 如 ， 设 置 标题 文本 、 设 置 标题 的 格式 等 。 


各 注意 : 只 有 图 表 的 HasTitle 属性 为 True 时 ，ChartTitle 对 象 才 存 在 ， 从 而 才能 使 用 该 


口 
口 
口 
口 


对 象 。 
以 下 代码 根据 工作 表 “ 成 绩 表 ”中 的 数据 ， 生 成 簇 状 柱 形 图 。 
Sub 创建 图 表 () 
Dim cht As Chart 
Set cht = Charts.Add "创建 图 表 对 象 
With cht 
.SetSourceData Source:=Sheets ("成 绩 表 ") .Range ("B2:E7")，PlotBy:= 
XxlRows 
' 指 定数 据 源 
.ChartType = xlColumnClustered 
.HasTitle = True "添加 标题 
-ChartTitle.Text = "成 绩 分 析 图 " 
End With 
End Sub 


执行 以 上 代码 ， 将 使 用 如 图 15-9 左 图 所 示 的 工作 表 “ 成 绩 表 ” 中 的 数据 ， 生 成 一 个 图 
表 工作 表 ， 如 图 15-9 右 图 所 示 。 
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图 15-9 ”创建 图 表 工 作 表 


15.3.2 ”创建 说 入 图 表 


图 表 工 作 表 对 象 为 Chart 对 象 ， 而 嵌入 到 工作 表 中 的 图 表 对 象 为 ChartObject 对 象 。 
ChartObjects 集合 包含 指定 工作 表 上 所 有 的 ChartObject 对 象 的 集合 。 

每 个 ChartObject 对 象 都 代表 一 个 嵌入 图 表 。ChartObject 对 象 充当 Chart 对 象 的 容器 。 
ChartObject 对 象 的 属性 和 方法 控制 工作 表 上 嵌入 图 表 的 外 观 和 大 小 。 

通过 ChartObjects 集合 的 Add 方法 ， 可 向 集合 中 添加 嵌入 式 图 表 。 其 语法 格式 如 下 : 

表达 式 .Add (Left, Top, Width, Height) 


该 方法 的 4 个 参数 指定 嵌入 式 图 表 尺 寸 ， 分 别 设置 左上 角 的 坐标 位 置 和 图 表 的 初始 
大 小 。 
使 用 ChartObjects 集合 的 Delete 方法 可 删除 指定 工作 表 的 嵌入 式 图 表 。 
使 用 以 下 代码 可 由 工作 表 “ 成 绩 表 ”中 的 数据 创建 一 个 嵌入 式 图 表 : 
Sub 创建 嵌入 图 表 () 
Dim cht As ChartObject 
On Error Resume Next 


RctiveSsheet .Chartobjects.Delete "删除 工作 表 中 已 有 的 嵌入 图 表 
On Error GoTo 0 


With Range("G2:L15") 
Set cht = ActiveSheet.ChartObjects.Addl( 


.Left, .Top, .Width, .Height) :创建 新 的 嵌入 图 表 
End With 
With cht 
.Name = "Results" "设置 嵌入 图 表 的 名 称 
With .Chart "指定 数据 源 
-SetSourceData Source:=Sheets (" 成 绩 表 ") .Range ("A2:D8")， PlotBy: 
=XlRows 


.ChartType = xlColumnClustered 


.SetElement msoElementChartTitleCenteredOverlay 
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"设置 图 表 标 题 
.ChartTitle.Text = "成 绩 分 析 图 " 
End With 
End With 

End sub 

以 上 代码 首先 删除 当前 工作 表 中 的 嵌入 图 表 ， 如 果 当 前 工作 表 中 没有 榜 入 图 表 ， 则 执 
行 Delete 方法 时 将 出 现 错误 ， 所 以 需 使 用 错误 捕捉 语句 获取 错误 。 接 着 使 用 ChartObjects 
集合 对 象 的 Add 方法 添加 一 个 嵌入 式 图 表 ， 最 后 设置 图 表 对 象 的 相关 属性 。 

执行 以 上 代码 ， 生 成 的 能 入 图 表 如 图 15-10 所 示 。 
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图 15-10 ”创建 嵌入 图 表 


15.3.3 ”转换 图 表 类 型 


Excel 中 的 图 表 分 为 两 种 ， 即 图 表 工 作 表 和 性 入 图 表 。 这 两 种 图 表 可 相互 转换 。 
通过 Chart 对 象 的 Location 方法 ， 可 改变 图 表 的 放置 位 置 。 该 方法 的 语法 格式 如 下 : 
表达 式 .Location (Where，Name) 


两 个 参数 的 含义 如 下 所 述 。 

口 Where: 用 来 设置 图 表 移动 的 目标 位 置 。 可 设置 为 xlLocationAsNewSheet (将 图 表 
移动 到 新 工作 表 ) 、xlLocationAsObject 〈 将 图 表 先 入 到 现 有 工作 表 中 ) 或 
xlLocationAutomatic (Excel 控制 图 表 位 置 ) 3 个 常量 之 一 。 

口 Name: 如 果 Where 为 xlLLocationAutomatic， 则 该 参数 为 必 选 参数 。 如 果 Where 为 
xlLocationAsObject， 则 该 参数 为 嵌入 该 图 表 的 工作 表 的 名 称 。 如 果 Where 为 
xlLocationAsNewSheet， 则 该 参数 为 新 工作 表 的 名 称 。 

以 下 代码 可 将 嵌入 图 表 转 为 图 表 工 作 表 : 

Sub 嵌入 图 表 转 换 为 图 表 工 作 表 () 

Dim cht As ChartObject 

On Error Resume Next 

Set cht = Activesheet.ChartObjects (1) 

IE cht Is Nothing Then Exit Sub 

cht . Chart -Location xlLocationRsNewSheet， "成 绩 分 析 图 " 
End sub 
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以 上 代码 通过 工作 表 的 ChartObjects 集合 返回 的 是 一 个 ChartObject 对 象 ， 要 改变 其 位 
置 ， 需 使 用 该 对 象 的 Chart 属性 返回 一 个 Chart 对 象 ， 通 过 Chart 对 象 的 Location 方法 才能 
改变 图 表 对 象 的 位 置 。 

以 下 代码 可 将 图 表 工 作 表 转 为 嵌入 图 表 : 


sub 图 表 工 作 表 转 为 嵌入 图 表 () 
Dim cht As Chart, chto As ChartObject 
On Error Resume Next 
Set cht = Charts ("成 绩 分 析 图 ") 
IE cht Is Nothing Then Exit Sub 
cht .Location xlLocationRsObject，RActiveSheet .Name 


Set chto = RARctiveSheet .Chartobjects (1) 
With Range ("G2:L15") 
chto.Top = .Top 
chto.Left = .Left 
chto.Width = .Width 
chto.Height = .Height 
End With 
End Sub 


以 上 代码 中 ， 首 先 获取 图 表 工 作 表 的 引用 ， 再 通过 Location 方法 改变 其 位 置 。 将 图 表 
工作 表 改 为 与 入 式 图表 后 ， 榜 入 图 表 将 使 用 默认 的 位 置 。 为 了 不 使 嵌入 图 表 遮 掩 数据 ， 程 
序 最 后 修改 了 嵌入 式 图表 的 位 置 。 


15.3.4 ”获取 图 表 标题 信息 


图 表 对 象 由 多 个 子 对 象 组 成 ， 例 如 ， 图 表 对 象 包括 图 表 标 题 对 象 、 图 例 对 象 、 坐 标 轴 
对 象 等 子 对 象 。 
如 果 图 表 有 可 见 标题 ，HasTitle 属性 为 True。 在 对 图 表 标 题 对 象 进行 操作 之 前 ， 应 该 
先 使 用 该 属性 判断 图 表 是 否 有 标题 。 
ChartTitle 对 象 代表 图 表 标 题 。 使 用 图 表 对 象 的 ChartTitle 属性 可 返回 ChartTitle 对 象 。 
只 有 图 表 的 HasTitle 属性 为 True 时 ，ChartTitle 对 象 才 存 在 ， 从 而 才能 使 用 该 对 象 。 
通过 ChartTitle 对 象 的 属性 和 方法 可 控制 图 表 的 标题 。 例 如 ， 使 用 以 下 代码 可 显示 图 
表 的 标题 信息 : 
Sub 图 表 标 题 信息 () 
Dim chto As ChartObject, cht As Chart 
Dim i Rs Integer, strl As String 
=1 
For Each chto In ActiveSheet.ChartObjects 
Set cht = chto.Chart 
IE cht.HasTitle Then 
With cht.ChartTitle 
strl = "第 " & i & "个 嵌入 图 表 的 标题 信息 : " & vbNewLine & vbNewLine 
& 
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"名 称 : " & .Name & vbNewLine & _ 
"文字 : " & .Text & vbNewLine & _ 
"字体 : " & .Font.Name & vbNewLine & _ 
"字号 : " & .Font.Size & vbNewLine & _ 
"颜色 : " & .Font.ColorIndex 
End With 
Else 
strl = "第 " & i & "个 嵌入 图 表 没 有 标题 ! " 
End If 


MsgBox strl 
:i 
Next 
End Sub 


以 上 代码 将 循环 处 理 当 前 工作 表 中 的 各 嵌入 图 表 ， 并 分 别 显示 各 嵌入 图 表 的 标题 
信息 。 


15.3.5 图 表 的 系列 信息 


SeriesCollection 对 象 表示 指定 的 图 表 或 图 表 组 中 所 有 Series 对 象 的 集合 。 使 用 Chart 
对 象 的 SeriesCollection 方法 可 返回 SeriesCollection 集合 。 


名 注意 :SeriesCollection 对 象 是 一 个 集合 对 象 。 


Series 对 象 代表 图 表 上 的 一 个 系列 。Series 对 象 是 SeriesCollection 集合 的 成 员 。 使 用 
SeriesCollection(index)( 其 中 index 是 系列 索引 号 或 名 称 ) 可 返回 一 个 Series 对 象 。 

在 实际 使 用 中 ， 一 般 不 需要 明显 地 定义 Series 对 象 ， 而 是 通过 SeriesCollection(w) 的 形 
式 访问 一 个 Series 对 象 ， 再 通过 Series 对 象 的 Formula 属性 获取 以 Al 样式 表示 系列 的 公 
式 字 符 串 。 

例如 ， 使 用 以 下 代码 可 显示 当前 图 表 的 系列 信息 : 


Sub 系列 信息 () 
Dim chto As ChartObject, cht As Chart, rng As Range 
Dim i As Integer, j As Integer, w As Integer 
Dim strl As String, str2 Rs String, str3 Rs String 
Dim arrl, arr2 
arrl = Array ("系列 "，"X 轴 数 据 源 "，"Y 轴 数 据 源 ") 
=1 
For Each chto In ActiveSheet.ChartObjects 
Set cht = chto.Chart 
人 
For w = 1 To cht.SeriesCollection.Count 


str2 = cht .SeriesCollection(w) .Formula ' 获 取 指 定 系 列 的 公式 

str2 = Mid(str2，Len("=SERIES(") + 1) ' 将 公式 字符 串 中 前 面 的 字符 去 掉 
str2 = Left (str2, Len(str2) - 3) ' 去 掉 后 面 的 多 余 字 符 

Er2, = SPLit (atr2, wx "将 系列 各 部 分 分 解 到 数组 中 
For j = 0 To UBound(arr2) - 1 "获取 各 部 分 的 具体 值 
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Set rng = Nothing 
On Error Resume Next 
Set rng = Application.Evaluate (arr2(j)) ' 获 取 单 元 格 区 域 
On Error GoTo 0 
If Not rng Is Nothing Then 
I 3 = 0 Thon 


str3 = rng.Value "系列 名 称 字符 串 
Else 
str3 = rng.Address ' 数 据 源 单元 格 区 域 地 址 
End If 
strl = strl & arrl(j) & w& ": " & str3 & vbCcrLf 
End If 
Next j 
strl = strl & vbNewLine 
Next w 
MsgBox strl "显示 一 个 嵌入 图 表 的 系 
列 信 息 
1 
Next 
End sub 


执行 以 上 代码 ， 将 弹出 一 个 对 话 框 如 图 15-11 所 示 ， 在 该 对 话 框 中 显示 了 嵌入 图 表 的 
系列 信息 。 


图 15-11 系列 信息 
15.3.6 ”调整 图 表 的 数据 源 


使 用 Chart 对 象 的 SetSourceData 方法 ， 可 为 指定 图 表 设 置 源 数据 区 域 。 该 方法 的 语法 
格式 如 下 : 


表达 式 .SetSourceData(Source，P1otBy) 


两 个 参数 的 含义 如 下 所 述 。 

口 Source: 指定 源 数据 区 域 的 Range 对 象 。 

口 PlotBy: 设置 数据 绘制 方式 。 可 为 常量 x1Columns (数据 系列 在 行 中 ) 或 xlRows 
(数据 系列 在 列 中 ) 之 一 。 

使 用 以 下 代码 可 调整 图 表 的 数据 源 : 
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Sub 调整 图 表 数 据 源 () 
Dim myCell As Range 
If ActiveChart Is Nothing Then 


MsgBox "请 选择 需要 调整 数据 源 的 图 表 ! " 


Exit Sub 
End If 
' 选 择 需要 制作 图 表 的 区 域 
Set myCell = Application.InputBox (prompt :=" 请 选择 调整 的 数据 源 区 域 。"， 
Type:=8) 


ActiveChart .SetSourceData Source:=myCell 
End Sub 


以 上 代码 首先 判断 用 户 是 否 选 中 图 表 ， 接 着 弹出 对 话 框 让 用 户 输 入 或 选择 新 的 数据 源 
区 域 ， 最 后 使 用 SetSourceData 方法 为 图 表 设置 新 的 数据 源 。 


15.3.7 ”将 图 表 保 存 为 图 片 


使 用 ChartObjects 对 象 的 CopyPicture 方法 ,可 将 选中 的 图 表 作 为 图 片 复 制 到 剪贴 板 中 。 
该 方法 的 语法 格式 如 下 : 
表达 式 .copyPicture (Appearance, Format) 


其 中 ， 参 数 Appearance 表示 设置 图 片 的 复制 方式 。 可 设置 为 以 下 两 个 常量 之 一 。 
口 xlScreen: 图 片 尽 可 能 按 其 屏幕 显示 进行 复制 ， 这 是 默认 值 。 
口 xlPrinter: 图 片 按 其 打印 效果 进行 复制 。 
参数 Format 表示 设置 图 片 的 格式 。 可 设置 为 以 下 两 个 常量 之 一 。 
口 xlBitmap: 位 图 (.bmp、.jpg、.gif) 。 
口 xlPicture: 绘制 图 片 (.png、.wmf、.mix) 。 
使 用 以 下 代码 ， 可 将 图 表 保 存 为 图 片 : 
sub 保存 为 图 片 () 
If ActiveChart Is Nothing Then 
MsgBox "请 选择 需要 设置 格式 的 图 表 ! " 
Exit Sub 
End If 
ActiveChart .CopyPicture Appearance:=xlScreen, Format:=xlBitmap 
ActiveWindow.Visible = False 
Range ("I1") .Select 
ActiveSheet .Paste 
End Sub 


15.3.8 ”使 用 府 入 图 表 事 件 


工作 敌 中 的 图 表 工 作 表 对 象 Chart 与 工作 表 对 象 Worksheet 具有 类 似 的 事件 ， 通 过 该 
事件 可 响应 用 户 对 图 表 的 操作 。 
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与 图 表 工 作 表 不 同 ， 嵌 入 图 表 位 于 工作 表 中 ， 因 为 图 表 的 事件 都 被 工作 表 截 获 ， 从 而 
不 能 对 图 表 实 现 事件 驱动 。 要 捕获 嵌入 图 表 的 事件 ， 还 需要 通过 一 个 类 模块 来 进行 转换 ， 
具体 步骤 如 下 : 

(1) 创建 一 个 类 模块 ， 在 其 中 声明 一 个 公共 的 Chart 对 象 ， 声 明 该 对 象 时 必须 使 用 
WithEvents 关键 字 ， 该 关键 字 说 明 声 明 的 变量 是 用 来 响应 由 ActiveX 对 象 触发 的 事件 的 对 
象 变量 。 只 有 在 类 模块 中 声明 才 是 合法 的 ， 其 代码 如 下 : 


Public WithEvents myChartClass Rs Chart 


(2) 在 类 模块 中 定义 需要 捕获 的 事件 ， 并 编写 相应 的 事件 过 程 代码 。 例 如 ， 要 捕获 
Select 事件 ， 可 以 编写 以 下 事件 过 程 : 
Private Sub myChartClass Select (ByVal ElementID As Long, _ 
ByVal Argl As Long, ByVal Arg2 Rs Long) 
(3) 创建 一 个 模块 ， 用 前 面 定 义 的 类 模块 声明 一 个 变量 ， 例 如 以 下 的 代码 : 
Dim MyChart As New myChartClass 
(4) 在 模块 中 编写 代码 ， 将 变量 与 某 个 工作 表 中 的 嵌入 图 表 建立 起 连接 ， 例 如 以 下 的 
代码 : 
Sub EnableCchartClass () 
Set MyChart.myChartClass = Worksheets ("成 绩 表 ") .Chartobjects (1) .Chart 
End Sub 
下 面 以 具体 的 实例 演示 激活 嵌入 式 图表 事 件 的 方法 ， 具 体 步骤 如 下 : 
(1) 在 有 翌 入 图 表 的 工作 夭 中 进入 VBE。 
(2) 在 VBE 中 单 击 主 菜单 【插入 】|【 类 模块 】 命 令 ， 插 入 一 个 类 模块 。 
(3) 在 属性 窗口 中 修改 类 模块 的 名 称 为 myChartClass， 如 图 15-12 所 示 。 


15-12 ”定义 类 模块 名 称 
(4) 在 类 模块 中 输入 以 下 代码 定义 一 个 公共 变量 。 
Public WithEvents myChartClass As Chart 


(5) 在 类 模块 myChartClass 中 编写 事件 过 程 代码 。 在 类 模块 myChartClass 的 对 象 下 拉 
列表 中 选择 myChartClass， 在 事件 下 拉 列 表 中 选择 Select， 系 统 将 自动 生成 事件 过 程 的 结 
构 ， 并 自动 填 入 事件 的 参数 。 具 体 的 代码 如 下 : 


Private Sub myChartClass_ Select (ByVal ElementID As Long, ByVal Argl As Long, 
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ByVal Arg2 Rs Long) 

Dim strl As String 

Select Case ElementID 
Case xlChartArea: strl = "图 表 区 " 
Case xlChartTitle: strl "图 表 标 题 " 
Case xlPlotArea: strl = "绘图 区 " 
Case xlLegend: strl = "图 例 " 
Case xlLegendEntry: strl = "图 例 项 " 
Case xlLegendKey: strl = "图 例 标示 " 
Case xlRxis: strl = "坐标 轴 " 
Case xlRxisTitle: strl = "坐标 轴 标题 " 
Case xlMajorGrstrllines: strl = "主要 网 格 线 " 
Case xlMinorGrstrllines: strl = "次 要 网 格 线 " 
Case xlDataLabel: strl = "数据 标签 " 
Case xlDataTable: strl = "数据 表 " 
Case xlDropLines: strl = "垂直 线 " 
Case xlErrorBars: strl = "误差 线 " 
Case xlHiLoLines: strl = "高 低 点 连 线 " 
Case xlSeries: strl = "系列 " 
Case xlSeriesLines: strl = "系列 线 " 


Case xlShape: strl = "图 形 " 
Case xlFloor: strl = "基底 " 


Case xlWalls: strl = "背景 墙 " 
Case xlNothing: strl = "Nothing" 
Case Else:: strl = "未 识别 对 象 " 


End Select 
MsgBox "你 选择 的 是 : " & strl 
End Sub 


(6) 在 VBE 中 单 击 主 菜单 【插入 】 代 模块 】 命 令 ， 插 入 一 个 名 称 为 “模块 2” 的 模块 ， 
在 模块 的 声明 部 分 定义 一 个 模块 变量 。 
Dim MyChart Rs New myChartClass 


(7) 在 “模块 2” 中 编写 以 下 代码 ， 将 模块 中 的 变量 与 “成 绩 表 ”中 的 嵌入 图 表 连 接 
起 来 。 
Sub EnableChartClass() 


Set MyChart.myChartClass = Worksheets ("成 绩 表 ") .ChartObjects(1) .Chart 
End Sub 


执行 过 程 EnableChartClass 后 ， 在 嵌入 图 表 上 单 击 时 ， 嵌 入 式 图 表 将 响应 用 户 的 操作 
事件 ， 执 行 类 模块 中 的 myChartClass_Select 事件 过 程 ， 并 弹出 一 个 对 话 框 ， 显 示 单 击 处 的 
子 对 象 名 称 。 

(8) 如 果 要 禁止 嵌入 图 表 响 应 用 户 事件 ， 可 设置 对 象 变量 MyChart 的 值 为 Nothing。 
代码 如 下 : 

Sub DisablechartCclass () 


Set MyChart = Nothing 
End Sub 


一 一 和 
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在 Excel 中 ， 用 户 大 部 分 时 间 是 在 工作 表 中 进行 操作 。 在 使 用 VBA 开发 应 用 程序 时 ， 
为 了 保护 数据 、 简 化 用 户 操 作 ， 可 通过 设计 美观 的 用 户 窗 体 ， 使 用 户 直 接 在 窗 体 上 进行 操 
作 即 可 将 数据 保存 到 工作 表 中 。 

和 以 前 版 本 的 Excel 相 比 ，Excel 2007 采用 了 全 新 的 面向 结果 的 用 户 界面 。 以 前 版 本 


中 熟悉 的 菜单 栏 和 工具 栏 消失 了 ， 被 称 为 “功能 区 ”(Ribbon) 的 面板 取代 。 
本 部 分 共 6 章 ， 详 细 介绍 了 在 Excel 中 开发 应 用 程序 的 用 户 界面 设计 知识 。 
PI 第 16 章 使 用 Excel 内置 对 话 框 
MW 第 17 章 创建 自 定义 对 话 框 
WP 第 18 章 使 用 标准 控件 
WI 第 19 章 使 用 ActiveX 控件 


WI 第 20 章 使 用 RibbonX 


WP 第 21 章 使 用 CommandBars 


第 16 章 使 用 Excel 内 置 对 话 框 


Excel 使 用 了 大 量 的 内 置 对 话 框 ， 例 如 ， 新 建 、 打 开 、 保 存 工作 敌 ， 设 置 单元 格格 式 
等 。 在 VBA 中 ，Excel 提供 了 调用 这 些 内 置 对 话 框 的 接口 ， 使 开发 者 可 充分 利用 内 置 对 话 
框 实现 更 多 操作 。 本 章 将 介绍 在 VBA 中 调用 Excel 内 置 对 话 框 的 方法 。 


16.1 了 解 Excel 内 置 对 话 框 


在 VBA 中 ，Application 对 象 提供 了 许多 方法 ， 用 来 显示 信息 或 接收 用 户 输入 。 
Application 对 象 提供 以 下 方法 ， 可 以 打开 相应 的 内 置 对 话 框 。 

口 FindFile 方法: 显示 【打开 】 对 话 框 。 

口 GetOpenFilename 方法 : 显示 标准 的 【打开 】 对 话 框 ， 并 获取 用 户 文件 名 ， 而 不 必 


真正 打开 任何 文件 。 
口 GetSaveAsFilename 方法 : 显示 标准 的 【另存 为 】 对 话 框 ， 获 取 用 户 文件 名 ， 而 无 
须 真 正 保存 任何 文件 。 


口 InputBox 方法 : 显示 一 个 接收 用 户 输入 的 对 话 框 。 返 回 此 对 话 框 中 输入 的 信息 。 

在 本 书 第 5 章 中 曾 介 绍 了 InputBox 方法 、MsgBox 函数 的 使 用 方法 。 本 章 将 介绍 其 他 
方法 打开 的 对 话 框 。 

更 多 的 内 置 对 话 框 是 由 Application 对 象 的 Dialogs 属性 提供 , 该 属性 返回 一 个 Dialogs 
集合 , 该 集合 包含 了 Excel 所 有 的 内 署 对 话 框 。 本 章 第 5 节 将 介绍 使 用 Dialogs 属性 调用 内 
署 对 话 框 的 方法 。 


16.2 使 用 FindFile 打开 文件 


使 用 Application 对 象 的 FindFile 方法 ， 可 显示 如 图 16-1 所 示 的 【打开 】 对 话 框 ， 在 该 
对 话 框 中 选择 一 个 文件 ， 单 击 【 打 开 】 按 钮 打开 一 个 文件 。 如 果 成 功 打 开 一 个 新 文件 ， 则 
该 方法 返回 Trme。 如 果 用 户 单 击 【 取 消 】 按 钮 退出 该 对 话 框 ， 则 该 方法 返回 False。 

在 【打开 】 对 话 框 的 【文件 类 型 】 下 拉 列 表 框 中 ， 列 出 了 Excel 能 打开 的 各 种 文件 
类 型 。 

使 用 以 下 代码 可 显示 【打开 】 对 话 框 : 

Sub 打开 工作 短 () 
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Dim wb As Workbook 

Set wb = ActiveWorkbook 

If Application.FindFile Then 
MsgBox "已 打开 工作 德 文件 ! " 
wb.Activate 

Else 
MsgBox "打开 工作 簿 失败 ! " 

End If 

End Sub 


国 rinaon 旬 aa 
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图 16-1 【打开 】 对 话 框 


16.3 ”使 用 GetOpenFilename 获取 文件 名 


使 用 Application 对 象 的 FindFile 方法 可 显示 【打开 】 对 话 框 ， 用 户 在 对 话 框 中 选择 文 
件 名 后 ， 单 击 【 打 开 】 按 钮 将 打开 选中 的 文件 。 在 某 些 情况 下 ， 可 能 程序 首先 需要 获取 用 
户 要 打开 的 一 个 或 多 个 文件 名 ， 经 过 VBA 代码 进行 处 理 后 ， 再 调用 相应 的 命令 打开 文件 。 
这 时 ， 可 使 用 Application 对 象 的 GetOpenFilename 方法 。 


16.3.1 GetOpenFilename 方法 


使 用 Application 对 象 的 GetOpenFilename 方法 ， 将 打开 一 个 标准 的 【打开 】 对 话 框 ， 
让 用 户 在 计算 机 中 选择 盘 符 、 路 径 、 文 件 类 型 和 文件 名 等 信息 。 当 用 户 在 该 对 话 框 中 单 击 
【打开 本 按钮 时 , 将 返回 选择 的 路 径 和 文件 名 , 但 并 不 真正 执行 打开 操作 。 其 语法 格式 如 下 : 


表达 式 .GetopenFilename (FileFilter, FilterIndex, Title, ButtonText, Multi 
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Select) 


该 表达 式 中 的 所 有 参数 都 是 可 选 的 ， 各 参数 的 描述 如 下 所 述 。 


口 


FileFilter: 一 个 指定 文件 筛选 条 件 的 字符 串 。 


在 FileFilter 参数 中 传递 的 字符 串 由 文件 筛选 字符 串 以 及 后 跟 的 DOS 通配符 文件 筛选 
规范 组 成 ， 中 间 以 逗号 分 隔 。 每 个 字符 串 都 在 “文件 类 型 ”下 拉 列 表 框 中 列 出 。 例 如 ， 下 


列 字 符 串 指定 两 个 文件 筛选 


文本 和 加 载 宏 : 


“文本 文件 (* .txt) 、* .上 xt、 加 载 宏文 件 (*.xla)、*.xla”。 

如 果 省 略 FileFilter， 则 此 参数 默认 为 : 

“所 有 文件 汪汪 ) 部 区 

要 为 单个 文件 筛选 类 型 使 用 多 个 通配符 表达 式 ， 需 用 分 号 将 通配符 表达 式 分 开 。 例 如 : 


"Excel 文件 (*.xls;*.xlsx;*.xlsm) ,*.xls;*.Xlsx;*.Xxlsm," 


口 


OO OO 


FilterIndex: 指定 默认 文件 筛选 条 件 的 索引 号 ， 取 值 范围 为 1 到 FileFilter 所 指定 的 
筛选 条 件数 目 。 如 果 省 略 该 参数 ， 或 者 该 参数 的 值 大 于 可 用 筛选 条 件数 ， 则 使 用 
第 一 个 文件 筛选 条 件 。 

Title: 指定 对 话 框 的 标题 。 如 果 省 略 该 参数 ， 则 标题 为 “打开 ”。 

ButtonText: 用 于 设置 对 话 框 中 按钮 上 的 文本 ， 在 PC 机 中 不 能 使 用 。 

MultiSelect: 如 果 为 False (默认 值 )， 则 只 允许 选择 一 个 文件 名 。 如 果 为 True， 则 
允许 选择 多 个 文件 名 ， 返 回 值 是 一 个 包含 所 有 选 定 文件 名 的 数组 〈 即 使 仅 选 定 了 
-个 文件 名 )。 


16.3.2 ”获取 单个 文件 名 


使 用 Application 对 象 的 GetOpenFilename 方法 时 ，MaultiSelect 参数 的 默认 值 为 False， 
表示 只 允许 用 户 在 对 话 框 中 选择 一 个 文件 名 。 例 如 ， 下 面 的 代码 提示 用 户 选择 文件 名 ， 在 
这 段 代 码 中 ， 用 户 一 次 只 能 选择 一 个 文件 名 。 

Sub 获取 单个 文件 名 () 


>. 


Dim strFilt As String 
Dim strTitle As String 
Dim strFname As Variant 
SEEEiLE = nme 人 Ec) Er 
"Excel 文件 (*.xls;*.xlsx;*.Xxlsm) ,*.Xxls;*.Xlsx;*.Xxlsm," & 二 
"所 有 文件 (*.#) ,二 -4 
strTitle = "打开 Excel 文件" 
strFname = Application.GetOpenFilename _ 
(filefilter:=strFilt, _ 
Title:=strTitle) 
If strFname = False Then 
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MsgBox " 没 选 择 文件 ! " 
Else 
MsgBox "选择 的 文件 是 : " & strFname 
End If 
End Sub 


全 注意 : 接受 GetOpenFilename 方法 返回 值 的 变量 必须 是 一 个 Variant。 


执行 以 上 代码 ， 在 显示 标准 的 【打开 】 对 话 框 中 ， 用 户 可 改变 查找 范围 、 更 换文 件 类 
型 ， 选 中 需要 打开 的 文件 后 单 击 【打开 】 按 钮 ， 将 返回 文件 的 路 径 和 名 称 ， 供 打开 程序 的 
代码 使 用 。 


16.3.3 ”获取 多 个 文件 名 


如 果 人 允许 用 户 一 次 选择 多 个 文件 ， 则 需要 将 GetOpenFilename 方法 的 MultiSelect 参数 
设置 为 True。 例 如 ， 下 面 的 代码 将 允许 用 户 在 【打开 】 对 话 框 中 选择 多 个 文件 。 


Sub 获取 多 个 文件 名 () 
Dim strFilt Rs String 
Dim strTitle As String 
Dim strFname As Variant 
Dim i As Integer 
Dim strMsg As String 
strFilt = "文本 文件 (*.txt),*.txt," 区 
"Excel 文件 (*.xls;*.xlsx;*.Xxlsm) ,*.Xxls;*.Xxlsx;*.xlsm," & 局 
"所 有 文件 (*.*) ,*.*" 
strTitle = "打开 Excel 文件 " 
strFname = Application.GetOpenFilename _ 
(filefilter:=strFilt, _ 
Title:=strTitle, _ 
Multiselect :=True) !' 允 许 选 择 多 个 文件 
If Not IsArray(strFname) Then  ' 返 回 值 不 是 数组 
MsgBox " 没 选 择 文件 ! " 
Else 
For i = LBound (strFname) To UBound (strFname) 
strMsg = strMsg & strFname (i) & vbCrLf 
Next 
MsgBox "选择 的 文件 是 : " & vbNewLine & strMsg 
End If 
End Sub 


执行 以 上 代码 ， 将 显示 如 图 16-2 所 示 的 【打开 】 对 话 框 ， 按 住 Ctrl 键 ， 并 在 对 话 框 中 
单 击 选中 需要 打开 的 多 个 文件 ， 然 后 单 击 【 打 开 】 按 钮 ， 选 中 的 文件 名 将 返回 到 一 个 数组 


“MM 
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中 ， 最 后 使 用 MsgBox 函数 将 用 户 选中 的 文件 名 显示 出 来 ， 如 图 16-3 所 示 。 


a 
EV\exesl2007, 15 章 \ 便 用 Window 对 香 . xls 


图 16-2 选择 多 个 文件 名 图 16-3 选择 的 文件 


16.4 使 用 GetSaveAsFilename 获取 保存 文件 名 


与 GetOpenFilename 方法 类 似 ， 使 用 Application 对 象 的 GetSaveAsFilename 方法 可 打 
开标 准 的 【另存 为 】 对 话 框 ， 在 该 对 话 框 中 用 户 可 以 选择 〈 或 输入 ) 一 个 文件 名 。 其 语法 
格式 如 下 : 

表达 式 .GetsaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, 

ButtonText) 


其 参数 与 GetOpenFilename 方法 类 似 ， 这 里 不 再 详 述 。 
外 注意 : GetOpenFilename 方法 只 返回 文件 名 及 其 路 径 ， 而 不 执行 具体 的 保存 操作 。 
下 面 的 代码 将 打开 一 个 【另存 为 】 对 话 框 : 


Sub 获取 保存 文件 名 () 
Dim fn As String 
fn = Application.GetSaveAsFilename( _ 
fileFilter:="Text Files (*.txt), *.txt") 


If fn <> "False" Then 
"在 此 处 编写 保存 文件 的 代码 
MsgBox "保存 文件 为 : " & fn 
End If 
End Sub 
执行 以 上 代码 ， 将 显示 如 图 16-4 所 示 的 【另存 为 】 对 话 框 ， 选 择 好 保存 路 径 后 ， 输 入 
保存 文件 名 ， 单 击 【 保 存 】 按 钮 将 关闭 该 对 话 框 ， 并 返回 文件 名 及 其 位 置 ， 在 随后 的 代码 
中 可 将 文件 保存 在 设置 的 文件 名 中 。 
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图 16-4 【另存 为 】 对 话 框 


16.5 调用 Excel 内 置 对 话 框 


Application 对 象 除了 通过 前 面 介绍 的 几 个 方法 显示 常用 的 内 置 对 话 框 外 ， 还 可 使 用 
Dialogs 集合 访问 所 有 的 Excel 内 置 对 话 框 。 


16.5.1 Dialogs 集合 和 Dialog 对 象 

使 用 Appliation 对 象 的 Dialogs 属性 返回 一 个 Dialogs 集合 ， 该 集合 包含 了 Excel 所 有 
的 内 置 对 话 框 。 

1. Dialogs 集 合 


Dialogs 集合 为 Excel 中 所 有 Dialog 对 象 的 集合 。 每 个 Dialog 对 象 代表 一 个 内 置 对 话 
框 。Dialogs 集 没 有 提供 任何 方法 ， 因 此 不 能 向 该 集合 中 新 建 或 添加 内 管 对 话 框 。 该 集合 常 
用 的 属性 为 Count 和 Item。 

使 用 以 下 代码 可 显示 Excel 内 置 对 话 框 的 数量 : 


MsgBox Application.Dialogs.Count 


在 Excel 2007 中 , 以 上 代码 将 显示 1101, 即 Excel 2007 有 1101 个 内 置 对 话 框 ,在 Excel 
2003 中 运行 以 上 代码 ， 将 显示 为 849， 即 Excel 2003 中 有 849 个 内 置 对 话 框 。 


2. Dialog 对 象 


Dialog 对 象 代表 内 置 的 Excel 对 话 框 。 可 使 用 Dialogs 集合 中 的 Item 属性 访问 某 个 指 
定 的 内 署 对 话 框 。 
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Dialog 对 象 使 用 Show 方法 显示 内 置 的 对 话 框 ， 等 待 用 户 输入 数据 ， 然 后 返回 一 个 代 
表 用 户 响应 的 Boolean 值 。 其 语法 格式 如 下 : 

表达 式 .Show (Arg1, Arg2, Arg3, Arg4, Arg5, Argé6, Arg7, Arg8, Arg9, Arg10, Arg1l, 

Arg12, Arg13, Arg14, Arg1l5, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, 

Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) 

Show 方法 具有 30 个 可 选 参数 ， 分 别 为 Arg1 一 Arg30， 这 些 参 数 可 为 内 置 对 话 框 设置 
初始 参数 。 

Show 方法 的 返回 值 为 一 个 Boolean 值 。 如 果 用 户 在 内 置 对 话 框 中 单 击 【确定 】 按 钮 ， 
则 Show 方法 的 返回 值 为 True; 如 果 用 户 单 击 【取消 】 按 钮 ， 则 返回 值 为 False。 

对 于 一 些 内 置 对 话 框 (例如 【打开 】 对 话 框 )， 可 以 使 用 参数 argl、arg2、...、arg30 
设置 初始 值 。 

例如 ， 使 用 以 下 代码 ， 可 显示 【打开 】 对 话 框 : 

b = Application.Dialogs(1) .Show 

对 于 上 千 个 内 置 对 话 框 ,如 果 使 用 数值 代码 表示 , 将 很 不 直观 ,也 不 方便 代码 的 阅读 。 
VBA 中 为 每 个 对 话 框 设置 了 一 个 常数 ， 通 过 常数 的 英文 字母 组 合 可 使 代码 更 易 阅 读 。 

例如 ， 使 用 xlDialogOpen 表示 【打开 】 对 话 框 ， 以 下 代码 也 可 显示 【打开 】 对 话 框 : 


b = Application.Dialogs (xlDialogOpen) .Show 


Excel 的 内 置 对 话 框 非 常 多 ， 要 获得 所 有 对 话 框 常量 ， 可 以 查询 帮助 系统 的 
XIlBuiltInDialog 枚 举 ， 如 图 16-5 所 示 。 
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在 VBA 中 ，Excel 将 多 页 对 话 框 当 作 多 个 对 话 框 。 例 如 ， 在 Excel 中 显示 的 【设置 单 
元 格格 式 】 对 话 框 由 多 个 页 组 成 ， 在 VBA 中 就 无 法 将 这 种 由 多 个 页 组 成 的 对 话 框 显示 出 
来 ， 但 可 以 分 别 显示 【数字 】、【 对 齐 】、【 字 体 】、【 边 框 】、【 填 充 】 和 【保护 】6 
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个 标签 页 面 ， 分别 使 用 6 个 常量 : xlDialogFormatNumber,， xlDialogAlignment， 
xlDialogActiveCellFont, xlDialogBorder, xlDialogColorPalette 和 xlDialogCellProtection 来 代 
表 这 6 个 标签 页 面 。 

以 下 代码 就 是 显示 【对 齐 】 标 签 页 的 效果 。 

Application.Dialogs (xlDialogAlignment) .Show 

执行 以 上 代码 ， 将 在 【设置 单元 格格 式 】 对 话 框 中 显示 【对 齐 】 标 签 页 的 内 容 ， 如 图 
16-6 所 示 。 


图 16-6 【对 齐 】 标 签 页 


16.5.2 ”使 用 内 置 对 话 框 的 初始 值 


在 一 般 情况 下 ， 使 用 Dialog 对 象 的 Show 方法 显示 Excel 内 署 对 话 框 时 ， 对 话 框 中 的 
各 控件 都 使 用 默认 的 初始 值 。 

大 多 数 内 部 Excel 对 话 框 都 有 很 多 参数 ， 可 用 于 设置 和 取得 对 话 框 中 的 值 。 为 了 设置 
内 置 对 话 框 选项 ， 可 使 用 相应 的 参数 。 

例如 ， 使 用 以 下 代码 可 显示 【设置 单元 格格 式 】 对 话 框 的 【字体 】 标 签 页， 如 图 16-7 
所 示 。 

Application.Dialogs (xlDialogFontProperties) .Show 


打开 该 对 话 框 后 ， 字 体 、 字 形 、 字 号 等 都 使 用 默认 的 值 。 在 VBA 程序 中 ， 若 需要 打 
开 该 对 话 框 时 ， 使 字体 、 字 形 、 字 号 等 使 用 另外 一 个 不 同 的 值 ， 则 可 在 Show 方法 中 输入 
不 同 的 参数 ， 使 对 话 框 在 显示 出 来 时 就 具有 不 同 的 初始 值 。 

通过 16.5.1 节 介绍 的 Show 方法 的 语法 格式 可 知道 , Show 方法 最 多 可 使 用 30 个 参数 。 
不 同 的 内 置 对 话 框 所 使 用 的 参数 个 数 也 不 相同 。 在 【帮助 】 窗 口中 搜索 “内 置 对 话 框 参数 
列表 ”， 结 果 如 图 16-8 所 示 。 


sa 


Excel VBA 开发 技术 大 全 


口 岗 灌 中 
口上 奈 轩 
口 F 奈 外 


这 是 TrueType 字 售 。 同 一 种 字 信 笠 在 屏 疏 和 打印 机 上 同时 信用。 


微软 此 过 ”4AaBbCe 


岂 Excel 有 助 
ONALe 


[各 何 在 cul z00r 中 实现 
el 对 昌 模 可 和 


您 hlottatkama 全 
从 hotdittanens 对 象 
Wonlication 对 象 
mA 
对 成 员 


加 Medivecall 属性 

轿 Aetivechert 属性 

ActiveInermtienS 尖 
| 多 


DialogFiltor 
XIDialogFilerAdvanced 
XIDualogFnadFle 


operation lstref crieria ref copy_ref unique 


font, font.stylo, ez, st kothrough cuperecript 
xDaiogFonroparues SubsarIpb outine, shadow, underlne, color nor 
backgound, start char, char_rourt 


xiDialogFormatauto 


wDialogFormatchart 


xiDialogFormatFont 
xiDialogFormatLegerd 
xiDhalogFormatvaimn 


xiDialogFormatvbve 
xiDialogFormatMbve 


_| xDpaloorormatvbve 


mat_num, number font algnment, Dorder, 
Patiemy width 

layer_num, view, overlap, ange, gap_width 
op_dopth, chart_doph, dbughnut sizo, sie_num, 


i op, hilo, up_down, series_Ire, labels vary 
和 c+ wDialogFormatchartype apply_to, goup_rum dimeneion, ype_num 

color, backgd, apply, name_tert size_num, bold, 
xiDialogFormatFont italic, underlire, strike, outine, shadow, object_id, 
地 MtTn 对 委 start num, char_num 

他 var 3 掉 rame tax ske_rum, bold Ialc underine suke, 
您 Mainrtnmnts 对 和 多 color outine, shadow 


rame _text size_rum bold italic, underlne, strike, 
color outine, shadow cbjPct_id_text start_num, 
char_num 

Poeition_num 

type_num view, overlap, gap_widh, vary, drop, hilo, 
angle, gap_depth, chart_depth, up_down, series_line, 
labels, size 


offset, 1_offset, reference 
Xpos, Y_poe 
explosion_num 


16-8 ”内 置 对 话 框 参数 列表 


在 图 16-8 中 ,通过 对 话 框 常量 可 找到 相应 对 话 框 可 以 使 用 的 参数 名 称 。 例 如， 可 查看 
到 xlDialogFontProperties 对 话 框 的 参数 如 下 : 

font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, 
normal, background., start_char, char_count。 

以 上 共有 14 个 参数 。 在 【字体 】 对 话 框 中 ， 可 使 用 以 下 几 个 参数 设置 对 话 框 的 初 
始 值 。 

口 font: 字体 ， 以 文字 形式 表示 要 设置 的 初始 字体 ， 例 如 黑体 ; 

口 font_style: 字形 ， 以 文字 形式 表示 要 设置 的 字形 ， 例 如 粗 体 ; 
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size: 字号 ， 以 阿拉 伯 数 字 表 示 字 的 大 小 ， 例 如 20; 

strikethrough: 删除 线 ， 设 置 为 True 或 False; 

superscript: 上 标 ， 设 置 为 True 或 False; 

subscript: 下 标 ， 设 置 为 True 或 False; 

underline: 下 划 线 ， 可 设置 数字 1 一 5， 分 别 表 示 下 划 线 在 列表 框 中 的 位 置 ; 
color: 颜色 ， 设 置 为 数字 表示 颜色 索引 值 。 


了 解 以 上 参数 的 含义 后 ， 可 使 用 以 下 方式 调用 【字体 】 对 话 框 : 


Application.Dialogs (xlDialogFontProperties) .Show 


"黑体 "，" 粗 体 "，20， True, True, False, False, True, 5, 4, True, 3 


执行 以 上 代码 ， 打 开 的 对 话 框 如 图 16-9 所 示 。 


设置 单元 格格 式 


口 奈 ®@ 


尿 于 上 显示 的 是 模拟 字 佐 。 打 印 和 输出 时 梅 选用 与 之 相似 的 打印 机 字体 。 


图 16-9 设置 初始 值 的 对 话 框 


在 以 上 代码 中 ， 各 参数 的 顺序 必须 按照 【帮助 】 窗 口 里 列 出 的 顺序 给 出 。 不 用 的 参数 
也 需要 用 一 个 逗号 (，) 分 隔 。Show 方法 的 参数 也 支持 命名 参数 ， 使 用 命名 参数 的 方式 
可 不 按 顺序 给 出 各 参数 ， 代 码 可 改写 为 以 下 形式 : 


Application.Dialogs (xlDialogFontProperties) .Show _ 


arg1:=" 黑 体 "，arg2:=" 粗 体 "，arg3:=20，_ 
arg4:=True, arg5:=True, arg7:=True, arg8:=True, _ 
arg9:=5, arg10:=4, argll:=True, argl2:=3 


全 注意 ; 参数 不 是 使 用 帮助 系统 中 列 出 的 font, font style, size 之 类 的 关键 字 ， 而 是 使 用 与 


参数 出 现 顺序 对 应 的 Arg1、Arg2 等 例如， 参数 argl 对 应 font， 参 数 arg2 对 应 
font_style。xlDialogFontProperties 对 话 框 共有 14 个 参数 , 分 别 用 argl~arg14 与 各 
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在 VBA 中 ， 用 户 可 创建 自 定义 对 话 框 ， 在 对 话 框 中 放置 控件 ， 可 接收 用 户 输入 数据 ， 
也 可 将 应 用 程序 的 数据 显示 在 该 对 话 框 中 。 本 章 将 介绍 创建 自 定义 对 话 框 的 方法 。 


17.1 新 建 窗 体 


在 第 16 章 中 介绍 了 调用 Excel 内 置 对 话 框 的 方法 。 这 些 内 置 对 话 框 只 能 使 用 固定 格式 完 
成 相应 的 功能 。 在 很 多 情况 下 , 需要 开发 人 员 创 建 自 定义 对 话 框 , 用 来 接受 用 户 输入 数据 ， 
或 显示 信息 系统 中 的 数据 。 本 节 以 创建 一 个 【登录 】 窗 体 为 例 ， 介 绍 创建 用 户 窗 体 的 过 程 。 


17.1.1 新 建 窗 体 


要 创建 自 定义 对 话 框 , 需要 在 VBE 中 插入 一 个 用 户 窗 体 , 再 新 建 窗 体 , 具体 步骤 如 下 。 
(1) 在 Excel 环境 中 ,找到 【开发 工具 】 功 能 区 的 【代码 】 组， 单 击 Visual Basic 按钮 ， 
打开 VB 编辑 器 。 


名 提示: 也 可 以 按键 盘 上 的 快捷 键 AlttF11 打开 VB 编辑 器 。 


(2) 在 VBE 中 单 击 主 菜 单 的 【插入 】|【 用 户 窗 体 】 命 令 ， 向 工程 中 插入 一 个 用 户 窗 
体 ， 如 图 17-1 所 示 。 
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在 图 17-1 所 示 的 VBE 窗口 中 , 右 侧 主 窗 体 中 显示 了 一 个 名 为 UserForml 的 用 户 窗 体 。 
当 显 示 用 户 窗 体 时 ,在 VBE 窗口 中 将 显示 一 个 【工具 箱 】 子 窗 体 ， 该 子 窗 体 为 悬浮 状 ， 用 
户 可 根据 需要 将 其 拖 到 其 他 位 置 。 

通过 VBE[ 工 程 3 资 源 管理 器 窗口 中 的 快捷 菜单 也 可 向 工程 中 插入 用 户 窗 体 , 如 图 17-2 
所 示 。 从 弹出 的 快捷 菜单 中 依次 选择 【插入 】|【 用 户 窗 体 】 命 令 ， 即 可 创建 一 个 窗 体 。 


[2 
四 
图 17-2 通过 快捷 菜单 插入 用 户 窗 体 


17.1.2 设置 窗 体 属 性 


用 户 窗 体 作 为 VBA 中 的 一 个 对 象 ， 也 可 以 通过 属性 、 方 法 和 事件 对 其 进行 控制 。 对 
窗 体 的 事件 过 程 编写 代码 将 在 第 17.5 节 中 进行 介绍 。 下 面 介绍 用 户 窗 体 的 常用 属性 。 

创建 用 户 窗 体 后 ， 窗 体 的 属性 都 是 默认 值 。 开 发 人 员 可 以 通过 【属性 】 窗 口 修改 属性 
值 。 窗 体 的 常用 属性 如 下 所 述 。 

口 名 称 (Name) 属性 : 为 窗 体 设置 一 个 名 称 ， 在 程序 运行 时 ， 该 名 称 代表 窗 体 。 在 
程序 运行 时 窗 体 名 称 不 允许 修改 .用 户 窗 体 的 默认 名 称 是 UserForm 加 上 一 个 整数 ， 
例如 ， 第 一 个 用 户 窗 体 为 UserForml1， 第 二 个 为 UserForm2。 

口 BackColor 属性 和 ForeColor 属性 : BackColor 属性 设置 窗 体 的 背景 颜色 , ForeColor 
设置 窗 体 的 前 景色 〈 即 窗 体 中 显示 的 文本 和 图 形 的 颜色 ) 。 

口 BorderStyle 属性 : 通过 该 属性 为 窗 体 设置 边框 样式 , 在 VBA 中 窗 体 共有 两 种 边框 ， 
分 别 为 两 个 常量 : 
> fmBorderStyleNone， 值 为 0， 表 示 窗 体 无 可 见 的 边框 线 。 
> fimBorderStyleSingle， 值 为 1， 表示 控件 有 一 单线 的 边框 ， 这 是 默认 值 。 

口 Caption 属性 : 通过 该 属性 设置 窗 体 标题 栏 显 示 的 文字 。 当 窗 体 最 小 化 时 ， 该 文字 
显示 在 窗 体 任务 栏 中 。 创 建 窗 体 时 ，Caption 属性 的 值 是 UserForm 加 上 一 个 整数 。 

口 Enable 属性 : 通过 该 属性 设置 窗 体 是 否 对 用 户 的 操作 进行 响应 , 其 有 True 和 False 
两 个 值 ， 如 果 设 置 窗 体 的 Enable 属性 为 False， 则 该 窗 体 将 不 能 被 移动 ， 也 不 能 调 
整 大 小 ， 窗 体 上 的 控件 也 不 响应 用 户 的 操作 。 

口 Height 属性 和 Width 属性 : 这 两 个 属性 设置 窗 体 的 高 度 和 宽度 ， 以 磅 为 单位 。 当 


和 


Excel VBA 开发 技术 大 全 


改变 窗 体 大 小 时 ，Height 和 Width 属性 将 自动 更 新 。 

Left 属性 和 Top 属性 : Left 属性 设置 窗 体内 部 最 左 端 与 屏幕 最 左边 之 间 的 距离 ， 

Top 属性 设置 窗 体内 部 最 上 端 与 屏幕 最 上 端 之 间 的 距离 。 如 果 设 置 了 

StartUpPosition 属性 ， 则 这 两 个 属性 的 设置 有 可 能 将 不 起 作用 。 

Picture 属性 : 该 属性 设置 在 窗 体 中 显示 一 个 图 片 ， 单 击 Picture 属性 右 侧 的 按钮， 

将 打开 【加 载 图 片 】 对 话 框 ， 选 择 好 对 应 的 图 片 文件 后 单 击 【 打 开 】 按 钮 ， 即 可 

为 窗 体 设置 好 背景 图 。 

ScrollBars 属性 : 该 属性 设置 窗 体 是 否 有 垂直 或 水 平 滚动 条 ， 或 两 者 都 有 。 共 有 4 

种 参数 设置 ， 分 别 为 : 

> fmScrollBarsNone， 值 为 0， 表示 不 显示 滚动 条 ， 这 是 默认 设置 ; 

> fmScrollBarsHorizontal， 值 为 1， 表示 显示 水 平 滚动 条 ; 

> fmScrollBarsVertical， 值 为 2， 表示 显示 垂直 滚动 条 ; 

> fmScrollBarsBoth， 值 为 3， 表 示 垂 直 和 水 平 滚动 条 都 显示 。 

ShowModal 属性 : 设置 窗 体 在 显示 时 是 模式 的 或 者 无 模式 的 。 此 属性 在 运行 时 是 

只 读 的 。 

> 当 用 户 窗 体 是 模式 状态 时 , 在 使 用 该 应 用 程序 的 任何 其 他 部 分 以 前 都 必须 提供 
信息 或 者 关闭 用 户 窗 体 , 否则 将 不 执行 后 续 代 码 , 直到 用 户 窗 体 被 隐藏 或 卸载 。 
尽管 在 显示 一 个 用 户 窗 体 时 ， 该 应 用 程序 的 其 他 窗 体 无 效 ， 但 其 他 应 用 程序 
有 效 。 

> 当 用 户 窗 体 是 无 模式 状态 时 ， 不 关闭 用 户 窗 体 也 能 查看 其 他 窗 体 或 窗口 。 

StartupPosition 属性 : 返回 或 设置 一 个 值 , 用 来 指定 用 户 窗 体 第 一 次 出 现时 的 位 置 。 

可 以 用 以 下 的 值 来 设置 StartupPosition 属性 。 

> 0- 手 动 (Manual) : 没有 初始 设置 指定 ， 窗 体 初 始 位 置 由 Left 属性 和 Top 属性 

> 1- 所 有 者 中 心 (CenterOwner): 窗 体 出 现在 使 用 环境 的 中 心 。 

> 2- 屏 幕 中 心 (CenterScreen): 窗 体 出 现在 整个 屏幕 的 中 央 。 

> 3- 窗 口 缺 省 (Windows Default): 窗 体 以 默认 方式 出 现在 屏幕 的 左上 角 。 


了 解 用 户 窗 体 常 用 属性 后 ， 就 可 开始 设置 用 户 窗 体 的 属性 了 。 具 体 步 又 如 下 : 

(1) 单 击 选择 用 户 窗 体 ， 在 VBE 窗口 左下 方 的 【属性 】 子 窗口 中 设置 属性 。 

(2) 在 【属性 】 窗 口中 双击 【〈 名 称 )】)， 选 中 右 侧 的 默认 值 UserForm1， 将 其 修改 为 
frmLogin， 如 图 17-3 所 示 。 
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(3) 用 类 似 的 方法 ， 分 别 设置 窗 体 的 各 属性 为 以 下 值 ， 其 他 值 使 用 默认 值 。 

口 Caption 属性 : 登录 。 

口 StartupPosition 属性 : 2- 屏 幕 中 心 。 

设置 完 属性 后 的 用 户 窗 体 如 图 17-4 所 示 ， 从 外 观 上 可 以 看 到 用 户 窗 体 的 标题 改 为 了 
“登录 ”， 而 StartupPosition 属性 需要 在 运行 用 户 窗 体 时 才能 见 到 效果 。 


图 17-4 设置 属性 后 的 窗 体 


17.2 ”添加 控件 到 窗 体 


通过 上 节 介 绍 的 方法 ， 可 向 工程 中 插入 用 户 窗 体 。 这 时 的 窗 体 还 是 一 个 空白 ， 用 户 可 
通过 窗 体 标题 栏 中 的 按钮 来 控制 窗 体 ( 如 移动 、 最 小 化 、 关 闭 等 ) 。 要 使 窗 体 完成 与 用 户 
的 交互 ， 还 需要 在 窗 体 中 创建 控件 。 


17.2.1 工具 箱 


当 在 VBA 中 向 工程 插入 一 个 窗 体 后 ， 将 会 显示 出 【工具 箱 】， 在 该 工具 箱 中 包含 了 
内 置 的 窗 体 控件 。 拖 动工 具 箱 的 边框 可 调整 其 高 度 ， 如 图 17-5 所 示 为 工具 箱 中 各 控件 的 
名 称 。 


图 17-5 工具 箱 面板 


全 提示 : 如 果 VBE 窗口 未 显示 出 【工具 箱 〗， 可 以 单 击 主 菜单 【视图 〗| 【工具 箱 】 命 令 
将 其 显示 出 来 。 
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默认 情况 下 , 【工具 箱 】 中 显示 了 如 图 17-5 所 示 的 各 种 控件 图 标 。 在 用 户 窗 体 中 除了 
可 以 使 用 这 些 标准 控件 外 ， 还 要 对 其 进行 扩充 。 

在 VBA 中 使 用 ActiveX 控件 来 扩充 控件 工具 箱 , 使 用 ActiveX 控件 的 方法 与 使 用 其 他 
标准 控件 的 方法 完全 一 样 。 在 程序 中 加 入 ActiveX 控件 后 ， 它 将 成 为 开发 和 运行 环境 的 一 
部 分 ， 并 为 应 用 程序 提供 新 的 功能 。 

ActiveX 控件 保留 了 其 他 标准 控件 的 一 些 常用 属性 、 方 法 和 事件 ， 它 们 的 作用 也 相同 ， 
这 样 就 保证 了 VBA 程序 的 基本 能 力 。 下 面 以 MonthView 控件 为 例 ， 演 示 添 加 控件 到 工具 
箱 中 的 方法 。 

(1) 右 击 【 工 具 箱 】 的 空白 位 置 ， 将 弹出 如 图 17-6 所 示 的 快捷 菜单 。 

(2) 单 击 快捷 菜单 中 的 【附加 控件 】 命 令 , 打开 如 图 17-7 所 示 的 【附加 控件 】 对 话 框 。 


pF 旺 孙 一 一 一 一 一 一 一 
IE | 
广 :-) VideoSoft FlexArray Control 一 一 一 一 一 一 一 


位 置 。。。 c:NmDIDors\systwmsewysPLUPr3 .ocx | 


17-6 工具 箱 快 捷 菜 单 图 17-7 附加 控件 


(3) 在 【可 用 控件 】 列 表 框 中 找到 Microsoft MonthView Control 6.0 选项 ， 并 单 击 选择 
该 项 数据 ， 如 图 17-8 所 示 。 
(4) 单 击 【确定 】 按 钮 后 ， 工 具 箱 中 将 新 增加 MonthView 控件 ， 如 图 17-9 所 示 。 


可 用 控件 (): 


Mcrosoft ListVier Control, version 大 


C: MINDONS\systen32\nseomet2. ocx 


[" Wenthyiew Control 6.0 (SP4) 


图 17-8 选择 MonthView 控件 图 17-9 添加 控件 后 的 工具 箱 
(5) 将 控件 添加 到 工具 箱 后 ， 可 与 使 用 标准 控件 一 样 ， 向 窗 体 中 添加 日 历 控 件 。 


名 提示: 根据 Windows 操作 系统 安装 的 软件 不 同 ， 不 同 的 电脑 中 可 能 会 有 不 同 的 ActiveX 
控件 ， 常 见 的 有 日 历 、 电 子 表格 、 图 形 等 。 
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17.2.2 ”添加 控件 


向 窗 体 中 添加 控件 的 步 又 如 下 : 
(1) 在 【工具 箱 】 中 单 击 【 标 签 】 按 钮 。 
(2) 在 窗 体 中 单 击 鼠标 ， 可 将 【标签 】 控 件 添 加 到 窗 体 中 ， 如 图 17-10 所 示 。 


县 技巧 也 可 直接 从 【工具 箱 】 中 拖 动 控件 到 用 户 窗 体 来 添加 控件 。 


(3) 用 类 似 的 方法 , 向 窗 体 中 添加 两 个 标签 、 两 个 文本 框 、 两 个 按钮 后 , 得 到 如 图 17-11 
所 示 的 用 户 窗 体 。 


图 17-10 添加 控件 图 17-11 添加 控件 后 的 窗 体 


外 技巧 : 如 果 在 窗 体 中 需要 添加 多 个 相同 的 控件 ， 可 双击 【工具 箱 〗】 中 的 控件 按钮 ， 然 后 
在 窗 体 中 多 次 单 击 鼠 标 即 可 。 再 次 单 击 【 工 具 箱 】〗】 中 的 其 他 按钮 ， 将 取消 对 该 控 
件 按钮 的 按 下 状态 。 


17.3 设置 控件 属性 


通过 17.2 节 添 加 控件 的 操作 ， 已 将 窗 体 中 要 使 用 到 的 控件 添加 到 用 户 窗 体 中 。 这 时 ， 
窗 体 和 控件 都 使 用 默认 的 属性 值 。 开 发 人 员 必 须 通 过 修改 属性 值 ， 使 用 户 窗 体 使 用 于 特定 
的 用 途 。 例 如 ， 设 置 窗 体 名 称 、 各 相关 控件 显示 的 文字 等 。 


县 提示 : 在 实际 开发 过 程 中 ， 一 般 添 加 一 个 控件 就 设置 一 个 控件 的 属性 值 。 
17.3.1 控件 属性 
对 于 用 户 窗 体 中 的 控件 ， 具 有 一 些 相同 的 属性 ， 这 些 常用 属性 如 下 所 述 。 


口 Name (名 称 ) 属性 : 该 属性 用 来 指定 控件 的 名 称 ， 方 便 在 程序 中 引用 控件 。 
口 AutoSize 属性 : 对 于 有 题 注 的 控件 ，AutoSize 属性 规定 控件 是 否 将 自动 调整 大 小 
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以 显示 完整 题 注 。 对 于 没有 题 注 的 控件 ， 该 属性 规定 控件 是 否 将 自动 调整 大 小 以 
显示 保存 在 控件 中 的 信息 。 

口 Caption( 题 注 ) 属性 : 指定 在 控件 中 显示 的 文本 。 对 于 某 些 控件 ， 则 指定 在 标签 
中 显示 的 文本 。 如 果 控 件 的 题 注 太 长 ， 则 此 题 注 将 被 截 短 。 如 果 窗 体 的 题 注 太 长 ， 
而 题 注 栏 又 太 短 ， 此 题 注 将 带 省 略 号 显示 。 

口 Enabled 属性 : 用 Enabled 属性 可 使 控件 有 效 或 无 效 。 无 效 的 控件 显示 为 浅 灰色 ， 
有 效 控件 的 外 观 则 与 此 不 同 。 而 且 ， 如 果 控 件 中 显示 位 图 ， 则 当 控 件 变 灰 时 位 图 
也 随 之 变 灰 。 如 果 图 像 控件 的 Enabled 属性 为 False， 那 么 即使 该 控件 外 观 没有 变 
灰 ， 也 不 能 初始 化 事件 。 

口 Left 与 Top 属性 : Left 属性 用 于 设置 标签 与 窗 体 左 边框 之 间 的 距离 。Top 属性 用 于 
设置 标签 与 窗 体 上 边界 之 间 的 距离 。 

口 TabIndex 属性 : 指定 控件 在 窗 体 Tab 键 顺序 中 的 位 置 。 所 谓 Tab 键 顺序 ， 是 在 按 
下 Tab 键 或 ShifttTab 键 后 ， 焦 点 从 一 字段 移动 到 下 一 字段 的 次 序 。 

口 Visible 属性 : 定义 一 个 对 象 是 可 视 的 还 是 被 隐藏 的 。 将 窗 体 上 某 个 控件 的 Visible 
属性 设置 为 False 时 ， 该 控件 将 被 隐藏 ， 但 仍然 可 通过 VBA 代码 对 控件 的 设置 信 
息 进行 访问 。 例 如 ， 可 把 隐藏 窗 体 上 的 控件 的 值 作 为 查询 的 条 件 。 


17.3.2 ”设置 控件 属性 


在 用 户 窗 体 中 选中 一 个 控件 后 ,【 属 性】 窗口 将 显示 该 控件 的 属性 。 下 面 开始 设置 【 登 
录 】 用 户 窗 体 中 各 控件 的 属性 。 

(1) 在 用 户 窗 体 中 单 击 选中 名 为 Labell 的 标签 控件 。 

(2) 在 【属性 】 窗 口中 设置 Caption 属性 为 “用 户 名 : ”， 设 置 后 的 窗 体 如 图 17-12 
所 示 。 


图 17-12 设置 标签 控件 的 属性 


(3) 用 同样 的 方法 设置 标签 控件 Label2 的 Caption 属性 为 “密码 : ”。 
(4) 选中 名 为 TextBox1 的 文字 框 控 件 ， 设 置 该 控件 “(名 称 ) ”属性 为 txtName。 


名 注意: 对 于 窗 体 中 在 以 后 的 VBA 代码 中 要 访问 的 控件 ， 一般 应 设置 其 “(名 称 )” 属 性 为 
一 个 有 意义 的 名 称 。 
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(5) 选中 名 为 TextBox2 的 文字 框 控件 ， 设 置 其 “ (名称) ”属性 为 rtPwd。 该 文字 
框 用 来 接收 用 户 输 入 密码 ， 应 将 用 户 输入 的 密码 用 一 个 星 号 (*) 显示 ， 因 此 需 设 置 其 
PasswordChar 属性 为 “*”。 

(6) 选中 名 为 CommandButtonl 的 命令 按钮 控件 ， 设 置 各 属性 为 以 下 值 。 

口 “〔〈 名 称 ) ”属性 : 设置 为 cmdLogin。 

口 Caption 属性 : 设置 为 登录 。 

口 Default 属性 : 设置 为 True。 

(7) 用 类 似 的 方法 设置 名 为 CommandButton2 命令 按钮 的 各 属性 : 

口 “ (名称 ) ”属性 : 设置 为 cmdClose。 

口 Caption 属性 : 设置 为 关闭 。 

口 Cancel 属性 : 设置 为 True。 

将 各 控件 的 属性 设置 完成 后 ， 得 到 如 图 17-13 所 示 的 用 户 窗 体 。 


图 17-13 设置 属性 后 的 用 户 窗 体 


17.4 调整 窗 体 中 的 控件 


设计 用 户 窗 体 时 ， 要 求 尽 可 能 美观 整洁 、 简 单 实用 。 当 用 户 窗 体 中 的 控件 数量 较 多 时 ， 
如 何 安排 各 控件 的 位 置 ， 以 及 设置 控件 的 大 小 等 操作 就 显得 非常 重要 了 ， 下 面 介 绍 快速 调 
整 控件 大 小 及 排列 控件 位 置 的 方法 。 


17.4.1 设置 控件 大 小 


在 向 窗 体 中 添加 控件 时 ， 可 通过 拖 动 鼠标 来 控制 控件 的 大 小 。 对 于 已 经 添加 到 窗 体 中 
的 控件 ， 单 击 选中 时 其 周围 将 出 现 8 个 控制 点 ， 拖 动 这 些 控制 点 即 可 设置 控件 的 大 小 。 

当 窗 体 中 的 控件 较 多 时 ， 一 般 还 需要 将 类 似 的 控件 设置 为 大 小 相同 的 外 形 ， 这 时 可 按 
以 下 步骤 操作 : 

(1) 在 窗 体 的 空白 处 单 击 鼠 标 ， 拖 拉 出 一 个 方 框 ， 被 框 中 的 控件 处 于 选中 状态 ， 如 图 
17-14 左 图 所 示 。 也 可 按 住 Ctrl 键 并 依次 单 击 需要 设置 的 控件 ， 将 其 全 部 选中 ， 如 图 17-14 
右 图 所 示 。 
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图 17-14 选中 控件 
名 注意: 在 图 17-14 右 图 中 ， 有 一 个 被 选中 的 控件 的 控制 点 为 白色 ， 其 他 控件 的 控制 点 为 
黑色 ， 表 示 在 设置 相同 尺寸 时 ， 是 以 白色 控制 点 控件 的 尺寸 为 准 。 
(2) 右 击 任意 一 个 被 选中 控件 ， 打 开 如 图 17-15 所 示 的 快捷 菜单 ， 选 择 菜单 【统一 尺 
寸 】| 【两 者 都 相同 】 命 令 ， 使 所 选 控 件 的 宽度 、 高 度 和 最 后 一 个 选中 控件 白色 控制 点 ) 
的 宽度 、 高 度 相同 。 
全 技巧 : 单 击 主 菜单 【格式 〗| 【统一 尺寸 〗| 【两 者 都 相同 】 命 令 也 可 完成 相同 操作 。 


(3) 用 同样 的 方法 可 设置 用 户 窗 体 的 标签 、 文 字 框 等 控件 的 大 小 。 最 后 得 到 如 图 17-16 
所 示 的 效果 。 


图 17-15 ”快捷 菜单 图 17-16 设置 控件 大 小 后 的 窗 体 


17.4.2 ”设置 控件 布局 


在 图 17-16 所 示 的 用 户 窗 体 中 ， 各 控件 的 大 小 按 需 要 设置 好 了 ， 但 可 以 看 出 各 控件 排 
列 较 乱 ， 还 需要 对 各 控件 的 排列 布局 进行 设置 ， 具 体 步骤 如 下 : 

(1) 用 鼠标 拖 动 各 控件 ， 调 整 控件 的 大 概 位 置 ， 如 图 17-17 所 示 。 这 时 ， 不 需要 精确 
控制 各 控件 的 位 置 。 

(2) 选中 两 个 标签 控件 右键 单 击 将 弹出 快捷 菜单 ， 如 图 17-18 所 示 。 

(3) 在 快捷 菜单 中 单 击 【 对 齐 】I【 右 对 齐 】 命令。 这 时 被 选中 的 控件 按 中 心 线 对 齐 (以 
白色 框 选中 的 按钮 为 基准 ) ， 如 图 17-19 所 示 。 
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图 17-17 调整 各 控件 的 大 概 位 置 图 17-18 ”快捷 菜单 


(4) 用 类 似 的 方法 设置 两 个 文字 框 左 对 齐 ， 两 个 按钮 顶端 〈 底 端 ) 对齐 。 这 时 各 相关 
控件 都 已 对 齐 ， 如 图 17-20 所 示 。 


图 17-19 ” 右 对 齐 控件 图 17-20 对齐 各 控件 


(5) 在 用 户 窗 体 中 选择 “用 户 名 ”标签 和 frmName 文字 框 控件 ， 右 击 鼠 标 将 弹出 如 图 
17-21 所 示 的 快捷 菜单 。 

(6) 在 快捷 菜单 中 单 击 【 对 齐 】|【 中 间 对 齐 】 命 令 , 就 可 以 使 两 个 控件 的 中 心 线 对 齐 ， 
如 图 17-22 所 示 。 


图 17-21 快捷 菜单 图 17-22 中间 对 齐 
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(7) 用 类 似 的 方法 ， 将 各 相关 控件 的 中 心 线 对 齐 。 
全 提示 : 在 VBE 中 ， 还 可 单 击 主 菜单 【格式 〗|【 季 直 间 距 】| 【相同 】 命 令 ， 使 控件 之 间 
的 垂直 间距 相同 ， 单 击 【格式 】 了 |【 水 平 间距 】|【 相 同 】 命 令 ， 使 控件 之 间 的 水 
平 间距 相同 。 
《8) 设 置 好 各 控件 的 排列 布局 后 , 拖 动用 户 窗 体 边框 , 调整 窗 体 的 大 小 , 得 到 如 图 17-23 
所 示 的 效果 。 


图 17-23 用户 窗 体 


17.4.3 设置 Tab 键 顺序 


使 用 键盘 操作 控件 时 , 按 Enter 键 相当 于 单 击 具 有 焦点 的 控件 。 控件 的 焦点 可 使 用 Tab 
键 来 改变 ，Tab 键 顺序 确定 了 按 Tab 键 时 控件 的 激活 顺序 ， 还 可 以 确定 最 初 焦点 放 在 哪个 
控件 上 。 

要 设置 控件 的 Tab 键 顺序 ， 可 按 以 下 步骤 进行 : 

(1) 打开 用 户 窗 体 。 

(2) 单 击 主 菜单 【视图 】|【Tab 键 顺序 】 命 令 ， 打 开 如 图 17-24 所 示 的 对 话 框 ， 列 出 
了 所 有 的 控件 。 


图 17-24 ”Tab 键 顺序 


(3) 选中 要 移动 顺序 的 某 个 控件 。 
外 技巧 : 在 图 17-24 所 示 的 对 话 框 中 ， 可 以 按 住 Ctrl 键 或 Shift 键 选中 多 个 控件 ， 再 一 次 
性 移动 这 些 控件 。 
(4) 单 击 【 上 移 】 或 【下 移 】 按 钮 即 可 调整 其 Tab 键 顺序 。 
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全 提示 : 调整 Tab 键 顺序 还 可 以 通过 【属性 】〗 窗 口 来 完成 ， 改 变 TabIndex 属性 值 就 可 以 
改变 该 控件 的 Tab 键 顺序 。TabIndex 为 0 的 控件 是 第 一 个 控件 。 


17.5 编写 代码 


将 用 户 窗 体 及 控件 的 属性 、 布 局 设置 好 以 后 ， 也 就 完成 了 用 户 窗 体外 观 界面 的 设置 。 
接 下 来 更 重要 的 工作 是 为 用 户 窗 体 编写 代码 ， 使 其 能 完成 相应 的 工作 。 

给 用 户 窗 体 编写 代码 可 分 为 以 下 两 部 分 : 

口 给 窗 体 中 的 控件 编写 代码 ; 

口 给 窗 体 事件 过 程 编写 代码 。 


17.5.1 编写 事件 代码 


事件 允许 当 用 户 对 窗 体 和 控件 进行 操作 时 做 出 相应 的 反应 ， 事 件 程 序 要 放置 在 用 户 窗 
体 模块 中 ， 可 以 通过 以 下 几 种 方式 打开 代码 模块 窗口 。 

口 双击 窗 体 或 控件 ; 

口 右 击 窗 体 或 控件 ， 从 快捷 菜单 中 选择 【查看 代码 】 命 令 ; 

口 右 击 工程 窗口 中 的 用 户 窗 体 图 标 ， 选 择 【 查 看 代码 】 命 令 。 

打开 代码 模块 窗口 ， 如 图 17-25 所 示 。 接 下 来 就 可 以 对 窗 体 或 控件 添加 相应 的 事件 程 
序 代码 。 事 件 允许 用 户 窗 体 和 控件 对 用 户 所 做 的 操作 作出 相应 的 反应 。 例 如 ， 单 击 用户 窗 
体 中 的 【关闭 】 按 钮 ， 将 调用 事件 过 程 中 的 代码 关闭 窗 体 。 


网 创建 自 定义 对 话 框 .xls - fraLogin (代码 ) 车 | 后] 必 ] 


对 象 列 表 事件 列表 


图 17-25 ”代码 模块 窗口 
1. 窗 体 事件 


最 常用 的 窗 体 事件 包括 窗 体 初始 化 (Intialize〉、 窗 体 激活 (Activate》、 窗 体 请 求 关 
闭 (QueryClose) 、 以 及 单 击 窗 体 (Click) 等 。 
口 Initialize 事件 : 用 户 窗 体 初 始 化 事件 是 窗 体 最 重要 的 事件 之 一 , 初始 化 是 发 生 在 用 
户 窗 体 中 的 第 一 件 事情 只 要 用 户 窗 体 开始 装载 ， 就 会 触发 初始 化 事件 。 在 这 
里 ， 可 以 初始 化 变量 和 控件 。 例 如 ， 可 以 从 电子 表格 中 更 新 最 新 的 数据 到 文本 框 
中 ， 改 变 文本 框 的 缺 省 值 为 今天 的 日 期 等 。 
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口 QueryClose 事件 和 Terminate 事件 : 这 两 个 事件 是 结束 窗 体 的 事件 。QueryClose 请 
求 关 闭 事件 首先 发 生 ， 并 且 给 用 户 取 消 的 机 会 〈 不 会 关闭 窗 体 ) ;Terminate 中 止 
事件 是 最 终 的 并 且 不 能 取消 。 

口 Activate 事件 :Activate 事件 激活 用 户 窗 体 ， 如 果 不 印 载 窗 体 而 只 是 隐藏 窗 体 ， 再 
显示 窗 体 时 ， 初 始 化 事件 不 会 再 运行 ， 但 是 ， 激 活 〈Activate) 事件 将 会 发 生 。 当 
用 户 窗 体 每 次 获得 焦点 时 ， 都 会 触发 激活 事件 ， 在 每 次 显示 窗 体 时 ， 该 事件 也 会 
发 生 。 如 果 有 几 个 窗 体 同 时 可 见 ， 那 么 当 在 这 些 窗 体 之 间 进 行 切换 时 ， 激 活 事件 
也 会 被 触发 。 

因此 , 事件 的 顺序 是 : 初始 化 (Initialize ) 一 激活 (Activate) 一 处 理 一 请 求 关 闭 (Query 

Close) 一 中 止 (Terminate)。 


2. 控件 事件 


窗 体 中 控件 的 常用 事件 包括 变化 ‘Change) 、 单 击 (Click) 、 输 入 (Enter) 、 退 出 
(Exit) 等 。 

口 Change 事件 : 当 Value 属性 的 设置 更 改 时 ， 控 件 的 Change 事件 发 生 , 无 论 属性 更 
改 是 执行 代码 还 是 用 户 在 界面 上 操作 的 结果 ， 此 事件 都 发 生 。 

口 Click 事件 : 在 导致 Click 事件 发 生 的 两 种 情况 中 ， 第 一 种 情况 应 用 于 命令 按钮 、 
框架 、 图 像 、 标 签 、 滚 动 条 和 数值 调节 钮 控件 ， 而 第 二 种 情况 用 于 复 选 枉 、 组 合 
框 、 列 表 框 、 多 页 、TabStrip 和 切换 按钮 控件 。 当 选项 按钮 控件 的 值 变 为 True 时 ， 
也 会 导致 Click 事件 发 生 。 

口 Enter 事件 和 Exit 事件 : 一 个 控件 从 同一 窗 体 的 另 一 个 控件 实际 接收 到 焦点 之 前 ， 
Enter 事件 发 生 。 同 一 窗 体 中 的 一 个 控件 即将 把 焦点 转移 到 另 一 个 控件 之 前 ，Exit 
事件 发 生 。 


17.5.2 ”给 控件 编写 代码 


【登录 】 窗 体 主要 用 来 完成 用 户 身份 的 验证 ， 编 写 的 代码 就 需要 验证 输入 的 用 户 名 和 
密码 是 否 正 确 。 编 写 代码 的 具体 过 程 如 下 : 

(1) 双击 用 户 窗 体 的 空白 处 ， 打 开 【 代 码 】 窗 口 。 在 模块 的 声明 部 分 输入 以 下 代码 ， 
声明 一 个 标志 变量 ， 用 来 记录 用 户 是 否 成 功 登录 ， 若 其 值 为 True， 表 示 已 成 功 登 录 。 

Dim bLogin Rs Boolean “' 标 志 变量 ， 记 录用 户 是 否 成 功 登 录 


(2) 在 用 户 窗 体 中 双击 【关闭 】 按 钮 ， 将 在 【代码 】 窗 口 生成 【关闭 】 按 钮 的 Click 
事件 过 程 结构 ， 在 该 结构 中 输入 卸载 窗 体 的 代码 如 下 ; 
Private Sub cmdClose Click() 
bLogin = False 
Unload Me 
End Sub 


(3) 在 用 户 窗 体 中 双击 【登录 】 按 钮 ， 将 在 【代码 】 窗 口 生成 【登录 】 按 钮 的 Click 
事件 过 程 结构 ， 在 该 结构 中 输入 判断 用 户 名 和 密码 的 代码 如 下 : 
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Private Sub cmdLogin Click() 

IE Trim(txtName.Value) = "" Then ' 用 户 名 为 空 
MsgBox "请 输入 登录 用 户 名 ! "，vbCritical + vbOKOnly,， "警告 " 
txtName .SetFocus ' 用 户 名 文字 框 设置 焦点 
Exit Sub 

End If 

IE Trim(txtPwd.Value) = "" Then "密码 为 空 
MsgBox "请 输入 密码 ! "，vbcritical + vbOKOnly，" 警 告 " 


txtPwd.SetFocus ' 密 码 文本 框 设置 焦点 
Exit Sub 
End If 
If txtName.Value = "admin" And txtPwd.Value = "admin888" Then 


MsgBox "欢迎 进入 本 系统 ! "，vbInformation + vbOKOnly， "欢迎 " 
bLogin = True 
Unload Me " 印 载 窗 体 
Else 
MsgBox "输入 的 用 户 名 或 密码 有 误 ， 请 重新 输入 ! "，vbcritical + vbOoKOnly，" 
告 " 


txtName .SetFocus ' 用 户 名 文字 框 设置 焦点 
End If 
End Sub 


17.5.3 ”编写 窗 体 事件 代码 


在 【登录 】 用 户 窗 体 中 ， 当 用 户 不 能 通过 身份 验证 时 ， 应 退出 Excel 应 用 程序 。 在 窗 
体 各 控件 的 代码 中 ,都 是 使 用 Unload Me 语句 印 载 用 户 窗 体 。. 这 时 , 卸载 窗 体 后 将 返回 Excel 
操作 界面 。 因 此 ， 需 要 在 窗 体 的 QueryClose 事件 中 编写 代码 ， 当 用 户 未 通过 身份 验证 而 卸 
载 窗 体 时 ， 将 调用 Application 对 象 的 Quit 方法 退出 Excel。 


Private Sub UserForm QueryClose (Cancel As Integer, CloseMode Rs Integer) 


If Not bLogin Then ' 未 成 功 登 录 
Application.Quit ! 退 出 Excel 
End If 
End Sub 


17.6 调用 用 户 窗 体 


编写 完事 件 代码 后 ， 需 要 通过 运行 用 户 窗 体 来 测试 程序 的 正确 性 。 调 试 通过 后 ， 即 可 
在 其 他 模块 中 调用 设计 的 用 户 窗 体 。 
17.6.1 ”调试 运行 窗 体 

在 VBE 环境 中 ， 在 窗 体 代码 窗口 中 或 在 用 户 窗 体 设计 界面 中 ， 按 F5 键 或 者 单 击 工具 
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栏 中 的 【运行 】 按 钮 ， 可 以 运行 用 户 窗 体 程序 ， 显 示 用 户 窗 体 。 
也 可 按 F8 键 逐 语句 运行 代码 ， 对 程序 进行 调试 。 
如 图 17-26 所 示 为 测试 用 户 窗 体 时 的 两 种 情况 。 

外 提示 : 在 测试 程序 时 ， 应 使 用 多 种 不 同 的 情况 来 验证 程序 是 否 按 预 设 效果 来 运行 。 


图 17-26 ”测试 用 户 窗 体 


17.6.2 ”调用 用 户 窗 体 基 础 知识 


1. 窗 体 的 生命 周期 


用 户 窗 体 的 生命 周期 从 其 被 装 入 内 存 开 始 ， 到 显示 、 隐 藏 ， 最 后 到 关闭 为 止 。 

窗 体 显示 之 前 ， 必 须 装载 到 内 存 中 。 如 果 显 示 一 个 没有 装载 的 窗 体 ， 该 窗 体 将 自动 装 
载 。 事 实 上 ， 窗 体 中 的 任何 引用 或 者 变量 、 控 件 、 属 性 都 将 强制 装载 ， 并 且 触 发 初始 化 事 
件 。 如 果 想 初始 化 窗 体 但 不 显示 窗 体 ， 可 以 使 用 如 下 方式 装载 : 


Load frmMain 


在 隐藏 了 窗 体 后 ， 该 窗 体 仍然 被 装载 。 如 果 再 次 显示 窗 体 ， 可 以 使 用 窗 体 的 Show 方 
法 。 为 了 从 内 存 中 清除 窗 体 ， 所 以 必须 卸载 (unload) 窗 体 。 当 用 户 单 击 “ 关 闭 ”按钮 关 
闭 窗 体 时 ， 其 将 自动 卸载 。 

因此 ， 窗 体 装 载 和 卸载 的 顺序 是 : 装载 (Load) 一 显示 (Show) 一 …… 一 隐藏 (Hide) 
一 卸载 (Unload)。 


2. 模式 和 无 模式 


用 户 窗 体能 在 两 种 “模式 ”之 间 显 示 ， 即 模式 或 者 无 模式 。 所 谓 模 式 窗 体 ， 即 该 窗 体 
显示 时 不 允许 用 户 在 Excel 中 进行 其 他 的 操作 , MsgBox 对 话 框 使 用 的 就 是 模式 窗 体 。 而 无 
模式 窗 体 ， 则 是 在 该 窗 体 显 示 时 还 允许 用 户 在 Excel 中 进行 其 他 操作 ， 然 后 再 回 到 该 窗 体 
中 来 进行 操作 。 

当 无 模式 窗 体 显示 时 ， 代 码 将 在 后 台 继续 执行 。 用 户 可 使 代码 暂时 停止 ， 直 到 窗 体 关 
闭 后 继续 执行 。 

新 建 的 用 户 窗 体 缺 省 设置 是 模式 窗 体 。 一 旦 窗 体 作为 模式 窗 体 显示 后 ， 不 能 将 它 改 变 
为 无 模式 窗 体 。 如 果 要 改变 为 无 模式 窗 体 ， 必 须 先 隐藏 该 窗 体 ， 再 显示 它 ， 并 指定 为 无 模 
式 窗 体 。 
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使 用 UserForm 对 象 的 Show 方法 可 以 显示 用 户 窗 体 ， 该 方法 的 语法 格式 如 下 : 
[object.] Show modal 


其 中 参数 modal 决定 用 户 窗 体 是 模式 的 还 是 无 模式 的 。 其 可 设置 为 如 下 常数 : 
口 vbModal， 值 为 1， 表示 用 户 窗 体 是 模式 的 。 

口 vbModeless， 值 为 0， 表示 用 户 窗 体 是 无 模式 的 。 

如 果 在 运用 Show 方法 时 并 未 装载 指定 的 对 象 ， 则 VBA 会 自动 装载 它 。 


17.6.3 ”编写 调用 用 户 窗 体 的 代码 


可 使 用 多 种 方式 显示 用 户 窗 体 ， 最 常用 的 有 以 下 两 种 方式 : 
口 创建 一 个 模块 ， 在 模块 中 编写 显示 用 户 窗 体 的 代码 ; 
口 在 相关 的 事件 过 程 中 编写 显示 用 户 窗 体 的 代码 。 


1. 在 模块 中 编写 代码 


最 常用 的 方法 是 ， 在 模块 中 编写 代码 显示 用 户 窗 体 。 例 如 ， 要 显示 【登录 】 窗 体 ， 可 
按 以 下 步骤 编写 代码 。 

(1) 若 工 程 还 没有 模块 ， 可 以 单 击 主 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 插入 一 个 
模块 。 

(2) 在 模块 中 编写 以 下 代码 : 

Sub 显示 登录 窗 体 () 


frmLogin.Show 
End Sub 


(3) 关闭 VBE 窗口 , 返回 Excel 操作 界面 。 在 【开发 工具 】 的 【控件 】 组 中 ， 单 击 【 插 
入 】 按 钮 ， 从 下 拉 列 表 中 选择 【按钮 】 窗 体 控件 。 

(4) 在 工作 表 中 绘制 一 个 按钮 ， 设 置 按钮 调用 的 宏 为 “显示 登录 窗 体 ”， 并 设置 按钮 
的 文本 为 “登录 ”。 

(5) 在 工作 表 中 单 击 【登录 】 按 钮 ， 即 可 显示 设计 的 【登录 】 用 户 窗 体 。 

2. 在 事件 中 编写 代码 

有 的 用 户 窗 体 在 Excel 应 用 程序 的 某 个 事件 发 生 时 自动 显示 。 这 就 需要 针对 事件 编写 
代码 。 例 如 ，【 登 录 】 用 户 窗 体 应 该 是 在 用 户 打 开 Excel 应 用 程序 时 就 自动 调用 ， 通 过 该 
窗 体 对 用 户 的 身份 进行 认证 。 这 时 ， 可 在 Excel 工作 敌 的 Open 事件 中 编写 以 下 代码 : 


Private Sub Workbook Open() 
frmLogin.Show 


End sub 
编写 以 上 代码 后 ， 当 用 户 再 次 打开 该 工作 矢 时 ， 将 以 模式 窗 体 显示 【登录 】 窗 体 。 如 
果 用 户 输入 的 用 户 名 或 密码 是 错误 的 ， 则 将 自动 关闭 Excel 工作 敌 ， 不 允许 用 户 进 行 操作 。 
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在 第 17 章 中 以 创建 【登录 】 用 户 窗 体 为 例 ， 介 绍 了 创建 用 户 窗 体 的 过 程 。 用 户 窗 体 中 
必须 要 添加 合适 的 控件 ， 才 能 完成 与 用 户 的 交互 操作 。 

当 插 入 用 户 窗 体 后 ， 将 显示 【工具 箱 】 浮 动 子 窗口 ， 在 该 子 窗口 中 默认 的 控件 称 为 标 
准 控件 ， 本 章 将 逐个 介绍 这 些 控件 的 属性 、 方 法 和 事件 。 


人 提示 : 为 了 节省 篇 幅 ， 第 17 章 介绍 过 的 控件 的 共有 属性 ， 本 章 将 不 再 列 出 。 


18.1 标 签 


标签 控件 主要 用 于 在 窗 体 中 显示 提示 信息 ， 例 如 各 文字 框 、 列 表 框 等 控件 前 面 的 说 明 
文字 ， 标 签 控件 也 可 直接 识别 用 户 的 单 击 、 双 击 操作 。 


18.1.1 标签 常用 属性 


标签 控件 除了 具有 控件 的 共有 属性 外 ， 主 要 还 有 以 下 属性 。 

口 Accelerator 属性 : 如 果 为 标签 指定 加 速 键 ， 则 在 Tab 键 顺 序 中 跟 在 标签 后 面 的 控 
件 接受 焦点 ， 而 不 是 标签 自身 。 

口 BackColor 属性 : 设置 标签 的 背景 色 。 

口 BorderStyle 属性 : 用 来 设置 标签 是 否 有 边框 ， 有 两 种 值 可 选 ， 即 0 代表 标签 无 边 
框 ，1 代表 标签 有 边框 。 

口 Caption 属性 : 在 用 户 窗 体 中 显示 的 文本 。 

口 Font 属性 : 用 来 设置 标签 显示 的 字体 ， 既 可 以 在 设计 时 通过 单 击 【 属 性 】 窗 口 的 
Font 属性 左 侧 的 = 按钮 ， 打 开 显示 【字体 】 对 话 框 : 也 可 以 在 程序 中 通过 VBA 代 
码 改变 标签 显示 的 字体 。 

口 Height 和 Width 属性 : 设置 标签 的 高 度 和 宽度 ， 以 磅 为 单位 。 

口 TextAlign 属性 : 设置 标签 控件 中 文本 的 对 齐 方式 。 文 本 对 齐 方式 有 以 下 3 种 : 
> fmTextAlignLeft， 值 为 1， 左 对 齐 ， 这 是 默认 值 。 
> fmTextAlignCenter， 值 为 2， 中 对 齐 。 
> fmTextAlignRight， 值 为 3， 右 对 齐 。 
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18.1.2 ”标签 事件 


在 实际 应 用 中 ， 标 签 控件 一 般 只 是 作为 控件 的 说 明 ， 不 接受 用 户 的 输入 ， 也 不 响应 事 
件 。 但 标签 控件 依然 支持 相应 的 事件 ， 例 如 比较 常用 的 Click 事件 、DbClick 事件 等 。 


18.1.3 ”标签 控件 实例 一 一 进度 条 
进度 条 是 Windows 操作 系统 中 常见 的 窗 体 , 一 般 用 于 进行 长 时 间 操 作 时 给 用 户 一 个 提 


示 ， 显 示 操 作 进行 的 进度 。 本 实例 创建 一 个 进度 条 ， 用 来 显示 正在 处 理工 作 表 的 进度 。 进 
度 条 如 图 18-1 所 示 ， 在 窗 体 中 动态 显示 一 个 红色 条 状 进度 条 ， 以 显示 程序 运行 的 进度 。 


图 18-1 进度 条 


本 例 通 过 动态 改变 标签 控件 的 宽度 值 ， 来 显示 程序 的 处 理 进度 。 主 要 使 用 标签 控件 的 
背景 色 和 宽度 属性 值 。 完 成 该 例 的 步骤 如 下 : 

(1) 在 VBE 中 揪 入 一 个 用 户 窗 体 ， 向 窗 体 中 插入 一 个 框架 控件 , 在 框架 控件 中 再 添加 
-个 标签 控件 ， 并 设置 标签 控件 的 背景 色 为 红色 。 如 图 18-2 所 示 。 


18-2 设置 窗 体 


(2) 双击 窗 体 空白 处 ， 打 开 窗 体 的 【代码 】 窗 口 ， 编 写 子 过 程 UpdateProgress， 用 来 
更 新 进度 条 的 显示 。 


Sub UpdateProgress (ByVal lstart As Long, ByVal lEnd As Long, ByVal lProgress 
As Long) 
p = lProgress / (lEnd - lstart) 
With Me 
.frameProgress.Caption = Format (p, "0%") 
.lblProgress.Width = p * (.frameProgress.Width - 10) 


.Repaint ' 更 新 显示 进度 条 
End With 
If p >= 1 Then Unload Me '! 完 成 操作 后 ， 逢 载 窗 体 
End Sub 


编写 好 以 上 代码 后 ， 在 其 他 模块 中 编写 代码 ， 可 以 将 UpdateProgress 作为 进度 窗 体 的 
方法 来 调用 。 该 过 程 提供 了 3 个 参数 ， 其 含义 如 下 所 述 。 


a 


Excel VBA 开发 技术 大 全 


口 lStart: 处 理 过 程 的 初始 值 ; 

口 IEnd: 处 理 过 程 的 完成 值 ; 

口 IProgress: 正在 被 处 理 的 值 。 

将 以 上 3 个 参数 传 入 UpdateProgress 过 程 ， 该 过 程 对 这 3 个 值 进行 运算 ， 得 出 正在 处 
理 数据 占 总 数据 的 比例 。 

(3) 向 工程 中 插入 一 个 模块 ， 在 模块 中 编写 完成 相应 功能 的 代码 ， 并 在 每 一 步 处 理 过 
程 中 ， 调 用 frmProgress 窗 体 的 UpdateProgress 方法 更 新 进度 条 。 


Sub 显示 进度 条 () 
Dim i As Long, p As Single 
With ErmProgress 
.lblProgress.BackColor = RGB(255, 0, 0) 
.lblProgress.Width = 0 
-Show 0 “显示 进度 条 
End With 


If TypeName (ActiveSheet) <> "Worksheet" Then Exit Sub 
Application.ScreenUpdating = False 
For i = 1 To 65536 

If i Mod 2 = 0 Then 

Rows (i) .Hidden = True 

End If 

frmprogress.UpdateProgress(1, 65536, i) 
Next 
Application.ScreenUpdating = True 

End sub 


以 上 代码 将 工作 表 中 1 一 65 536 行 中 的 偶数 行 隐藏 起 来 ， 在 For 循环 中 ， 每 执行 一 次 
循环 ， 就 调用 UpdateProgress 子 过程 更 新 进度 窗口 中 的 进度 条 。 

该 【进度 条 】 窗 体 可 运用 到 多 种 场合 ， 使 用 时 只 需 在 代码 开始 处 用 无 模式 方式 显示 出 
该 窗 体 ， 并 在 需要 更 新 进度 的 地 方 添加 以 下 代码 即 可 : 


frmProgress .UpdateProgress (1Start，1End，1Progress) 
18.2 命令 按钮 


命令 按钮 是 最 常见 的 控件 之 一 。 通 过 单 击 按钮 ， 可 以 触发 相应 的 事件 过 程 ， 并 执行 指 
定 的 操作 ， 以 实现 指定 的 功能 。 例 如 ， 可 以 创建 能 够 打开 另 一 个 窗 体 的 命令 按钮 ， 在 命令 
按钮 上 可 以 显示 文本 或 图 片 ， 或 者 二 者 同时 显示 。 


18.2.1 命令 按钮 常用 属性 


命令 按钮 除了 有 具有 控件 的 共有 属性 外 ， 主 要 还 有 以 下 两 个 属性 。 
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Cancel 属性 : 设置 命令 按钮 为 取消 按钮 。 如 果 命 令 按 钮 的 Cancel 属性 被 设 为 True， 
并 且 是 一 个 活动 的 窗 体 ， 用 户 就 可 以 用 鼠标 单 击 此 按钮 ， 或 按 Esc 键 ， 或 当 此 按 
钮 具有 焦点 时 再 按 Enter 键 ， 以 执行 此 按钮 的 功能 。 

Default 属性 : 设置 命令 按钮 为 默认 按钮 。 设 置 Default 属性 为 True 时 ， 按 Enter 
键 与 单 击 此 命令 按钮 的 作用 相同 。 因 此 , 这 个 命令 按钮 被 称 为 默认 按钮 。 与 Cancel 
的 设置 一 样 ， 在 一 个 窗 体 中 ， 只 允许 一 个 命令 按钮 的 Default 属性 设置 为 True。 


名 注意: 在 窗 体 中 只 有 一 个 命令 按钮 可 作为 Cancel 按钮 。 若 将 某 一 命令 按钮 的 Cancel 属 


性 设 为 True， 则 窗 体 上 所 有 的 其 他 对 象 被 自动 设 为 False。 


18.2.2 ”命令 按钮 常用 事件 


命令 按钮 可 以 接受 多 种 事件 ， 但 最 常用 的 就 是 单 击 〈Click) 事件。 以 下 是 命令 按钮 发 
生 单 击 事件 的 几 个 示例 。 


口 


口 
口 


口 


口 


18.2.3 ”按钮 实例 


用 鼠标 单 击 命令 按钮 控件 。 如 果 命令 按钮 尚 不 具有 焦点 , 则 Enter 事件 发 生 在 Click 
事件 之 前 。 

当 命令 按钮 控件 具有 焦点 时 按 空格 键 。 

在 窗 体 上 按 Enter 键 ， 该 窗 体 上 的 一 个 命令 按钮 的 Default 属性 设 为 True， 同 时 焦 
点 没有 位 于 其 他 的 命令 按钮 上 ， 则 在 该 命令 按钮 上 触发 Click 事件 。 

在 一 个 窗 体 上 按 Esc 键 ， 该 窗 体 上 有 一 个 命令 按钮 的 Cancel 属性 设 为 True， 同 时 
焦点 没有 位 于 其 他 的 命令 按钮 上 ， 则 在 该 命令 按钮 上 触发 Click 事件 。 

如 果 在 设置 时 为 命令 按钮 指定 了 加 速 键 ， 则 按 命令 按钮 的 加 速 键 ， 也 会 产生 Click 
事件 。 


控制 窗 体 显示 


本 例 以 主 窗 体 控制 子 窗 体 的 方式 ， 演 示 按 钮 的 使 用 和 窗 体 模式 的 相关 内 容 。 
【 主 窗 体 】 对 话 框 如 图 18-3 所 示 ， 该 对 话 框 中 显示 了 3 个 按钮 ， 可 分 别 进行 以 下 操作 : 


口 单 击 【显示 子 窗 体 】 按 钮 ， 将 显示 【 子 窗 体 】 对 话 框 ， 并 在 其 中 列 出 了 显示 当前 
子 窗 体 的 次 数 ， 如 图 18-4 所 示 。 多 次 单 击 【显示 子 窗 体 】 按 钮 ， 子 窗 体 中 的 显示 
次 数 将 进行 累加 显示 。 

口 在 【 主 窗 体 】 对 话 框 中 单 击 【隐藏 子 窗 体 】 按 钮 ， 子 窗 体 将 隐藏 ， 再 次 单 击 【 显 
示 子 窗 体 】 按 钮 又 将 显示 出 子 窗 体 ， 并 且 其 显示 次 数 增加 一 次 。 

口 在 【 主 窗 体 】 对 话 框 中 单 击 【重新 设置 子 窗 体 】 按 钮 ， 可 重新 设置 子 窗 体 的 显示 
次 数 。 

创建 以 上 窗 体 的 操作 步骤 如 下 : 


(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 设 置 其 Caption 属性 为 “ 主 窗 体 ”， 再 向 窗 体 中 添 
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加 3 个 按钮 控件 ， 调 整 按钮 的 位 置 ， 如 图 18-3 所 示 。 设 置 各 控件 的 属性 如 表 18-1 所 示 。 


图 18-3 【 主 窗 体 】 对 话 框 图 18-4 【 子 窗 体 】 对 话 框 


表 18-1 控件 属性 


用 途 对 象 属 性 属 性 值 
名 称 frmMain 
证 作 让 Caption 主 窗 体 


cndShow 
示 | 

lj 0 显示 子 从 人 

cdHide 

2 

i i 隐 敬 子 窗 休 
- | gw | 

重 设 子 窗 体 按钮 3 名 称 cmdReset 


重新 设置 子 窗 体 


(2) 再 向 工程 中 插入 一 个 用 户 窗 体 ， 设 置 其 Caption 属性 为 “ 子 窗 体 ”， 向 窗 体 中 添 
加 一 个 按钮 和 一 个 标签 控件 ， 如 图 18-4 所 示 ， 设 置 各 控件 的 属性 如 表 18-2 所 示 。 
表 18-2 控件 属性 
用 途 对 象 | 属性 | 属 性 值 
frmSub 
= a 子 窗 休 
显示 窗 体 次 数 标签 loll 
cmdHide 
2 隐藏 窗 休 


(3) 在 【 主 窗 体 】 对 话 框 中 ， 为 【显示 子 窗 体 】 按 钮 编写 以 下 VBA 代码 : 


Private Sub cmdSshow Click() 
Me.Hide 
IE CInt (Left (Application.Version, Instr(1, Application.Version, ".", 1) 
- 1)) <= 8 Then 
'Exce197 或 更 早 的 版 本 不 能 显示 无 模式 窗 体 
ErmSub . Show 
Me . Show 
Else 


' 当 一 个 模式 窗 体 打开 时 ,不 能 显示 无 模式 窗 体 .因此 需要 使 它们 都 为 无 模式 窗 体 
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Me.Show vbModeless 
frmSub . Show vbModeless 
End If 
End Sub 


以 上 代码 首先 隐藏 当前 窗 体 ， 接 着 判断 当前 Excel 的 版 本 , 若 为 Excel 97 之 前 的 版 本 ， 
则 按 模式 显示 主 窗 体 和 子 窗 体 ， 若 是 Excel 2000 及 以 后 版 本 ， 则 用 无 模式 方式 显示 主 窗 体 
和 子 窗 体 。 

(4) 在 【 主 窗 体 】 对 话 框 中 ， 为 【隐藏 子 窗 体 】 按 钮 编写 以 下 VBA 代码 : 

Private Sub cmdHide _ Click() 


frmsub .Hide “隐藏 子 窗 体 
End Sub 


(5) 在 【 主 窗 体 】 对 话 框 中 ， 为 【重新 设置 子 窗 体 】 按 钮 编写 以 下 VBA 代码 : 


Private Sub cmdReset Click() 
Unload frmSub ' 印 载 子 窗 体 
End Sub 


以 上 代码 卸载 子 窗 体 ， 从 而 达到 重 署 子 窗 体 中 的 模块 变量 的 目的 。 

(6) 在 【 主 窗 体 】 对 话 框 中 ， 为 Terminate 事件 编写 以 下 VBA 代码 ， 在 退出 该 对 话 框 
之 前 ， 先 卸载 【 子 窗 体 】。 

Private Sub UserForm Terminate() 


Unload frmsubp ' 退 出 当前 窗 体 前 先 关 闭 子 窗 体 
End Sub 


(7) 在 【 子 窗 体 】 的 代码 窗口 编写 以 下 VBA 代码 ， 定 义 模块 级 变量 ， 用 来 记录 子 窗 
体 显示 的 次 数 。 
Dim n As Integer “定义 模块 变量 


(8) 在 【 子 窗 体 】 的 代码 窗口 中 为 Activate 事件 过 程 编写 以 下 代码 ， 用 来 显示 当前 窗 
体 显示 的 次 数 : 
Private Sub UserForm_RActivate() 
n=n+1 


1bl1.Caption = "已 显示 本 窗 体 " &n&" 次 。" 
End Sub 


(9) 在 【 子 窗 体 】 的 代码 窗口 中 ， 给 【隐藏 窗 体 】 按 钮 编写 以 下 VBA 代码 : 


Private Sub cmdHide _ Click() 
Me.Hide 
End Sub 


(10) 为 了 方便 用 户 在 Excel 环境 中 打开 【 主 窗 体 】 对 话 框 ， 可 以 在 VBE 中 插入 一 个 
模块 ， 编 写 以 下 子 过 程 ， 用 来 显示 【 主 窗 体 】 在 Excel 工作 表 中 插入 一 个 按钮 ， 并 指定 按 
钮 执行 以 下 代码 。 
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Sub 控制 窗 体 显示 () 
frmMain. Show 
End Sub 


18.3 图 像 


在 一 些 信息 管理 信息 中 ， 有 时 需要 在 用 户 窗 体 中 显示 图 像 。 这 时 可 使 用 VBA 提供 的 
【图 像 】 控 件 。 使 用 图 像 控 件 可 剪裁 、 调 整 大 小 或 缩放 图 片 ， 但 不 能 编辑 图 片 的 内 容 。 


名 提示 : 标签 控件 也 可 以 显示 图 片 ， 但 标签 不 支持 对 图 片 的 剪裁 、 调 整 大 小 或 缩放 操作 。 


18.3.1 


图 像 控件 属性 


图 像 控 件 支持 常见 的 图 像 格 式 ， 例 如 *.bmp、*.cur、*.gif、*.ico、*.jpg、*.wmf 等 。 

除了 控件 共有 属性 外 ， 图 像 控 件 最 常用 的 属性 还 有 以 下 几 种 : 

口 Picture 属性 ， 通 过 该 属性 可 设置 图 像 控件 显示 的 图 片 文件 名 。 设 计 窗 体 时 ， 可 用 
图 像 控 件 的 属性 页 为 Picture 属性 指定 图 片 文件 名 。 运 行 窗 体 时 ， 则 必须 使 用 
LoadPicture 函数 为 Picture 属性 指定 图 片 文件 名 ， 其 语法 格式 如 下 : 

object.Picture = LoadPicture( pathname ) 


其 中 : object 为 图 像 控件 ，pathname 为 一 个 图 片 文件 的 完整 路 径 。 

要 删除 为 控件 指定 的 图 片 ， 可 在 【属性 】 窗 口中 直接 删除 Picture 属性 右 侧 的 值 即 可 ， 
在 程序 代码 中 ， 将 LoadPicture 函数 的 pathname 参数 设置 为 空 字符 串 即 可 。 

口 PictureAlignment 属性 : 设置 图 片 在 图 像 控件 中 的 放置 位 置 。 其 有 以 下 几 种 方式 : 


> 
> 
> 
> 


> 


fmPictureAlignmentTopLeft， 值 为 0， 表示 图 片 左上 角 与 图 像 控 件 左 上 角 对 齐 。 
fmpPictureAlignmentTopRight, 值 为 1, 表示 图 片 右上 角 与 图 像 控 件 右上 角 对 齐 。 
fmPictureAlignmentCenter， 值 为 2， 表 示 图 片 中 心 与 图 像 控 件 中 心 对 齐 。 
fmpPictureAlignmentBottomLeft， 值 为 3， 表 示 图 片 左下 角 与 图 像 控 件 左下 角 
对 齐 。 

fmPictureAlignmentBottomRight， 值 为 4， 表 示 图 片 右 下 角 与 图 像 控 件 右 下 角 
对 齐 。 


口 PictureSizeMode 属性 : 设置 在 图 像 控件 上 显示 图 片 的 方式 ， 可 设置 为 以 下 几 种 
方式 : 


> 


> 
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fimPictureSizeModeClip， 值 为 0， 表 示 裁 掉 图 片 中 比 窗 体 或 页 面 大 的 部 分 
(默认 ) 。 

fmpPictureSizeModeStretch， 值 为 1， 表 示 扩 展 图 片 使 其 填 满 窗 体 或 页 面 。 该 设 
置 值 使 图 片 在 垂直 和 水 平方 向 都 发 生变 形 。 
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> fmPictureSizeModeZoom， 值 为 3， 表示 放大 图 片 ， 但 图 片 在 水 平和 垂直 方向 上 


都 不 变形 。 
口 PictureTiling 属性 : 设置 为 True 时 ， 人 允许 在 窗 体 或 页 面 中 平 铺 图 片 ， 否 则 图 片 不 
在 背景 上 平 铺 。 


18.3.2 ”图 像 控 件 事件 


与 标签 控件 用 来 显示 提示 文字 类 似 ， 图 像 控件 一 般 也 用 来 显示 图 片 。 图 像 控件 也 支持 
很 多 事件 ， 常 用 的 为 单 击 〈Click) 事件 、 双 击 〈(Dblclick) 事件 ， 可 响应 用 户 对 图 像 控件 
的 单 击 或 双击 操作 。 


18.3.3 ”图 像 实例 一 一 Splash 窗口 


所 谓 Splash 窗口 ， 就 是 主 界面 出 现 之 前 先 出 现 的 欢迎 窗口 。Splash 窗 体 显示 以 后 ， 等 
待 一 定 的 时 间 将 自动 显示 一 个 消息 。 本 例 制作 Splash 窗 体 的 步骤 如 下 : 

(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 并 向 窗 体 中 增加 一 个 图 像 控件 和 一 个 标签 控件 ， 设 
置 各 控件 的 属性 如 表 18-3 所 示 。 最 后 得 到 如 图 18-5 所 示 的 Splash 窗 体 。 


表 18-3 ”控件 属性 
属 性 值 

一 上 上 本 二 | ET 

Splash 窗 体 

Imagel 

| Picwe | lipg 

Labell 

欢迎 进入 本 系统 


图 18-5 ”Splash 窗口 


3 
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(2) 双击 窗 体 打 开 【 人 代码】 窗口 ， 在 窗 体 的 Activate 事件 中 编写 代码 ， 设 置 调用 
CloseSplash 函数 的 时 间 间 隔 〈 该 函数 用 来 关闭 Splash 窗 体 ) 。 有 具体 代码 如 下 : 


Private Sub UserForm Activate() 
Application.OnTime Now + TimeValue("00:00:05"), "Closesplash" 
End Sub 


(3) 在 工程 中 插入 一 个 模块 ， 在 模块 中 编写 函数 CloseSplash， 用 来 卸载 Splash 窗 体 ， 
具体 代码 如 下 : 


Private Sub CloseSplash() 
Unload frmsplash 
End Sub 


(4) 在 用 户 窗 体 中 ， 为 图 像 控件 的 Click 事件 编写 代码 ， 当 用 户 单 击 图 像 控 件 后 自动 
印 载 当前 窗 体 。 
Private Sub Imagel Click() 


Unload Me 
End Sub 


(5) 为 了 使 工作 敌 一 打开 就 自动 打开 Splash 窗 体 ， 在 【工程 资源 管理 器 】 子 窗 体 中 双 
击 ThisWorkbook 打开 代码 窗口 ， 对 Workbook 对 象 的 Open 事件 编写 以 下 代码 ， 使 工作 钴 
被 打开 时 就 自动 显示 frmSplash 窗 体 。 


Private Sub Workbook Open() 
ErmSplash.Show 
End Sub 


18.4 文 字 框 


文字 框 控件 主要 用 来 接收 用 户 输入 信息 ， 也 可 用 其 显示 信息 供用 户 修改 。 文 字 框 控件 
可 接收 用 户 输入 的 文本 、 数 字 、 单 元 格 引 用 或 公式 等 类 型 的 数据 。 


18.4.1 文字 框 常用 属性 


除了 控件 共有 属性 外 ， 文 字 框 控件 常用 的 属性 还 有 以 下 几 种 。 

口 EnterKeyBehavior 属性 : 设置 在 文字 框 中 按 下 Enter 键 的 结果 。EnterKeyBehavior 
属性 和 MultiLine 属性 是 密切 相关 的 。 将 MultiLine 设 为 True 时 ， 本 属性 值 才 有 具 
体 的 意义 ， 如 果 本 属性 为 True， 则 按 Enter 键 将 创建 一 个 新 行 。 如 果 本 属性 设置 为 
False， 则 按 Enter 将 焦点 移 到 Tab 键 顺 序 的 下 一 个 对 象 。 如 果 MultiLine 为 False， 
则 不 论 本 属性 为 何 值 ， 按 Enter 键 时 总 是 把 焦点 移 到 Tab 键 顺序 的 下 一 个 对 象 。 

口 MaxLength 属性 : 用 来 设置 文字 框 中 能 够 输入 字符 的 最 大 数量 。 默 认 值 为 “0”， 


.334 


第 18 章 使 用 标准 控件 


表示 在 文字 框 中 能 容纳 的 字符 数量 没有 限制 。 

口 MultiLine 属性 : 用 来 设置 文字 框 是 否 能 够 接受 和 显示 多 行文 本 ， 如 果 值 为 True， 
表示 文字 框 可 容纳 多 行文 本 ; 如 果 值 为 False， 则 表示 文字 框 只 容纳 单行 文本 。 

口 PasswordChar 属性 : 该 属性 用 来 作为 口令 功能 使 用 。 例如 ， 在 【属性 】 窗 口中 将 
PasswordChar 属性 设置 为 “*”， 则 在 文字 框 中 无 论 输入 什么 字符 ， 都 将 以 “*?” 
号 显示 。 

口 ScrollBars 属性 : 该 属性 主要 用 来 设置 文字 框 是 否 有 水 平 或 垂直 的 滚动 条 。 

口 Text 属性 : 用 于 显示 文字 框 中 的 内 容 ， 其 内 容 可 以 在 设计 界面 时 指定 ， 也 可 以 在 
程序 中 动态 修改 。 在 文字 框 控件 中 ，Text 属性 与 Value 属性 的 值 相 同 。 


18.4.2 ”文字 框 的 方法 


与 前 面 介绍 的 控件 不 同 ， 文 字 框 还 有 3 个 方法 ， 可 用 来 对 文字 框 中 的 内 容 进 行 操作 。 
口 Copy 方法 : 将 文字 框 中 选中 的 文本 复制 到 剪贴 板 上 。 

口 cut 方法: 将 文字 框 中 选中 的 文本 移 至 剪贴 板 。 

口 Paste 方法 : 把 剪贴 板 上 的 内 容 粘 贴 到 文字 框 中 。 


18.4.3 ”文字 框 常用 事件 


文字 框 控件 主要 用 来 接收 用 户 的 输入 信息 ， 常 用 的 有 以 下 几 个 事件 。 

口 AfterUpdate 事件 : 在 通过 用 户 界面 更 改 了 文字 框 控件 中 的 数据 后 ， 此 事件 发 生 。 
AfterUpdate 事件 发 生 在 BeforeUpdate 事件 之 后 。 

口 BeforeUpdate 事件 : 文字 框 中 的 数据 被 改变 之 前 该 事件 发 生 。 该 事件 代码 有 一 个 
Cancel 参数 ， 如 果 在 程序 中 将 Cancel 参数 设置 为 True， 则 焦点 仍 停留 在 该 文字 框 
控件 上 ， 并 且 AfterUpdate 事件 和 Exit 事件 都 不 会 发 生 。 

口 Change 事件 : 当 文字 框 的 内 容 改 变 时 所 发 生 的 事件 ， 常 用 来 处 理 文字 框 内 容 改变 
后 的 对 应 策略 。 

口 Enter、Exit 事件 : 一 个 控件 从 同一 窗 体 的 另 一 个 控件 实际 接收 到 焦点 之 前 ，Enter 
事件 发 生 。 同 一 窗 体 中 的 一 个 控件 即将 把 焦点 转移 到 另 一 个 控件 之 前 ，Exit 事件 
发 生 。 


18.4.4 ”文字 框 实例 一 一 数据 输入 窗 体 


使 用 文字 框 可 接收 用 户 输入 的 数据 。 通 过 文字 框 的 相关 事件 ， 可 对 用 户 输入 的 数据 进 
行 判断 ， 若 输入 的 数据 不 符合 要 求 的 格式 ， 可 弹出 提示 信息 。 

本 例 制作 如 图 18-6 所 示 的 数据 输入 窗 体 。 用 户 在 各 文字 框 中 输入 数据 ， 单 击 【登记 】 
按钮 ， 可 将 输入 的 数据 填写 到 Excel 工作 表 中 。 
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图 18-6 数据 输入 窗 体 


有 具体 操作 步骤 如 下 : 


(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 向 窗 体 中 添加 如 图 18-6 所 示 的 控件 ， 并 排列 各 控件 
的 位 置 。 设置 各 控件 的 属性 如 表 18-4 所 示 (各 标签 控件 只 用 来 显示 文字 , 不 列 出 其 属性 ) 。 
表 18-4 控件 属性 
用 和 途 对 象 | 属性 | 属 性 值 
主 frmnput 
四 全 忆 
二 a ene 
10 
optMan 
选项 按钮 男 
性 别 Tre 
| 名 称 | 
选项 按钮 2 optWoman 
女 
民族 文字 框 2 ExtNation 
| 和 | i 
出 生年 月 文字 框 3 汪 Gy 
10 
pr wD 
MaxLength 18 
联系 电话 文字 框 5 名 称 txtPhone 
通信 地 址 文字 框 6 名 称 txtAddress 
备注 文字 框 7 和 txtMemo 
MultiLine Tme 
登记 命令 按钮 1 人 
Caption 登记 
。 名 称 cmdClose 
(2) 为 【出 生年 月 】 文 本 框 的 BeforeUpdate 事件 编写 检查 代码 ， 检 查 用 户 输入 的 日 期 


是 否 正 确 ， 具 体 人 
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Private Sub txtBirthday BeforeUpdate(ByVal Cancel As MSForms.Return 
Boolean) 


IE Not IsDate(txtBirthday.Value) Then 
MsgBox "请 输入 正确 的 出 生年 月 ! "， 


， "提示 " 
txtBirthday.Selstart = 0 
txtBirthday.SelLength = Len(txtBirthday.Value) 
Cancel = True 
End If 

End Sub 


(3) 为 【身份 证 】 文 本 框 的 BeforeUpdate 编写 以 下 代码 ， 检 查 身 份 证 号 码 的 正确 性 : 


Private Sub txtID BeforeUpdate (ByVal Cancel As MSForms .ReturnBoolean) 
Dim strId As String ' 暂 存 身份 证 号 

StrId = txtID.Value 

IE Len(strId) <> 15 And Len(strId) <> 18 Then 


MsgBox "身份 证 号 码 位 数 错 误 ， 只 能 为 15 位 或 18 位 ! "，， "提示 " 
txtID.SelStart = 0 


txtID.SelLength = Len(strId) 
Cancel = True 
End If 
End Sub 


(4) 为 【登记 】 按 钮 编写 代码 ， 将 用 户 窗 体 中 输入 的 内 容 添加 到 工作 表 中 ， 有 具体 代码 
如 下 : 


Private Sub cmdSsave_Click() 
IE txtName.Value = "" Then 
MsgBox "请 输入 员工 姓名 ! "， ， "提示 " 
txtName.SetFocus 
Exit Sub 
End If 
add 
End Sub 


以 上 代码 首先 检查 ， 如 果 “ 姓 名 ”为 空 ， 则 退出 保存 数据 的 过 程 。 最 后 调用 自 定义 函 
数 add 完成 添加 过 程 。 


(5) 自 定义 函数 add 的 作用 ， 是 将 用 户 在 窗 体 中 输入 的 内 容 按 一 定 的 对 应 关系 添加 到 
Excel 工作 表 中 ， 具 体 代码 如 下 : 
Sub add() 


Dim intRow As Integer 
With Sheets ("登记 表 ") 


intRow = .Range ("Al") .CurrentRegion.Rows.Count ' 获 取 已 有 数据 行 数 
intRow = intRow + 1 ' 将 用 户 窗 体 上 的 数据 
填充 到 新 行 上 
-Cells (intRow，1) = txtName.Value ' 姓 名 
If optMan.Value Then 
-Cells (intRow, 2) = " 男 " 
Else 


.Cells (intRow, 2) 


m 女 " 
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End If 
.Cells (intRow, 3) = txtNation.Value “民族 
-Cells (intRow，4) = txtBirthday.Value ' 出 生年 月 
.Cells (intRow，5) .NumberFormatLocal = "@" “' 设 置身 份 证 列 为 文本 格式 
-Cells (intRow, 5) = txtID.Value "身份 证 号 码 
.Cells (intRow，6) .NumberFormatLocal = "@" “' 设 置 联系 电话 为 文本 格式 
-Cells (intRow，6) = txtPhone.Value "联系 电话 
.Cells (intRow, 7) = txtAddress.Value ' 通 信 地 址 
-Cells (intRow, 8) = txtMemo.Value "备注 

End With 

End Sub 


(6) 最 后 ， 为 【关闭 】 按 钮 编写 以 下 代码 ， 印 载 当 前 窗 体 : 


Private Sub cmdClose Click() 


Unload Me ' 卸 载 窗 体 


End Sub 


18.5 复 选 框 


复 选 框 用 来 表示 一 个 特定 的 状态 是 选 定 还 是 清除 。 在 应 用 程序 中 为 用 户 提供 从 两 种 方 
案 中 选 其 一 的 操作 。 由 于 复 选 框 彼此 独立 工作 ， 所 以 用 户 可 同时 选择 任意 多 个 复 选 框 。 


18.5.1 


复 选 框 属性 


除了 有 具有 控件 的 共有 属性 外 ， 复 选 框 控件 的 其 他 常用 属性 分 别 如 下 所 述 。 


口 
口 


口 


了 Picture 属性 : 可 为 复 选 框 控件 指定 一 个 显示 的 图 片 。 

Value 属性 : 用 来 设置 返回 控件 的 状态 。 当 选中 复 选 框 控件 时 ， 该 属性 为 True， 而 
属性 值 为 False 时 ， 则 表示 没有 选择 该 复 选 框 。 

TripleState 属性 : 决定 用 户 能 否 在 用 户 界面 为 复 选 框 指定 Null 状态 。 其 值 为 True 
时 ， 表 示 复 选 框 控件 可 在 3 个 状态 中 选择 。 而 其 值 为 False 时 ， 则 复 选 框 控件 只 支 
持 True 和 False 状态 。 


18.5.2” 复 选 框 事件 


复 选 框 最 主要 的 事件 是 Click 事件 ， 选 中 控件 时 ， 其 Value 值 变 为 True。 在 运行 程 
时 ， 如 果 使 用 代码 改变 复 选 框 的 Value 属性 时 ， 也 会 发 和 4 


18.5.3” 复 选 框 实例 


设置 Excel 选项 


E Click 事件 。 


序 


在 Excel 操作 环境 中 ， 打 开 【Excel 选项 】 对 话 框 ， 可 看 到 该 对 话 框 中 使 用 了 很 多 的 复 


选 框 控件 ， 如 图 18-7 所 示 。 
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此 荆 作 筹 的 时 示 先 顶 (@): | 会 生 用 标准 控件 xd 


回 SFTD 
回 7 
回 SFI) 
[I 


© EERaHs)O) 
此 工作 去 的 呈 示 选项 回 : 及 sheetl 


回 显示 行 和 列 标杆 
口 许 差 元 阁 字 呈 示 公式 而 间 基 二 答 结 旦 (R) 


图 18-7 【Excel 选项 】 中 的 复 选 框 


本 例 创建 用 户 窗 体 用 来 设置 Excel 的 部 分 选项 ， 完 成 的 用 户 窗 体 如 图 18-8 所 示 。 


图 18-8 【选项 】 用 户 窗 体 


制作 如 图 18-8 所 示 的 【选项 】 用 户 窗 体 的 步骤 如 下 : 
(1) 在 VBE 中 单 击 主 菜单 【插入 】| 【用户 窗 体 】 命 令 ， 向 工程 中 增加 一 个 用 户 窗 体 。 
(2) 向 用 户 窗 体 中 增加 6 个 复 选 框 控 件 ，2 个 按钮 控件 ， 以 调整 控件 的 布局 如 图 18-8 
所 示 ， 并 设置 各 控件 的 属性 如 表 18-5 所 示 。 


表 18-5 ”控件 属性 

用 途 对 和 象 属 性 值 
主 窗 体 窗 体 Re 泣 

网 格 线 复 选 框 1 5 
行列 标题 复 选 框 2 Ee 证 
标尺 复 选 框 3 四 

水 平 滚动 条 复 选 框 4 Caption 3 
得 这 动 条 | 复生， 和 


Sa 
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续 表 
用 途 对 和 象 属 性 属 性 值 
名 称 chkTabs 
i Caption 显示 工作 表 标 和 
名 称 cmdOK 
确定 命令 按钮 1 Caption 确定 
Default Trmue 
名 称 cmdCancel 
放弃 命令 按钮 2 Caption 放弃 
Cancel True 
(3) 双击 用 户 窗 体 ， 进 入 【代码 】 窗 口 ， 为 窗 体 的 Initialize (初始 化 ) 事件 编写 代码 ， 


获取 Excel 中 相关 选项 的 值 ， 并 使 用 该 值 初始 化 用 户 窗 体 中 的 各 复 选 框 控 件 。 


Private Sub UserForm Initialize() 

With ActiveWorkbook .Windows (1) 
chkGridlines.Value = .DisplayGridlines 
chkHeadings .Value = .DisplayHeadings 
chkRuler.Value = .DisplayRuler 


chkHScrollBar.Value = .DisplayHorizontalscrollBar 
chkVScrollBar.Value = .DisplayVerticalscrollBar 
chkTabs.Value = .DisplayWorkbookTabs 
End With 
End sub 


(4) 当 用 户 设置 不 同 复 选 框 的 值 后 ， 单 击 【确定 】 按 钮 ， 即 可 用 复 选 框 中 的 值 来 修改 
Excel 中 相关 选项 的 值 。 


Private Sub cmdOK Click() 
With ActiveWorkbook.Windows (1) 
.DisplayGridlines = chkGridlines.Value 
.DisplayHeadings = chkHeadings.Value 
.DisplayRuler = chkRuler.Value 
.DisplayHorizontalscrollBar = chkHScrollBar.Value 
.DisplayVerticalSscrollBar = chkVScrollBar.Value 
.DisplayWorkbookTabs = chkTabs.Value 
End With 
Unload Me 
End sub 


本 例 使 用 的 各 选项 设置 值 都 为 True 或 False， 而 复 选 框 的 Value 属性 也 可 返回 True 或 
False。 因 此 ， 本 例 可 直接 将 复 选 框 的 Value 属性 值 给 相关 选项 的 属性 值 即 可 。 


18.6 选项 按钮 


选项 按钮 控件 与 其 他 程序 设计 语言 中 的 单 选 按钮 相同 。 选 项 按钮 是 分 组 的 ， 在 一 组 中 
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只 有 一 个 按钮 处 于 选中 或 按 下 状态 。 在 应 用 程序 中 要 从 几 个 选项 中 选 一 个 时 ， 就 可 以 用 到 
该 选项 按钮 。 


18.6.1 选项 按钮 常用 属性 


除了 具有 控件 共有 属性 外 ， 选 项 按钮 常用 的 属性 还 包括 以 下 几 个 。 

口 GroupName 属性 : 创建 一 个 互 斥 的 选项 按钮 控件 组 。 要 创建 一 个 互 斥 的 数值 调节 
按钮 控件 组 ， 可 将 那些 按钮 放 到 窗 体 上 的 一 个 框架 中 ， 也 可 以 使 用 GroupName 属性 。 

口 Picture 属性 : 可 为 选项 按钮 指定 一 个 显示 的 图 片 。 

口 Value 属性 : 用 来 设置 返回 控件 的 状态 。 当 选项 按钮 值 为 True 时 ， 表 示 已 选择 了 
该 按钮 ， 值 为 False 时 ， 表 示 没 有 选择 该 选项 按钮 。 

口 TripleState 属性 : 决定 用 户 能 否 在 用 户 界面 为 选项 按钮 指定 Null 状态 .其 值 为 True 
时 ， 选 项 按钮 可 在 3 个 状态 中 选择 。 而 其 值 为 False 时 ,按钮 只 支持 True 和 False 


18.6.2 ”选项 按钮 常用 事件 


选项 按钮 的 常用 事件 是 Click 事件 ， 在 运行 程序 时 ， 如 果 设 置 选项 按钮 的 Value 属性 
值 为 True， 则 会 发 生 Click 事件 。 用 户 单 击 选项 按钮 也 将 发 生 Click 事件 。 


18.6.3 ”选项 按钮 实例 一 一 设置 窗 体 字号 和 颜色 


选项 按钮 也 是 最 常见 的 控件 之 一 。 本 例 制作 如 图 18-9 所 示 的 用 户 窗 体 ， 在 该 窗 体 中 ， 
用 户 可 通过 单 击 【 字 号 】 和 【颜色 】 选 项 按钮 ， 分 别 设置 文字 框 中 文字 的 大 小 和 颜色 。 


图 18-9 【设置 字号 和 颜色 】 对 话 框 


制作 上 图 所 示 用 户 窗 体 的 步骤 如 下 : 

(1) 在 VBE 中 ， 向 工程 中 插入 一 个 用 户 窗 体 。 

(2) 向 用 户 窗 体 中 添加 1 个 标签 控件 、1 个 文字 框 控件 、2 个 框架 控件 和 8 个 选项 按 
钮 控件 。 调 整 各 控件 的 布局 如 图 18-9 所 示 ， 并 设置 各 控件 的 属性 值 如 表 18-6 所 示 。 
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表 18-6 控件 属性 
用 途 对 象 属 性 属 性 值 
i 名 称 frmFontsize 
了 人 Caption 设置 字号 和 颜色 
提示 信息 标签 Caption 请 输入 文本 
接收 用 户 输入 文字 框 2 txtFont 
文字 MultiLine True 
字号 分 组 框架 1 字号 
选项 按钮 1 . op 
Caption 10 
选项 按钮 2 人 站 
字号 大 小 Do 
选项 按钮 3 一 
20 
选项 按钮 4 opt25 
p23 
颜色 分 组 框架 2 颜色 
optBlack 
选项 按钮 5 和 
oa 
红色 
1G 
y optGreen 
项 按钮 7 
四 绿色 
optYellow 
选项 按钮 8 
2 贡 色 


外 注意 : 本 例 使 用 框架 来 为 两 组 不 同 的 选项 按钮 分 组 。 这 时 ， 需 首先 向 窗 体 中 添加 框架 控 


件 ， 接 着 选中 框架 控件 后 ， 再 向 框架 中 添加 选项 按钮 。 


(3) 设置 好 各 控件 的 属性 后 ， 就 可 以 开始 编写 代码 了 。 本 例 直 接 在 选项 按钮 的 Click 
事件 中 编写 代码 ， 当 用 户 单 击 该 选项 按钮 时 即 可 执行 该 事件 过 程 中 的 代码 。 首 先 在 字号 为 
10 的 按钮 的 Click 事件 过 程 中 编写 以 下 代码 : 


Private Sub opt10_Click() 
上 txtFont .Font . Size 


End sub 
其 他 字号 选项 按钮 的 代码 与 此 类 似 ， 就 不 再 列 出 了 。 
(4) 为 颜色 框架 中 的 【黑色 】 选 项 按钮 Click 事件 编写 代码 如 下 : 


Private Sub optBlack Click() 
txtFont .ForeColor = vbBlack 
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End Sub 


其 他 颜色 选项 按钮 的 代码 与 此 类 似 。 


18.7 列 表 框 


列表 框 主要 用 来 显示 项 目 列表 ， 当 项 目 总 数 超过 控件 高 度 时 ， 列 表 框 控件 会 自动 添加 
垂直 方向 的 滚动 条 。 用 户 可 从 列表 框 中 选择 一 项 或 多 项 数据 。 


| 


列表 框 常用 属性 


列表 框 与 文字 框 最 主要 的 区 别 在 于 列表 框 能 够 显示 多 行文 本 ， 并 且 每 行文 本 是 一 个 可 
以 独立 处 理 的 项 。 除 控件 共有 属性 之 外 ， 列 表 框 常用 属性 还 包括 以 下 几 个 。 


口 


口 
口 
口 


口 


全 提示 : 


BoundColumn 属性 : 列表 框 可 以 显示 多 列 数据 ， 当 选择 了 多 列 列表 框 的 一 行 时 ， 

BoundColumn 属性 标识 出 将 该 行 的 哪 一 条 目 作 为 控件 的 值 存储 。 

ColumnCount 属性 : 设置 列表 框 显 示 的 列 数 。 

ColumnHeads 属性 : 该 属性 设置 是 否 显示 列表 框 的 列 标题 行 。 

ColumnWidths 属性 : 指定 多 列 列表 框 中 的 各 列 的 宽度 。ColumnWidths 属性 中 的 任 

意 或 全 部 设置 值 均 可 为 空 。 仅 输入 列表 分 隔 符 而 没有 预 置 值 便 可 建立 一 个 空 设置 。 

List 属性 : 用 来 获取 或 设置 列表 框 中 的 列表 项 内 容 。List 属性 是 字符 串 数 组 ， 每 个 

数组 元 素 都 是 列表 框 中 的 一 个 列表 项 ,通过 List (下 标 值 ) 的 形式 表示 。 如 列表 框 

中 的 第 1 项 ， 用 List (0) 表示 ， 列 表 框 中 的 第 2 项 ， 用 List (1) 表示 ， 列 表 框 中 

的 第 10 项， 用 List (9) 表示 ， 以 此 类 推 。 

ListCount 属性 : ListCount 属性 常 与 List 属性 一 起 使 用 ， 表 示 列 表 框 中 有 多 少 个 列 

表 项 。 

ListIndex 属性 : 返回 列表 框 中 选中 选项 的 序号 。 

MultiSelect 属性 : 是 否 允 许 列表 框 进行 多 选 。 可 设置 为 以 下 常数 。 

> FmMultiSelectSingle: 值 为 0， 表示 只 可 选择 一 个 条 目 ， 这 是 默认 值 。 

> FmMultiSelectMulti: 值 为 1， 表 示 按 空格 键 或 单 击 鼠 标 以 选 定 列表 中 一 个 条 目 
或 取消 选 定 。 

> FmMultiSelectExtended: 值 为 2， 按 Shift 键 并 单 击 鼠标 ， 或 按 Shift 键 的 同时 
按 一 个 方向 键 , 将 所 选 条 目 由 前 一 项 扩展 到 当前 项 。 按 Ctrl 键 的 同时 单 击 鼠标 
可 选 定 或 取消 选 定 。 

Selected 属性 : Selected 属性 表示 列表 框 中 各 个 列表 项 是 否 被 选中 , 它 是 一 个 数组 ， 

其 数组 元 素 的 个 数 与 列表 框 的 项 数 相同 。 


当 MultiSelect 属性 设置 为 Extended 或 Simple ， 必 须 用 列表 框 的 Selected 属性 确 
定 选 定 的 条 目 。 而 且 ， 控 件 的 Value 属性 总 是 Null。 
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18.7.2 ”列表 框 的 方法 


列表 框 提供 相应 的 方法 ， 用 来 操作 列表 框 中 的 列表 框 。 
口 AddItem 方法 


用 AddItem 可 以 为 列表 框 增加 项 目 ， 其 代码 规则 如 下 : 

[对 象 名 ] .AdaItem[ 项 字符 串 ] [， 索 引 值 ] 

其 中 , “项 字符 串 ” 是 用 双 引 号 〈"") 定 界 的 ， 表 示 将 要 在 列表 中 显示 的 项 名 称 。“ 索 
引 值 ” 是 从 0 开始 的 顺序 号 ， 标 明 新 增 的 项 在 列表 框 中 的 位 置 ， 如 果 没有 “索引 值 ”， 则 
表示 将 新 增 的 项 添加 到 列表 末尾 。 

口 Clear 方法 

用 Clear 可 以 清除 列表 框 中 的 所 有 内 容 ， 其 代码 规则 如 下 : 

[列表 框 名 称 ] . Clear 

口 Removeltem 方法 

Removeltem 方法 能 够 从 列表 框 中 删除 某 一 项 ， 其 一 般 格式 如 下 : 

[对 象 名 ] .RemoveItem[ 索 引 值 ] 

其 中 ， 索 引 值 是 必须 的 ， 表 示 欲 删除 哪 一 个 项 目 。 

对 于 任意 一 个 列表 框 ， 要 删除 已 经 选中 的 项 目 ， 代 码 如 下 : 

[列表 框 名 称 ] .RemoveItem[ 列 表 框 名 称 ] .ListIndex。 


18.7.3 ”列表 框 实例 一 一 列表 框 间 移动 数据 
在 用 户 窗 体 中 使 用 列表 框 可 显示 大 量 数据 ， 特 别 适合 显示 工作 表 中 的 数据 。 本 例 从 


Excel 工作 表 中 读 入 数据 ， 添 加 到 列表 框 ， 再 通过 用 户 窗 体 中 的 相关 按钮 ， 分 别 操作 列表 
框 中 的 数据 。 本 例 的 工作 界面 如 图 18-10 所 示 。 


图 18-10 【列表 框 示例 】 对 话 框 
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如 图 18-10 所 示 ， 用 户 窗 体 从 工作 表 “ 图 书 名 ”中 获取 相关 数据 ， 添 加 到 左 侧 列表 框 
中 。 通 过 两 个 列表 框 中 部 的 4 个 按钮 可 在 两 个 列表 框 之 间 移 动 数据 ， 单 击 下 方 的 【添加 图 
书 】 按 钮 可 向 左 侧 列表 框 中 添加 数据 ， 单 击 【 删 除 图 书 】 按 钮 可 将 左 侧 列表 框 中 选择 的 数 
据 项 删除 ， 单 击 【 清 空 】 按 钮 可 清除 两 个 列表 框 中 的 数据 项 。 

要 完成 以 上 用 户 窗 体 ， 可 按 以 下 步骤 操作 : 

(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 向 窗 体 中 添加 2 个 列表 框 控 件 和 8 个 命令 按钮 控 


件 ， 调 整 各 控件 布局 ， 如 图 18-10 所 示 ， 并 设置 各 控件 的 属性 ， 如 表 18-7 所 示 。 


表 18-7 ”控件 属性 


名 称 frmList 
a 人 Caption 列表 框 示例 
左 侧 列表 框 列表 框 1 名 称 lstLeft 
右 侧 列表 框 列表 框 2 TstRight 
右 移 列表 框 所 cmdToRightAll 
1 
有 数据 是 > 
十 移 列 衣柜 这 ER 
和 » 
中 数据 人 > 
左 移 列表 框 选 cmdToLeft 
3 
中 数据 We < 
左 移 列表 框 所 cmdToLeftAll 
4 
有 数据 < 
RS 5 
i Wi 洲 加 图 忆 
删 左 侧 列表 框 cmdDel 
6 
选中 数据 A 删除 图 书 
清空 两 个 列 mdclear 
了 
表 杠 he 清空 
名 称 cmdClose 
关闭 命令 按钮 8 Caption 关闭 
Cancel True 


(2) 在 窗 体 的 Initialize 事件 中 编写 以 下 代码 ， 用 来 从 工作 表 中 添加 数据 到 列表 框 : 


Private Sub UserForm Initialize() 
Dim zl Rs Range, i As Long 


With ActiveWorkbook .Worksheets ("图 书 名 ") 
i = .Range("Al") .End (xlDown) .Row ' 已 有 数据 行 数 
Set rl1 = .Range(Cells(2, 1), Cells(i, 1)) ' 获 取 已 有 数据 引用 
End With 
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For i = 1 To r1.Rows.Count "添加 到 列表 框 
lstLeft .AddItem r1 (i) 

Next 

If lstLeft.ListCount >= 1 Then ' 设 置 各 按钮 的 可 用 性 


cmdToRight .Enabled = True 
cmAToRightAll .Enabled = True 
Else 
cmdToRight .Enabled = False 
cmAdToRightAll.Enabled = False 
End If 
cmdToLeft .Enabled = False 
cmdToLeftAll .Enabled = False 
End Sub 


以 上 代码 首先 从 Excel 工作 表 “ 图 书 名 ”的 A 列 获取 数据 ， 添 加 到 窗 体 左 侧 的 列表 框 
中 ， 最 后 根据 列表 框 中 列表 框 的 数据 项 数量 ， 设 置 各 按钮 的 可 用 状态 。 

(3) 在 左 侧 列表 框 和 右 侧 列 表 框 的 单 击 事件 中 编写 代码 ， 用 来 设置 两 个 列表 框 之 间 按 
钮 的 可 用 状态 ， 具 体 代码 如 下 : 


Private Sub lstLeft Click() 

IE lstLeft.ListIndex >= 0 Then 
cmdToRight .Enabled = True 
cmAdToRightAll.Enabled = True 

Else 
cmdToRight .Enabled = False 
cmAToRightAll.Enabled = False 

End If 

End Sub 


Private Sub lstRight Click() 

IE lstRight.ListIndex >= 0 Then 
cmdToLeft .Enabled = True 
cmdToLeftRA11.Enabled = True 

Else 
cmdToLeft .Enabled = False 
cmdToLeftAll .Enabled = False 

End If 

End sub 


(4) 单 击 cmdToRightAll 按钮 时 ， 将 左 侧 列表 框 中 的 数据 全 部 移 至 右 侧 列表 框 中 ， 具 
体 代 码 如 下 : 


Private Sub cmdToRightAll Click() 


Do While lstLeft.ListCount > 0 ' 循 环 处 理 所 有 数据 
lstRight .AddItem lstLeft.List (0) '! 添 加 列表 框 中 第 1 项 
lstLeft .RemoveItem 0 "删除 第 1 项 
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Loop 


"以 下 代码 设置 按钮 状态 
IE lstRight.ListCount > 0 Then cmdToLeftAl]l.Enabled = True 
cmdToRight .Enabled = False 


cmdToRightAll .Enabled = False 
End Sub 


以 上 代码 通过 循环 操作 ， 每 次 移动 左 侧 列表 框 中 的 第 1 个 列表 框 ， 使 用 List(0) 可 访问 
第 1 个 列表 框 。 

(5) 单 击 cmdToRight 按钮 时 ， 将 左 侧 列表 框 中 选中 的 数据 项 移 到 右 侧 列表 框 中 ， 具 
体 代码 如 下 : 


Private Sub cmdToRight Click() 
IE lstLeft.ListIndex >= 0 Then 


lstRight .AddItem lstLeft.Text ' 在 右边 列表 中 增加 新 元 素 
lstLeft .RemoveItem lstLeft.ListIindex "删除 左边 列表 中 的 所 选 元 素 
End If 


IE lstRight.ListCount > 0 Then cmdToLeftAll.Enabled = True 
If lstLeft.ListCount > 0 Then 
cmdToRight .Enabled = True 
cmAdToRightAll .Enabled = True 
Else 
cmdToRight .Enabled = False 
cmdToRightAll.Enabled = False 
End If 
End Sub 


(6) 单 击 名 为 cmdToLeft 的 按钮 ， 将 右 侧 列表 框 中 选中 的 数据 项 移 到 左 侧 列表 框 中 ， 
具体 代码 如 下 : 


Private Sub cmdToLeft Click() 
IE lstRight.ListIindex >= 0 Then 


lstLeft .RddItem lstRight.Text ' 在 右边 列表 中 移动 数据 到 左 侧 
lstRight .RemoveItem lstRight .ListIndex “' 删 除 右 边 列表 中 的 所 选 元 素 
End If 


IE lstLeft.ListCount > 0 Then cmdToRightAll .Enabled = True 
If lstRight.ListCount > 0 Then 
cmdToLeft .Enabled = True 
cmdToLeftAll .Enabled = True 
Else 
cmdToLeft .Enabled = False 
cmdToLeftAll .Enabled = False 
End If 
End Sub 


(7) 单 击 名 为 cmdToLeftAll 的 按钮 时 ， 将 右 侧 列表 框 中 的 数据 全 部 移 到 左 侧 列表 框 
中 ， 具 体 代码 如 下 : 
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Private Sub cmdaToLeftRl11_Click() 
Do While lstRight.ListCount > 0 
lstLeft .AddItem lstRight.List(0) 
lstRight.RemoveItem 0 
Loop 
IE lstLeft.ListCount > 0 Then cmdToRightAll.Enabled = True 
cmadToLeft. Enabled = False 
cmdToLeftAll .Enabled = False 
End Sub 


(8) 单 击 名 为 cmdAdd 的 按钮 时 ， 将 弹出 一 个 输入 对 话 框 ， 让 用 户 输入 新 的 数据 ， 并 
将 该 数据 添加 到 左 侧 列表 框 中 ， 具 体 代 码 如 下 : 
Private Sub cmdAdd Click() 


Dim strItem As String W 
strItem = InputBox(" 在 列表 中 输入 新 图 书 名 : ") ' 向 列表 中 输入 新 项 目 


IE Trim(strItem) <> "" Then 
lstLeft.AddItem strItem 
End If 
End Sub 


(9) 单 击 名 为 cmdDel 的 按钮 时 ， 将 删除 左 侧 列表 框 中 选中 的 数据 项 。 


Private Sub cmdDel Click() 
If lstLeft.ListIndex >= 0 Then 
lstLeft .RemoveItem lstLeft.ListIndex 
End If 
End Sub 


(10) 单 击 名 为 cmdClear 的 按钮 时 ， 将 清除 两 个 列表 框 中 所 有 的 数据 项 。 


Private Sub cmdClear Click() 
lstLeft.Clear 
lstRight .Clear 

End Sub 


18.8 复合 框 


复合 框 控 件 将 文字 框 和 列表 框 的 特性 结合 在 一 起 ， 既 可 在 控件 中 的 文字 框 部 分 输入 信 
息 ， 也 可 在 控件 的 列表 框 部 分 选择 某 项 信息 。 


18.8.1 复合 框 常用 属性 


列表 框 控件 的 大 部 分 属性 同样 适合 复合 框 ， 此 外 复合 框 还 有 自己 的 一 些 属性 。 
口 ListRows 属性 : 指定 复合 框 的 下 拉 列 表 中 显示 的 最 大 行 数 。 如 果 列 表 中 的 条 目 数 
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超出 ListRows 属性 的 值 ， 则 将 在 复合 框 的 列表 框 部 分 的 右边 出 现 一 个 滚动 条 。 
口 Style 属性 : VBA 中 的 复合 框 有 两 种 不 同 的 形式 ， 不 同 的 Style 属性 值 确 定 了 复合 
框 的 类 型 和 显示 方式 。 
> FmStyleDropDownCombo: 值 为 0， 称 为 “下 拉 式 复合 框 ”， 它 由 可 输入 的 编 
辑 区 和 一 个 下 拉 式 列表 框 组 成 。 用 户 可 以 从 键盘 直接 向 文本 编辑 区 输入 内 容 ， 
也 可 单 击 三 角形 按钮 ， 从 下 拉 列 表 中 选择 。 
> FmStyleDropDownList: 值 为 2， 称 为 “下 拉 式 列表 框 ”， 其 外 形 与 “下 拉 式 复 
合 框 ”相似 ， 但 用 户 只 能 从 列表 框 中 选择 而 不 能 直接 向 文本 区 输入 。 
口 Text 属性 : 该 属性 用 来 返回 选择 的 文本 或 直接 在 编辑 区 输入 的 文本 ， 可 在 界面 设 
置 时 直接 输入 。 


18.8.2 ”复合 框 常用 方法 
跟 列 表 框 一 样 ， 复 合 框 也 适用 AddItem、Clear、Removeltem 方法 。 
18.8.3 ”复合 框 常用 事件 
根据 复合 框 的 类 型 ， 它 们 所 响应 的 事件 有 所 不 同 。 
例如 ， 当 复合 框 的 Style 属性 为 0 或 2 时， 能够 接收 Click 与 Dropdown 事件 ; 当 Style 
属性 为 0 时 ， 文 字 框 还 可 以 接收 Change 事件 。 
18.8.4 复合 框 实例 一 一 微机 配置 单 


下 面 以 如 图 18-11 所 示 的 用 户 窗 体 为 例 ， 来 演示 复合 框 的 使 用 。 


[ND 


图 18-11 复合 框 示例 


制作 图 18-11 所 示 用 户 窗 体 的 具体 步骤 如 下 : 

(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 在 窗 体 中 放置 5 个 标签 控件 、1 个 文字 框 控件 、4 
个 复合 框 控件 、2 个 命令 按钮 控件 。 调 整 各 控件 的 布局 如 图 18-11 所 示 ， 设 置 各 控件 的 属 
性 如 表 18-8 所 示 。 
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表 18-8 控件 属性 
用 ” 途 属 性 属 性 值 
名 称 fmComputer 
主 久 从 Caption 微机 配置 
显示 配置 名 和 txtComputer 
MultiLine True 
CPU 列 表 cmbCPU 
内 存 列 表 cmbMem 
硬盘 列表 cmbHDD 
显示 器 列表 cmbDisp 
名 称 cmdAdd 
确定 Caption 确定 
Default True 
名 称 cmdClose 
关闭 Caption 关闭 
True 


(2) 双击 窗 体 的 分 
各 复合 框 中 添加 初始 数据 。 


Private Sub UserForm Initialize() 
With cmbCPU 


.RddItem 
.RddItem 
.RddItem 
-RddItem 
.RddItem 
.RddItem 
-RddItem 
.RddItem 
:Text = 


End With 
With cmbMem 


AddItem 
AddItem 
.RddItem 
.RddItem 
-RddItem 
.Text = 


End With 


With cmbHDD 


-AddItem 
-RddItem 
-RddItem 
-AddItem 


白 处 打开 【代码 】 窗 口 ， 在 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 向 


"QX6850 3.0GHz" 
"QX6800 2.93GHz" 
"QX6700 2.66GHz" 


"X7800 
"X6800 
"E6850 
"E6750 
"E6700 


-List(0) 


"512M" 
ndGn 
nm2Gn 
na3aGn 
maGn 


-List(0) 


"80G" 
"120G" 
"160G" 
"250G" 


2.6GHz" 
2.93GHz" 
33» 
2 
2 


OGHz" 


.66GHzZ" 
.66GHzZ" 
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.Text = .List(0) 
End With 


With cmbDisp 
-RddItem "CRT 19 寸 " 
-AddItem "CRT 21 寸 " 
-AddItem "LCD 17 寸 " 
-AddItem "LCD 19 寸 " 
-AddItem "LCD 22 寸 " 
-Text = .List(0) 

End With 

End sub 


(3) 当 用 户 在 各 复合 框 中 选择 好 需要 的 数据 后 ， 单 击 【 确 定 】 按 钮 ， 可 在 左 侧 的 文字 
框 中 显示 所 选择 的 微机 配置 列表 。 该 按钮 的 代码 如 下 : 


Private Sub cmdAdd Click() 
Dim strl As String 
strl 
strl 
strl 
strl = strl & "显示 器 : " & 
txtComputer.Value = strl 

End Sub 
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"CPU: " & cmbCPU.Value & Chr (13) 
strl & "内 存 : " & cmbMem.Value & Chr (13) 
strl & "硬盘 : " & cmbHDD.Value & Chr(13) 


cmbDisp.Value 


滚 动 条 


滚动 条 是 可 放置 在 窗 体 中 的 独立 控件 。 它 看 上 去 与 某 些 控件 (例如 列表 框 或 复合 框 的 
下 拉 部 分 ) 中 的 滚动 条 类 似 。 然 而 ， 与 这 些 例子 中 的 滚动 条 不 同 ， 独 立 的 滚动 条 不 是 任何 


其 他 控件 的 组 成 部 分 。 


与 VB 不 同 ，VBA 工具 箱 中 只 提供 了 一 种 滚动 条 ， 要 创建 横向 或 纵向 滚动 条 ， 通 过 将 
已 放 署 在 窗 体 中 的 滚动 条 进行 水 平 或 垂直 拖 动 ， 就 可 以 创建 横向 或 纵向 的 滚动 条 。 


18.9.1 滚动 条 常用 属性 


除 控件 共有 的 属性 外 ， 滚 动 条 控件 常用 的 属性 还 有 下 述 的 几 个 。 


口 LargeChange 属性 : 当 用 户 单 避 
的 Value 属性 值 的 改变 量 。 


生 滚 动 条 和 滚动 箭头 之 间 的 区 域 时 ， 返 


回 滚动 条 控件 


口 SmallChange 属性 : 当 用 户 单 击 滚动 箭头 时 ， 返 回 滚动 条 控件 的 Value 属性 值 的 改 


变量 。 


口 Max 属性 : 当 滚 动 框 处 于 底部 或 最 右 位 置 时 ， 返 回 一 个 滚动 条 位 置 的 Value 属性 


最 大 设置 值 。 


口 Min 属性 : 当 滚 动 框 处 于 项 部 或 最 左 位 置 时 , 返回 一 个 滚动 条 位 置 的 Value 属性 最 
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小 设置 值 。 
口 Value 属性 : 滚动 条 的 当前 位 署 ， 其 返回 值 始 终 介 于 Max 和 Min 属性 值 之 间 ， 包 
括 这 两 个 值 。 


全 注意 :Min 和 Max 属性 的 范围 为 -32768 ~ 32767， 默 认 设置 Max 为 32767，Min 为 0。 
如 果 Max 被 设 为 比 Min 小 的 值 ， 那 么 最 大 值 将 被 分 别 设 为 水 平 或 垂直 滚动 条 的 
最 左 或 最 上 位 置 处 。 


18.9.2 滚动 条 常用 事件 


捕获 滚动 条 的 事件 ， 可 使 滚动 条 修改 的 数值 进行 即时 响应 。 滚 动 条 控件 的 常用 事件 分 
别 如 下 所 述 。 
口 Change 事件 :移动 滚动 条 的 滚动 框 部 分 ， 在 进行 滚动 或 通过 代码 改变 Value 属性 
的 设置 时 发 生 。 
口 Scroll 事件 : 当 ScrollBar 控件 上 的 滚动 框 被 重新 定位 ， 或 按 水 平方 向 或 垂直 方向 
滚动 时 ， 将 发 生 Scroll 事件 。 


全 注意 :Change 是 滚动 完成 后 触发 的 事件 ，Scroll 是 在 滚动 过 程 中 触发 的 事件 。 


18.9.3 ”滚动 条 实例 一 一 显示 比例 

在 Excel 中 打开 【显示 比例 】 对 话 框 如 图 18-12 所 示 ， 在 该 对 话 框 中 可 设置 工作 表 的 
显示 比例 。 但 该 对 话 框 操作 不 太 方便 ， 本 例 制作 一 个 自 定义 的 【显示 比例 】 对 话 框 ， 如 图 
18-13 所 示 。 在 该 对 话 框 中 ， 用 户 可 通过 单 击 滚动 条 来 调整 工作 表 的 显示 比例 ， 也 可 在 下 
方 的 文本 框 中 输入 显示 比例 的 数值 。 在 该 对 话 框 右 侧 ， 还 可 以 单 击 水 平和 垂直 滚动 条 来 滚 
动工 作 表 ， 以 显示 不 同 的 区 域 。 


图 18-12 系统 的 【显示 比例 】 对 话 框 图 18-13 ” 自 定义 的 【显示 比例 】 对 话 框 


制作 图 18-13 所 示 对 话 框 的 具体 步骤 如 下 : 

(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 向 窗 体 中 添加 2 个 框架 控件 、3 个 滚动 条 控件 、 一 
个 文字 框 控件 和 1 个 按钮 控件 ， 调 整 各 控件 布局 如 图 18-13 所 示 ， 设 置 各 控件 的 属性 如 表 
18-9 所 示 。 
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表 18-9 ”控件 属性 
用 途 对 和 象 属 性 值 
fmZoom 
主 窗 体 窗 体 显示 比例 
Framel 
R1 
ie 缩放 工作 表 
名 称 scbZoom 
缩放 工作 表 滚动 条 1 ME 人 
Min 10 
Value 100 
文字 框 名 称 txtZoom 
命令 按钮 1 名 称 cmd100 
2 滚动 条 1 名 称 scbH 
滚动 工作 
人 深 动 条 2 名 称 scbV 
名 称 cmdClose 
关闭 命令 按钮 2 关闭 
Tre 


(2) 在 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 设 置 各 深 动 条 的 初始 值 : 


Private Sub UserForm Initialize() 
txtZoom.Value = RctiveWindow.Zoom 


With scbZoom 
.Min = 10 
-Max = 400 
.SmallChange = 1 
.LargeChange = 10 
.Value = ActiveWindow.Zoom 
End With 


With scbH 
-Min = 1 
:Max = RctiveSheet.Cel1ls.Columns .Count 
.Value = ActiveWindow.ScrollColum 
.LargeChange = 10 
.SmallChange = 1 

End With 


With scbV 
-Min = 1 
.Max = RctiveSheet.Cel1ls.Rows.Count 
-Value = ActiveWindow.ScrollRow 
.LargeChange = 10 
.SmallChange I 

End With 

End Sub 


Il 


' 文 字 框 显示 当前 比例 
' 缩 放 滚动 条 的 属性 


' 水 平 滚动 工作 表 参 数 


' 最 大 列 数 
' 当 前 列 


"垂直 滚动 工作 表 参 数 


"最 大 行 数 
' 当 前 行 
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(3) 为 【缩放 工作 表 】 滚 动 条 的 Change 事件 编写 代码 ， 对 当前 窗口 进行 缩放 。 具 体 
代码 如 下 : 


Private Sub scbZoom Change() 
With ActiveWindow 


-Zoom = scbZoom.Value ' 用 滚动 条 的 值 设置 当前 窗口 的 缩放 
txtZoom = .Zoom ' 设 置 文字 框 的 值 
-ScrollColumn = scbH.Value “' 最 左边 的 列 号 
ScrollRow = scbV.Value ' 最 顶端 的 行 号 
End With 
End Sub 


(4) 为 【100%]】 按 钮 的 单 击 事件 编写 VBA 代码 ， 设 置 缩放 滚动 条 的 值 为 100， 此 时 
将 产生 缩放 滚动 条 的 Change 事件 ， 对 当前 窗口 进行 缩放 。 具 体 代 码 如 下 : 
Private Sub cmd100 Click() 


scbZoom.Value = 100 
End Sub 


(5) 为 输入 缩放 比例 的 文本 框 的 AfterUpdate 事件 编写 以 下 VBA 代码 ， 将 文本 框 中 输 
入 的 值 赋 值 为 缩放 滚动 条 : 
Private Sub txtZoom AfterUpdate() 


scbZoom.Value = txtZoom.Value 
End Sub 


(6) 为 窗 体 右 侧 【 滚 动工 作 表 】 框 架 中 的 水 平和 垂直 滚动 条 的 Change 事件 编写 代码， 
设置 当前 窗 体 的 ScrollColumn 或 ScrollRow 属性 值 为 滚动 条 的 值 。 具 体 代 码 如 下 : 


Private Sub scbH Change() 
ActiveWindow.ScrollColumn = scbH.Value 
End Sub 


Private Sub scbV_ Change() 


ActiveWindow.ScrollRow = scbV.Value 
End Sub 


18.10 旋转 按钮 


旋转 按钮 控件 主要 用 来 输入 一 定 范围 内 的 整数 值 ， 一 般 将 旋转 按钮 与 文字 框 结合 起 来 
使 用 。 单 击 旋转 按钮 只 会 更 改 旋转 按钮 的 值 , 还 需要 编写 代码 修改 与 之 结合 的 文字 框 的 值 。 


18.10.1 旋转 按钮 常用 属性 


旋转 按钮 控件 最 常用 的 是 Max 和 Min 属性 , 这 两 个 属性 规定 控件 的 Value 属性 可 接收 
的 最 大 值 和 最 小 值 。 单 击 旋转 按钮 控件 的 上 下 箭头 按钮 可 改变 控件 的 Value 属性 。 
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18.10.2 ”旋转 按钮 常用 事件 


当 旋 转 按钮 控件 Value 属性 改变 时 ， 将 触发 Change 事件 ， 一 般 在 该 事件 中 编写 代码 ， 
来 获取 控件 的 Value 值 ， 并 应 用 到 与 之 关联 的 文字 框 控 件 中 。 


18.10.3 ”旋转 按钮 实例 修改 日 期 和 时 间 


本 例 制作 如 图 18-14 所 示 的 用 户 窗 体 ， 使 用 旋转 按钮 来 调整 日 期 和 时 间 值 。 


修改 日 期 和 时 间 


图 18-14 【修改 日 期 和 时 间 】 对 话 框 

制作 以 上 用 户 窗 体 的 具体 操作 步 又 如 下 : 

(1) 在 VBE 中 插入 一 个 用 户 窗 体 ， 在 窗 体 中 添加 8 个 标签 、6 个 文字 框 、6 个 旋转 按 
钮 和 2 个 命令 按钮 。 调 整 各 控件 的 布局 如 图 18-14 所 示 ， 设 置 各 控件 的 属性 如 表 18-10 
所 示 。 

表 18-10 控件 属性 
属 性 值 
frmDate 
修改 日 期 和 时 间 
txtYear 


MaxLength 4 

名 称 txtMonth 
MaxLength 

名 称 txtDay 

名 称 txtHour 
MaxLength 2 

名 称 fxtMinute 
MaxLength 2 

名 称 txtSecond 
MaxLength 2 


和 
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续 表 
用 途 属 性 值 
spbYear 
调整 年 1900 
2500 
spbMonth 
调整 月 1 
12 
spbDay 
调整 日 1 
31 
spbHour 
调整 时 0 
23 
spbMinute、spbSecond 
调整 分 、 秒 0 
59 
全 提示 : 在 调整 日 期 的 旋转 按钮 中 ， 初 始 设置 其 Max 属性 为 31， 在 程序 中 根据 选择 的 年 
和 月 决定 每 月 的 天 数 ， 使 其 作为 Max 属性 的 值 。 
(2) 在 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 获 取 系 统 当 前 日 期 和 时 间 ， 分 别 显示 在 对 


应 的 文字 框 中 ， 并 根据 当前 的 值 初始 化 各 旋转 按钮 的 值 。 


Private Sub UserForm Initialize!() 


End 
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txtYear.Value = Year (Date) "获取 当前 日 期 的 年 月 日 
txtMonth.Value = Month (Date) 

txtDay.Value = Day (Date) 

txtHour .Value = Hour (Time) "获取 当前 时 间 的 时 分 秒 
txtMinute.Value = Minute (Time) 

txtSecond.Value = Second (Time) 


spbYear.Value = txtYear.Value ' 为 旋转 按钮 赋值 
spbMonth.Value = txtMonth.Value 
spbDay .Value = txtDay.Value 


spbHour.Value = txtHour.Value 
spbMinute.Value = txtMinute.Value 
spbsecond.Value = txtSecond.Value 
Sub 


给 名 为 spbYear 的 旋转 按钮 控件 的 Change 事件 编写 以 下 代码 , 用 旋转 按钮 的 值 更 


新 对 应 文字 框 中 的 值 。 


Private Sub spbYear Change() 
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txtYear.Value = spbYear.Value 
End Sub 


全 提示 : 窗 体 中 其 他 旋转 按钮 的 Change 事件 代码 与 此 类 似 ， 这 里 不 再 一 一 列 出 。 


(4) 在 日 期 设置 中 ， 根 据 月 大 或 月 小 的 不 同 ， 每 月 天 数 也 不 相同 。 对 于 闲 年 ，2 月 的 
天 数 也 不 相同 。 这 时 ， 可 以 编写 代码 计算 每 月 的 天 数 。 在 本 例 中 ， 使 用 以 下 代码 来 生成 每 
月 的 天 数 。 其 计算 方法 时 ， 取 下 月 1 日 减 去 1 天 ， 即 可 得 到 上 月 的 最 后 一 天 ， 再 由 Day 函 
数 得 到 该 天 的 日 期 即 可 。 取 得 当月 的 天 数 后 , 通过 调整 日 期 的 旋转 按钮 的 Max 属性 限制 其 
最 大 值 。 


Private Sub txtMonth Change() 
Dim dTemp As Date 
dTemp = DateSerial (txtYear.Value, txtMonth.Value + 1, 1) 
spbDay.Max = Day(dTemp - 1) 

End Sub 


(5) 用 户 在 窗 体 中 设置 好 日 期 和 时 间 值 后 ， 单 击 【设置 】 按 钮 ， 即 可 用 输入 的 参数 设 
署 系 统 的 日 期 和 时 间 。 该 按钮 Click 事件 的 代码 如 下 : 
Private Sub cmdset Click() 


Dim dTemp, dTime 
dTemp = DateSerial (txtYear.Value, txtMonth.Value, txtDay.Value) 


' 生 成 日 期 

dTime = TimeSerial (txtHour.Value, txtMinute.Value, txtSecond.Value) 
' 生 成 时 间 

Date = dTemp ' 设 置 日 期 

dTime = dTime ' 设 置 时 间 


End Sub 


18.11 多 页 


多 页 控件 可 以 在 窗 体 中 显示 一 系列 不 同 的 页 面 ， 在 处 理 可 以 划分 为 不 同类 别 的 大 量 信 
息 时 很 有 用 。 利 用 多 页 控件 能 够 将 相关 信息 组 织 在 一 起 显示 出 来 ， 同 时 又 能 够 随时 访问 整 


18.11.1 多 页 控件 常用 属性 


多 页 控件 对 象 为 MultiPage， 在 该 控件 中 还 包括 有 子 对 象 一 一 Page 对 象 。 在 窗 体 中 单 
击 多 页 控件 对 象 时 ， 将 选中 当前 的 Page 对 象 ， 可 设置 Page 对 象 的 属性 ，Page 对 象 类 似 于 
一 个 单独 的 窗 体 ， 每 个 Page 对 象 都 包括 一 套 自己 的 控件 ， 并 且 不 需要 依赖 于 集合 中 其 他 
Page 对 象 的 信息 。 
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1. MultiPage 对 象 属性 


若 要 设置 MultiPage 对 象 的 属性 ， 可 单 击 控件 的 外 边框 〈 移 动 多 页 控件 时 也 需要 拖 动 
此 边框 )， 这 时 【属性 】 窗 口中 显示 的 将 是 MultiPage 对 象 。MultiPage 对 象 的 常用 属性 
如 下 : 
口 MultiRow 属性 : 设置 控件 是 否 有 多 行 标签 ， 当 MultiRow 属性 为 True 时 将 标签 分 
行 显示 ， 为 False 时 ， 标 签 将 在 一 行 中 显示 ， gett i pds 
口 Value 属性 : 标识 当前 激活 页 。0 表示 是 第 一 页 。 通 过 访问 该 属性 ， 在 程序 中 可 获 
得 当前 激活 页 ， 从 而 进行 适当 的 操作 。 er Value 属性 设置 新 的 值 来 激活 
对 应 的 页 。 


2. Page 对 象 属性 


Pages 集合 包含 多 页 控件 中 的 所 有 页 面 。 多 页 中 的 每 个 页 面 都 是 一 个 窗 体 ， 每 个 窗 体 
都 可 包含 自己 的 控件 ， 并 且 可 以 有 唯一 的 布局 。 一 般 情况 下 ， 多 页 中 的 页 面 都 有 标签 ， 以 
便 让 用 户 选 择 单 个 页 面 。 

默认 情况 下 ， 每 个 多 页 控件 包含 两 个 页 面 ， 称 作 Pagel 和 Page2。 每 个 页 面 都 是 一 个 
Page 对 象 ， 合 在 一 起 就 表示 多 页 的 Pages 集合 。 

Page 对 象 的 常用 属性 如 下 所 述 。 

口 ScrollBars 属性 : 设置 页 [ 面 是 否 有 季 直 或 水 平 滚动 条 ， 或 两 者 都 有 。 可 为 以 下 值 。 

> FmScrollBarsNone: 不 显示 滚动 条 (默认 ) 。 

> FmScrollBarsHorizontal: 显示 水 平 滚 动 条 。 

> FmScrollBarsVertical: 显示 垂直 滚动 条 。 

> FmScrollBarsBoth: 垂直 和 水 平 滚动 条 都 显示 。 
口 TransitionEffect 属性 : 设置 从 一 页 转换 成 另 一 页 时 ， 所 用 的 可 视 效果 。 
口 TransitionPeriod 属性 : 以 毫秒 为 单位 定义 一 个 页 面 过 渡 效 果 的 历时 长 度 。 


18.11.2 ”多 页 控件 常用 事件 


多 页 控件 支持 单 击 〈Click) 等 事件 ， 常 用 的 是 Change 事件 ， 当 选择 不 同 的 页 〈 改 变 
Value 属性 值 ) 时 将 触发 Change 事件 ， 此 时 Value 值 将 是 新 活页 的 序号 。 通 过 该 事件 可 对 
激活 页 进行 初始 化 操作 。 


18.11.3 ”多 页 实例 一 一 报名 登记 


本 例 使 用 多 页 控件 创建 一 个 【报名 登记 】 用 户 窗 体 ， 该 窗 体 由 多 页 控件 分 为 2 页 ， 如 
图 18-15 所 示 。 

在 【报名 登记 】 用 户 窗 体 中 ， 没 有 对 多 页 控件 进行 编程 ， 只 是 将 多 页 控件 作为 数据 分 
类 的 容器 。 多 页 控件 只 需 使 用 默认 属性 值 即 可 。 其 他 控件 属性 的 设置 也 不 再 列 出 ， 下 面 列 
出 【保存 】 按 钮 和 【关闭 】 按 钮 的 相关 代码 。 
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基本 售 自 | 家庭 信息 | 


丘 名 : 


图 18-15 【报名 登记 】 对 话 框 


(1) 单 击 【 保 存 】 按 钮 ， 将 分 别 从 多 页 控件 的 两 页 中 放置 的 控件 里 获取 数据 ， 然 后 将 
其 保存 到 工作 表 中 即 可 ， 具 体 代码 如 下 : 


Private Sub cmdsave Click() 
Dim r As Long 
If txtName.Value = "" Then 
MsgBox "请 输入 学 员 姓 名 ! "，vbcritical + vboKonly 
Exit Sub 
End If 
With Worksheets (" 花 名 册 ") 
r= .Range("Al") .End(xlDown) .Row + 1 ' 找 到 添加 数据 的 行 
.Cells(r, 1) = txtName.Value 
If optMan.Value Then 
“Cellal(z. 2) = "" 


Else 
-Callas(r. 2) = nn 

End If 
.Cells(r, 3) = txtAge.Value 年龄 
.Cells(r, 4) = txtAddress.Value "家庭 住址 
.Cells(r, 5) = txtFName.Value ' 父 亲 姓 名 
.Cells(r, 6) = txtFP.Value ' 父 亲 电 话 
.Cells(r, 7) = txtMName.Value ' 母 亲 姓名 
‘Cells(r, 8) = txtMP.Value "母亲 电话 

End With 

End Sub 


(2) 【关闭 】 按 钮 的 VBA 代码 如 下 : 


Private Sub cmdClose Click() 
Unload Me 
End Sub 


18.12 RefEdit 


使 用 RefEdit 控件 可 折合 当 前 操作 的 对 话 框 ， 让 用 户 在 Excel 工作 表 中 拖 动 鼠标 选择 
一 个 单元 格 区 域 。 
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RefEdit 控件 的 使 用 很 简单 ， 将 其 放置 在 窗 体 的 合适 位 置 即 可 。 
18.12.1 ”RefEdit 常用 属性 


RefEdit 控件 最 主要 的 属性 就 是 Value， 通 过 该 属性 可 返回 用 户 选择 的 绝对 引用 单元 格 
地 址 字符 串 ， 如 “Sheetl!$A$1:$F$15”，VBA 程序 中 获取 该 字符 串 ， 以 进行 后 续 的 操作 。 


18.12.2 ”RefEdit 实例 一 一 设置 单元 格格 式 


本 例 制作 如 图 18-16 所 示 的 窗 体 ， 在 用 户 窗 体 上 方 设 置 一 个 RefEdit 控件 ， 用 来 选择 
需要 设置 格式 的 单元 格 区 域 。 在 窗 体 中 设置 字体 、 字 形 、 字 号 等 参数 ， 在 【预览 】 部 分 将 
显示 设置 的 效果 。 单 击 【 设 置 】 按 钮 ， 即 可 对 选择 的 单元 格 区 域 设 置 相应 的 格式 。 


设置 单元 格格 式 El 


过 择 要 设置 格式 的 区 域 : 


Er | 


图 18-16 【设置 单元 格格 式 】 对 话 框 


制作 如 图 18-16 所 示 用 户 窗 体 的 具体 步骤 如 下 : 

(1) 在 VBE 中 新 增 一 个 用 户 窗 体 ， 向 窗 体 中 增加 1 个 Ref Edit 控件 、1 个 框架 、7 个 
标签 、2 个 复合 框 、2 个 复 选 框 和 2 个 按钮 。 调 整 各 控件 的 布局 如 图 18-16 所 示 。 各 控件 的 
属性 设置 比较 简单 ， 这 里 就 不 再 列 出 来 。 

(2) 在 窗 体 的 初始 化 事件 中 编写 代码 ， 向 【字体 】 和 【字号 】 复 合 框 中 添加 相应 的 选 
项 ， 并 设置 两 个 复 选 框 的 初始 值 。 

Private Sub UserForm Initialize() 

With cmbFont 
.AdaItem "宋体 " 
.AddItem "黑体 " 
.RddItem "楷体 " 
-AddItem "仿宋 _GB2312" 
.Value = .List(0) 

End With 


For 主 = 8 To 72 


cmbSize.AddItem i 
Next 
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cmbSize.Value = 8 
End Sub 


(3) 为 了 能 在 名 为 lblPreview 的 标签 控件 中 查看 预览 效果 ， 需 要 在 每 个 设置 字体 格式 
控件 的 Change 事件 中 编写 代码 ， 改 变 IblPreview 标签 的 字体 样式 。 具 体 代 码 如 下 : 


Private Sub chkBold click() "预览 字形 ( 粗 体 ) 
lblPreview.Font.Bold = chkBold.Value 

End Sub 

Private Sub chkItalic Click() ' 预 览 字 形 (斜体 ) 
lblPreview.Font.Italic = chkItalic.Value 

End sub 

Private Sub cmbFont Change() "预览 字体 
lblPreview.Font.Name = cmbFont.Value 

End Sub 

Private Sub cmbSize Change() ' 预 览 字号 
lblPreview.Font.Size = cmbSize.Value 

End sub 


(4) 单 击 【 设 置 】 按 钮 ， 将 对 选中 的 区 域 设置 指定 的 格式 ， 具 体 代码 如 下 : 


Private Sub cmdset Click() 
Dim rng As Range, i As Integer, strl As String 


If RefEdit1.Value = "" Then ' 未 选择 单元 格 区 域 
MsgBox "请 先 在 工作 表 区 域 拖 动 鼠标 ， 选 择 一 个 单元 格 区 域 ! "，vbcritical + 
VbOKOn1ly 
Exit Sub 

End If 


i = Instr(1，RefEdit1.Value，"!") “' 去 掉 工作 表 名 
strl = Mid(RefEditl.Value, i + 1) 


Set rng = Range(str1) ' 获 取 对 单元 格 区 域 的 引用 
With rng.Font ' 设 置 格式 
-Name = cmbFont.Value "字体 
.Size = cmbSize.Value ' 字 号 
-Bold = chkBold.Value ' 粗 体 
.Italic = chkItalic.Value "斜体 
End With 
End Sub 
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使 用 VBA 提供 的 标准 控件 可 满足 大 多 数 应 用 程序 的 需要 。 但 对 一 些 特定 的 需求 〈 或 
为 了 简化 应 用 程序 的 开发 ) ， 可 在 应 用 程序 中 使 用 ActiveX 控件 。ActiveX 是 由 用 户 使 用 
程序 设计 语言 定制 的 可 重用 对 象 ， 在 Windows XP 系统 中 自 带 许多 这 类 控件 。 本 章 介 绍 几 
个 常用 ActiveX 控件 的 使 用 方法 。 


19.1 添加 ActiveX 控件 


本 节 首 先 简 单 介 绍 ActiveX 控件 的 概念 ， 接 着 介绍 将 ActiveX 控件 添加 到 【工具 箱 】 
窗口 中 的 步骤 。 


19.1.1 什么 是 ActiveX 控件 


Microsoft ActiveX 控件 以 前 也 叫做 OLE 控件 或 OCX 控件 ， 它 是 采用 COM 技术 创建 
的 可 重用 的 小 对 象 ， 可 以 将 其 插入 到 其 他 应 用 程序 中 。 

ActiveX 控件 是 可 选 的 控件 ， 它 可 以 被 添加 到 工具 箱 中 并 在 窗 体 里 使 用 。 当 安装 VB 
开发 环境 或 其 他 应 用 程序 时 ， 这 些 安装 程序 可 能 会 将 其 安装 包 内 的 ActiveX 控件 文件 复制 
到 相应 的 文件 夹 中 (扩展 名 为 “.ocx”)。 

可 以 使 用 各 种 编程 语言 开发 ActiveX 控件 ， 例 如 VB、VC、Java 等 。ActiveX 控件 一 
旦 被 开发 出 来 ， 设 计 和 开发 人 员 就 可 以 把 其 当 作 预 装 配 组 件 ， 用 于 开发 应 用 程序 。 在 使 用 
ActiveX 控件 时 ， 使 用 者 不 需要 知道 这 些 组 件 是 如 何 开发 的 ， 在 很 多 情况 下 ， 甚 至 不 需要 
自己 编程 ， 就 可 以 完成 应 用 程序 的 设计 。 


19.1.2 ”添加 ActiveX 控件 到 工具 箱 


默认 情况 下 ，【 工 具 箱 】 中 将 只 显示 标准 控件 。 若 需要 在 用 户 窗 体 中 使 用 ActiveX 控 
件 ， 则 需要 首先 将 ActiveX 控件 添加 到 【工具 箱 】 中 。 

若 要 在 用 户 窗 体 中 使 用 进度 条 控件 ， 则 需要 按 以 下 步骤 将 其 添加 到 【工具 箱 】 中 : 

(1) 在 VBE 环境 中 ， 执 行 主 菜单 【插入 】|【 用 户 窗 体 】 命 令 ， 在 工程 中 增加 一 个 用 
户 窗 体 ， 同 时 显示 出 【工具 箱 】。 
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全 提示 : 若 【 工 具 箱 】 浮 动 窗口 未 显示 出 来 ， 需 执行 主 菜单 【视图 】| 【工具 箱 】 命 令 将 其 
显示 出 来 。 
(2) 右 击 【工具 箱 】 的 空白 位 置 ， 将 弹出 如 图 19-1 所 示 的 菜单 。 


(3) 单 击 弹出 菜单 中 的 “附加 控件 ”菜单 ， 打 开 如 图 19-2 所 示 【 附 加 控件 】 对 话 框 。 
在 该 对 话 框 中 ， 可 以 将 控件 或 对 象 〈 例 如 Word 文档 ) 添加 到 工具 箱 中 。 


:Wiaesseft Flexhrray Control 
位 置 CC: MINDOWS\systen32\WSFLER3. OCX 


图 19-1 快捷 菜单 图 19-2 【附加 控件 】 对 话 框 


(4) 在 【可 用 控件 】 列 表 框 中 单 击 Microsoft ProgressBar Control 6.0 (SP6) 复 选 框 ， 如 
图 19-3 所 示 。 
(5) 单 击 【 确 定 】 按 钮 后 ，【 工 具 箱 】 中 将 新 增加 控件 ProgressBar， 如 图 19-4 所 示 。 


附加 控件 


可 用 控件 由 ): 
口上 iereseft Office Project Calendar CA 确定 ] 


OD Mierosoft Office Record Navigation 


DMicros 10 取消 


rs 


OD Microsoft RDP Client Control 
ODMicrosoft RDP client Control 
RenoteData Control, versi 
DMicrosoft Rich Textbox Control, ver 
OMicrosoft Seriptlet Component 


时 采 一 一 一 
ES Shell Folder Vie | 轩 三 只 @ 示 所 奖项 


-Mierosoft ProgressBar Control 6.0 (SP6) 
CC: MTNDOWS\systen32\MSCONCTL OCX | 


19-3 ”选中 ProgressBar 控件 19-4 添加 的 控件 


将 ActiveX 控件 添加 到 工具 箱 中 以 后 ， 可 与 使 用 标准 控件 一 样 的 方法 ， 向 窗 体 中 添加 
该 图 像 列表 控件 。 

(6) 右 击 【工具 箱 】 中 新 增加 的 控件 按钮 ， 打 开 如 图 19-5 所 示 的 快捷 菜单 ， 选 择 【 删 
除 ProgressBar】 命 令 可 将 该 ActiveX 控件 从 【工具 箱 】 中 删除 。 

(7) 在 图 19-5 所 示 的 快捷 菜单 中 选择 【 自 定义 ProgressBar】 命 令 ， 将 打开 如 图 19-6 
所 示 的 对 话 框 ， 在 该 对 话 框 中 可 修改 工具 按钮 的 提示 文字 ， 还 可 修改 按钮 的 显示 图 标 。 


全 注意 : 每 个 ActiveX 控件 对 应 一 个 扩展 名 为 “.OCX” 的 文件 (一 个 OCX 文件 也 可 包含 
多 个 控件 )。 
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图 19-5 ”快捷 菜单 图 19-6 【 自 定义 控件 】 对 话 框 


19.2 使 用 进度 条 控件 


Microsoft 公司 提供 了 一 个 进度 条 控件 ， 在 需要 计算 机 进行 长 时 间 运 算 时 ,使 用 进度 条 
显示 运算 的 进度 ， 对 用 户 起 到 提示 作用 。 在 19.1 节 中 已 经 演示 了 将 其 添加 到 【工具 箱 】 中 
的 方法 。 


19.2.1 进度 条 控件 的 常用 属性 


ActiveX 控件 也 具有 控件 的 共有 属性 ， 例 如 Name、Enabled、Visible、Height、Width 
等 。ProgressBar 控件 除了 控件 的 共有 属性 外 ， 最 常用 的 还 有 以 下 3 个 属性 。 

口 Max: 最 大 值 ; 

口 Min: 最 小 值 ; 

口 Value: 进度 条 的 当前 值 。 

ProgressBar 控件 根据 Value 和 Max、Min 之 间 的 关系 来 决定 进度 条 的 位 置 ,。 Max、Min 
的 默认 值 为 100 和 0。 最 简单 的 情况 是 ， 将 正在 处 理 的 起 始 值 设置 到 Min 属性 中 ， 将 处 理 
的 结束 值 设置 到 Max 属性 中 ， 而 当前 处 理 的 值 设 置 到 Value 属性 中 。 


19.2.2 ”进度 条 控件 的 方法 
进度 条 控件 有 两 个 方法 ， 分 别 如 下 所 述 。 
口 OLEDrag: 用 于 处 理 拖 动 进度 条 的 操作 。 在 一 般 窗 体 中 不 使 用 。 
口 Refresh 方法 : 按 设置 的 Value 值 更 新 进度 条 的 指示 。 一 般 也 不 显 式 调用 ， 当 设置 
了 进度 条 控件 的 Value 属性 值 时 ， 进 度 条 指示 会 自动 更 新 。 
19.2.3 ”进度 条 实例 一 一 隐藏 行 


下 面 用 实例 演示 ActiveX 进度 条 控件 的 使 用 方法 。 
Excel 工作 表 的 行 很 多 ， 要 隐藏 偶数 行 需要 执行 很 长 时 间 。 这 时 ， 可 使 用 进度 条 控件 
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让 用 户 了 解 程序 执行 的 进度 。 

(1) 在 VBE 中 ， 执 行 主 菜 单 【 揪 入】|【 用 户 窗 体 】 命 令 ， 向 工程 中 增加 一 个 用 户 
窗 体 。 

(2) 使 用 19.1 节 介绍 的 方法 将 进度 条 控件 添加 到 【工具 箱 】 中 。 

(3) 向 用 户 窗 体 中 添加 1 个 命令 按钮 、1 个 框架 ， 在 框架 中 添加 1 个 标签 控件 、1 个 
进度 条 控件 。 调 整 各 控件 的 布局 如 图 19-7 所 示 ， 设 置 各 控件 的 属性 如 表 19-1 所 示 。 


图 19-7 用 户 窗 体 


表 19-1 控件 属性 


用 途 属 性 值 
frmProgress 
要 隐 关 行 
一 add 
隐藏 偶数 生 
进度 pl 


(4) 给 窗 体 在 初始 化 事件 过 程 Initialize》 中 编写 以 下 代码 ， 设 置 用 户 窗 体 的 高 度 ， 
将 窗 体 的 高 度 缩小 ， 只 显示 上 方 的 按钮 。 同 时 隐藏 框架 控件 (框架 控件 中 的 控件 也 将 同时 
隐藏 ) 。 


Private Sub UserForm_Initialize() 

Me.Height = 83 

Framel.Visible = False “' 隐 藏 框架 及 其 内 部 控件 
End Sub 


(5) 给 【隐藏 偶数 行 】 按 钮 编写 代码 ， 用 来 隐藏 工作 表 Sheet2 中 的 偶数 行 ， 并 更 新 进 
度 条 中 的 显示 进度 块 。 具体 代 码 如 下 : 


Private Sub cmdHide Click() 
Dim r As Long 
r = worksheets ("Sheet2") .Rows .Count 
Me.Height = 168 
Framel .Visible = True "显示 框架 及 其 内 部 控件 
pbl.Min = 0 
pbl.Max = 工 
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pbl.Value = 0 


With Worksheets ("Sheet2") 
Tor Le TL To 
If i Mod 2 = 0 Then 
-Rows (i) .Hidden = True “' 隐 藏 行 
End If 
pbl.Value = I "更 新 进度 条 
DoEvents ' 转 让 控制 权 
Next 
End With 
Me.Height = 83 
End Sub 


(6) 执行 主 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 增加 一 个 模块 ， 编 写 以 下 代码 显示 
用 户 窗 体 : 
Sub 显示 进度 条 () 


frmProgress.Show 
End Sub 


(7) 在 工作 表 Sheetl 中 增加 一 个 按钮 ， 将 宏 【 显 示 进 度 条 】 指 定 给 该 按钮 ， 设 置 该 按 
钮 显示 的 文字 为 “显示 进度 条 ”。 

(8) 单 击 工作 表 Sheetl 中 的 【显示 进度 条 】 按 钮 ， 将 打开 如 图 19-8 所 示 的 用 户 窗 体 。 
单 击 【 隐 藏 偶数 行 】 按 钮 ， 程 序 在 隐藏 行 的 同时 ， 将 在 用 户 窗 体 下 方 显示 处 理 的 进度 ， 如 
图 19-9 所 示 。 


隐 荡 全 区 


图 19-8 初始 状态 19-9 进度 条 


19.3 ”使 用 图 像 列 表 控 件 


图 像 列 表 控 件 ImageList 包含 一 个 图 像 的 集合 ， 这 些 图 像 可 被 其 他 需要 使 用 图 像 的 控 
件 使 用 ， 例 如 ， 标 准 控件 中 的 Image、 按 钮 等 控件 ， 以 及 TreeView 控件 、ListView 控件 等 。 


19.3.1 图 像 列 表 控 件 简 介 


ImageList 控件 像 图 像 的 储藏 室 ， 可 用 来 保存 窗 体 中 要 用 到 的 图 像 。 在 程序 运行 时 该 控 
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件 是 隐藏 的 ， 其 他 控件 通过 索引 来 调用 该 控件 中 保存 的 图 像 。 

ImageList 控件 包含 一 个 ListImages 集合 ， 该 集合 由 ListImage 对 象 构成 。ListImage 对 
象 是 任意 大 小 的 图 片 ， 可 以 在 其 他 控件 中 使 用 。 图 片 可 以 是 位 图 (bmp) 、 光 标 〈.cur) 、 
图 标 〈.ico) 、JPEG (.jpg) 或 GIF (.gif) 文件 。 
用 ImageList 控件 存储 图 像 可 以 节约 程序 的 开发 时 间 ， 因 为 这 样 可 以 使 编写 的 代码 引 
用 单一 和 一 致 的 图 像 目 录 , 而 不 用 在 每 次 显示 图 片 时 都 使 用 LoadPicture 函数 从 磁盘 上 装载 
图 片 。 用 户 只 需要 使 用 一 次 LoadPicture 函数 将 图 片 填充 到 ImageList 控件 中 ， 并 分 配 引用 
的 Key 值 ， 这 样 在 后 续 的 代码 中 只 需要 根据 Key 或 Index 属性 来 引用 ImageList 控件 中 存 
储 的 图 像 即 可 。 

ImageList 控件 全 名 为 Microsoft ImageList Control 6.0， 使 用 之 前 必须 先 通过 【附加 控 
件 】 将 其 附加 到 工具 箱 中 ， 如 图 19-10 所 示 。 具 体操 作 参 见 本 章 19.1 节 中 的 内 容 。 


可 用 控件 @) 

加 有 icrosoft Forms 2.0 ToggleButton 六 
DMicrosoft InageComboBox Control 6.0 
El InageList Control 6.0 (SF 


OD Mierosoft Im st Control, versio 
OMicrosoft InkEdit Control 

OMicrosoft InkPicture Control 

OMicrosoft ListView Control 6.0 (SP6 
OMicrosoft ListView Control, version 
OMicrosoft Wonthyiew Control 6.0 (SP 
OMicrosoft NetShow Player 显示 


Be Office 12.0 PawfCtrl a | 只 显示 所 过 项 G) | 


-Microsoft InageList Control 6.0 (SF6) 
位 置 C: \WINDOWS\ system32\MSCONCTL OCX | 


图 19-10 ”附加 ImageList 控件 


19.3.2 ”图像 列表 控件 的 属性 


作为 图 像 的 存储 控件 ，ImageList 控件 的 属性 很 少 ， 主 要 包括 以 下 几 项 : 
口 ImageHeight 属性 : 该 属性 返回 或 设置 图 像 列表 控件 中 ListImage 对 象 ( 图 片 ) 的 


口 ImageWidth 属性 : 该 属性 返回 或 设置 图 像 列表 控件 中 ListImage 对 象 〈 图 片 ) 的 
宽度 。 


口 ListImages 属性 : 该 属性 返回 对 图 像 列表 控件 中 ListImage 对 象 集合 的 引用 。 
19.3.3 图 像 列 表 控 件 的 方法 


ImageList 控件 提供 了 一 个 方法 ， 即 Overlay 方法 。 使 用 该 方法 可 将 两 个 图 像 组 合 放置 
在 图 像 控 件 Image 中 ， 该 方法 的 语法 格式 如 下 : 


“ea 
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ImageList .Overlay (Key1，Key2) 


Overlay 方法 的 第 一 个 参数 代表 的 图 像 在 下 面 ， 第 二 个 参数 代表 的 图 像 在 上 面 。 

ImageList 控件 使 用 一 个 ListImage 对 象 集合 保存 图 片 ， 可 使 用 标准 的 集合 方法 〈 例 如 ， 
Add 和 Clear 方法 ) 来 操作 ListImage 对 象 。 集 合 中 的 每 一 个 成 员 都 可 以 通过 其 索引 或 唯一 
关键 字 来 访问 。 当 把 ListImage 对 象 添加 到 一 个 集合 中 时 ， 这 些 索引 或 唯一 关键 字 将 被 分 
别 存储 在 Index 和 Key 属性 中 。 


19.3.4 添加 图 像 到 ImageList 控件 


有 两 种 方法 将 图 像 添 加 到 ImageList 控件 中 ， 一 是 在 程序 中 编写 代码 ， 使 用 ListImages 
集合 对 象 的 Add 方法 将 图 像 添 加 到 该 集合 中 ， 其 操作 方法 与 其 他 集合 对 象 相同 。 另 一 种 是 
使 用 可 视 的 方法 ， 在 设计 阶段 将 图 像 载 入 控件 中 。 


1. 可 视 方式 添加 图 像 
有 具体 操作 步骤 如 下 : 


(1) 在 如 图 19-11 所 示 的 ImageList 控件 的 【属性 】 窗 口中 可 单 击 【( 自 定义 )】 选 项 后 
的 各 胺 钮 ， 打 开 【 属 性 】 对 话 框 ， 如 图 19-12 所 示 。 


Er) tee: | We | 


Fm 16x16 Height |0 
三 Rx32 width 乒 


太 9x48 
Custom 


ER 
[T UseMaskColor 


图 19-11 【属性 】 对 话 框 图 19-12 ”General 选项 卡 


(2) 在 General 选项 卡 中 ， 可 设置 图 像 的 大 小 等 参数 。 

(3) 单 击 Images 标签 ， 打 开 如 图 19-13 所 示 的 选项 卡 。 在 该 选项 卡 中 将 显示 控件 内 存 
储 的 图 像 。 

(4) 单 击 InsertPicture 按钮 ， 打 开 Select Picture 对 话 框 ， 如 图 19-14 所 示 。 

(5) 选择 需要 添加 到 ImageList 控件 的 ListImages 集合 中 的 图 像 (可 一 次 选中 多 个 图 
像 文 件 ) ， 单 击 【 打 开 】 按 钮 即 可 。 

(6) 增加 图 像 后 ， 可 在 图 19-15 所 示 的 对 话 框 中 单 击 选择 一 个 图 像 ， 然 后 修改 其 Key 
和 Tag 等 参数 。 也 可 单 击 Remove Picture 按钮 删除 选中 的 图 像 。 
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[Eee goon | wen 
[30 。 轴 放 5 用 WW 六 助 


图 19-15 【属于 页 】 对 话 框 
2. 使 用 代码 添加 图 像 
在 程序 运行 过 程 中 ， 还 可 以 使 用 以 下 VBA 代码 向 ImageList 控件 中 添加 图 像 : 


Dim sPath As String 

sPath = ThisWorkbook.Path & "\" 

With ImageList1.ListImages 
.Add , "a", LoadPicture(sPath & "1.jpg") 
.Add , "b", LoadPicture(sPath & "2.ico") 
.Add , "c", LoadPicture(sPath & "3.ico") 

End With 


以 上 代码 可 将 当前 工作 短 所 在 目录 的 图 片 装 入 ImageList 控件 中 。 
19.3.5 图像 列表 控件 实例 


下 面 通过 实例 演示 ImageList 控件 的 使 用 方法 。 

(1) 在 VBE 环境 中 ， 执 行 主 菜单 【插入 】|【 用 户 窗 体 】 命 令 增加 一 个 用 户 窗 体 。 

(2) 参见 本 章 19.1 节 的 方法 ， 向 【工具 箱 】 窗 口中 添加 ImageList 控件 。 

(3) 向 用 户 窗 体 中 添加 1 个 图 像 控 件 、3 个 命令 按钮 控件 、1 个 ImageList 控件 。 设 置 
各 控件 的 布局 如 图 19-16 所 示 ， 并 设置 各 控件 的 属性 值 如 表 19-2 所 示 。 
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训 试 IaageList 控 件 


图 19-16 测试 ImageList 控件 


全 提示 : 因 ImageList 控件 在 运行 时 不 会 显示 ， 所 以 可 将 其 放置 在 窗 体 的 任何 位 置 。 
表 19-2 控件 属性 


名 称 frmImageList 

避 谍 ascii 用 

图 像 列 表 图 像 列 表 控件 ImageListl 

显示 图 像 ”| ”图 人 Tagel 
amdLoad 

入 图 1 

| 对 科 图 人 
cndover 

组 合 2 

| 役 闪 图像 

除 图 片 钮 3 

wd 消除 图 人 


(4) 在 用 户 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 向 ImageList 控件 中 添加 图 像 : 


Private Sub UserForm_Initialize() 
Dim sPath As String 
SPath = ThisWorkbook.Path & "\" 
With ImageList1.ListImages 
.Rdd ，"a"，LoadPicture(sPath & "1.jpg") 
.Rdd , "b", LoadPicture(sPath & "2.ico") 
.Add , "c", LoadPicture(sPath & "3.ico") 
.Add , "d", LoadPicture(sPath & "4.jpg") 
End With 
End Sub 


(5) 【装载 图 像 】 按 钮 用 于 将 ImageList 控件 中 的 图 像 显 示 到 Image 控件 中 。 可 以 设 
置 Image 控件 的 Picture 属性 为 ImageList 控件 中 的 某 一 个 图 像 即 可 ， 具 体 代码 如 下 : 


Private Sub cmdLoad Click() 
Set Imagel.Picture = ImageList1.ListImages ("a") .Picture 
End Sub 


(6) 【有 获 盖 图 像 】 按 钮 用 于 使 用 ImageList 控件 的 Overlay 方法 ， 将 ImageList 控件 中 
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的 两 个 图 片 显示 到 Image 控件 中 ， 具 体 代 码 如 下 : 
Private Sub cmdOver Click() 
ImageList1.MaskColor = vbWhite “' 屏 蔽 颜色 为 白色 


Set Imagel.Picture = ImageList1.Overlay("a"，"d") 
End Sub 


(7) 【清除 图 像 】 按 钮 清除 Image 控件 中 的 图 像 ， 有 具体 代码 如 下 : 


Private Sub cmdClear Click() 
Set Image1.Picture = LoadPicture("") 
End Sub 


(8) 在 “模块 1” 中 编写 以 下 子 过 程 ， 用 来 显示 前 面 创建 的 窗 体 : 


Sub 测试 ImageList 控件 () 
frzmImageList .Show 
End Sub 


(9) 在 工作 表 Sheetl 中 增加 一 个 按钮 ， 将 宏 【 测 试 ImageList 控件 】 指 定 给 该 按钮 ， 
并 设置 该 按钮 显示 的 文字 为 图 像 列表 控件 。 

(10) 单 击 工作 表 Sheetl 中 的 【图 像 列表 控件 】 按 钮 ， 将 打开 如 图 19-17 所 示 的 用 户 
窗 体 


(11) 单 击 【 装 载 图 像 】 按 钮 ， 左 侧 图 像 控 件 中 将 显示 一 个 图 像 ， 如 图 19-18 所 示 。 


测试 IaageList 控 件 测试 IaageList 控 件 


19-17 【图 像 列 表 控件 】 对 话 框 图 19-18 【装载 图 像 】 选 项 的 显示 
(12) 单 击 【 履 盖 图 像 〗 按 钮 ， 在 已 有 图 像 上 方 将 覆盖 显示 文字 ， 如 图 19-19 所 示 。 


图 19-19 【覆盖 图 像 】 选 项 的 显示 
(13) 单 击 【 清 除 图 像 】 按 钮 ， 图 像 控 件 中 图 像 将 被 清除 ， 得 到 如 图 19-17 所 示 效 果 。 
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19.4 使 用 树 形 视图 控件 


树 形 视 图 控件 〈TreeView) 是 很 有 用 的 一 个 ActiveX 控件 ， 一 般 用 于 显示 文档 标题 、 
索引 入 口 、 磁 盘 上 的 文件 和 目录 、 或 能 被 有 效 地 分 层 显 示 的 各 种 信息 。 


19.4.1 树 形 视图 控件 简介 


Windows 的 资源 管理 器 左 侧 的 文件 夹 列表 ， 就 是 用 TreeView 控件 的 典型 应 用 ， 如 图 
19-20 所 示 。 各 盘 符 之 前 有 一 个 加 号 图 标 ， 单 击 它 将 展开 显示 该 磁盘 包含 的 文件 夹 。 当 展 
开 数据 项 后 ， 加 号 图 标 将 变 为 减 号 图 标 ， 单 击 减 号 图 标 
可 将 展开 的 内 容 折 圣 。 


TreeView 控件 显示 的 是 一 个 分 层 列表 ， 每 个 列表 项 = ER 
为 一 个 Node 对 象 ， 每 个 Node 对 象 均 由 一 个 标签 和 一 个 是 本 人 
可 选 的 图 像 组 成 。 me) 
创建 了 TreeView 控件 之 后 , 可 以 通过 设置 属性 与 调 时 
用 方法 对 各 Node 对 象 进行 操作 , 这 些 操作 包括 添加 、 删 村 
除 、 对 齐 和 其 他 操作 。 可 以 通过 编程 展开 与 折 回 Node Ch Fu 


对 象 来 显示 或 隐藏 所 有 子 节 点 。 图 19-20 TreeView 控件 的 应 用 

Node 对 象 使 用 Root、Parent、Child、FirstSibling、 
Next、Previous 和 LastSibling 属性 。 在 代码 中 可 通过 检索 对 Node 对 象 的 引用 ， 从 而 在 树 上 
定位 。 也 可 以 使 用 键盘 在 TreeView 控件 中 进行 定位 。 

TreeView 控件 使 用 由 ImageList 属性 指定 的 ImageList 控件 ， 来 存储 显示 于 Node 对 象 
的 位 图 和 图 标 。 任 何 时 刻 ，TreeView 控件 只 能 使 用 一 个 ImageList。 当 TreeView 控件 的 
Style 属性 被 设置 成 显示 图 像 的 样式 时 ，TreeView 控件 中 每 一 项 的 旁边 都 有 一 个 同样 大 小 
的 图 像 。 

TreeView 控件 全 名 为 Microsoft TreeView Control 6.0， 使 用 之 前 必须 先 通过 【附加 控 
件 】 将 其 附加 到 工具 箱 中 ， 如 图 19-21 所 示 。 


日 
mscua class 
[Dc IconControl class 号 示 


Dmmcctr] class 
4 


| 厂 RE 示 了 项 E) 


Nicrosoft Treeyiew Contcel 6.0 GPS) 
| 位 置 C: MIIDOYS\systen32\SCONCTL OCX 


图 19-21 附加 TreeView 控件 
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19.4.2” 树 形 视图 控件 常用 属性 


TreeView 控件 有 很 多 的 属性 和 方法 ， 通 过 这 些 属性 和 方法 使 用 TreeView 可 以 完成 很 
复杂 的 功能 。 下 面 介绍 TreeView 控件 常用 的 属性 。 


口 


口 


口 


CheckBoxes 属性 : 设置 在 每 一 项 节点 的 旁边 是 否 显示 一 个 复 选 框 ， 类 似 复 选 框 控 

件 的 作用 。 

Hottracking 属性 : 设置 为 True 时 ， 当 鼠标 指针 经 过 某 个 条 目 ， 这 些 条 目 是 否 突 出 

显示 ， 类 似 网 页 的 超 链 接 效果 。 

ImageList 属性 : 设置 与 TreeView 控件 相关 的 ImageList 控件 , 在 TreeView 控件 的 

节点 中 使 用 ImageList 控件 提供 的 图 像 。 

LabelEdit 属性 : 设置 一 个 值 ， 用 来 确定 是 否 可 以 编辑 在 TreeView 控件 中 的 Node 

对 象 的 标签 。 

LineStyle 属性 : 这 个 属性 设置 在 Node 对 象 之 间 显 示 的 线 的 样式 , 可 设置 为 以 下 两 

个 值 : 

> 0: 三 线 。 显 示 在 Node 相 邻 节点 和 它们 的 父 Node 之 间 的 线 。 

> 1: 根 线 。 除 了 显示 在 Node 相 邻 节点 和 它们 的 父 Node 之 间 的 线 以 外 ， 还 显示 
根 节点 之 间 的 线 。 

Nodes 属性 : 这 个 属性 返回 对 TreeView 控件 的 Node 对 象 集合 的 引用 。 可 以 使 用 

标准 的 集合 方法 如: Add 和 Remove 方法 ) 操作 Node 对 象 ， 可 以 按 其 索引 或 存 

储 在 Key 属性 中 的 唯一 键 值 来 访问 集合 中 的 每 个 元 素 。 

Style 属性 : 设置 各 个 Node 对 象 显 示 的 映像 、 文 本 和 线条 的 类 型 。 可 设置 为 以 下 

的 值 : 

0， 仅 为 文本 ; 

1， 为 图 像 和 文本 ; 

2， 为 +/- 号 和 文本 ; 

3， 为 +/- 号 、 图 像 和 文本 ; 

4， 为 直线 和 文本 ; 

5， 为 直线 、 图 像 和 文本 ; 

> 6， 为 直线 、+/- 号 和 文本 ; 

> 7 (默认 ) ， 为 直线 、+/- 号 、 图 像 和 文本 。 

Sorted 属性 : 设置 Node 对 象 的 根 节点 或 子 节点 是 否 按 字 母 顺 序 。 若 设置 为 True， 

则 Node 对 象 根 据 它 们 的 Text 属性 按 字 母 顺 序 排列 。 其 Text 属性 将 数字 开始 的 

Node 对 象 也 作为 字符 串 排序 ， 第 一 个 数字 确定 在 排序 中 的 初始 位 置 ， 后 面 的 数字 

确定 以 后 的 排序 。 若 设置 为 False， 则 Node 对 象 不 排序 。 

Singlesel 属性 : 表示 在 树 中 选择 新 的 条 目 时 ， 是 否 展开 此 条 目 并 收拢 前 一 个 条 目 ， 

当 设 置 为 True， 并 且 当 前 选中 的 条 目 有 子 项 的 时 候 ， 将 把 子 项 展开 ， 并 将 原来 选 

中 的 条 目 折 又。 


Vvvvyvyv 
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全 注意 : 设置 Sorted 属性 为 True 仅 对 当前 Nodes 集合 排序 。 在 TreeView 控件 中 添加 新 的 


19.4.3 


Node 对 象 时 ， 必 须 再 次 设置 Sorted 属性 为 True， 以 便 对 添加 的 Node 对 象 排列 。 


树 形 视图 控件 的 常用 方法 


使 用 TreeView 的 方法 可 向 控件 中 添加 项 目 、 获 取 项 目 数量 等 操作 ， 常 用 的 方法 如 下 : 


Wl 


Add 方 法 


使 用 Add 方法 在 Treeview 控件 的 Nodes 集合 中 添加 一 个 Node 对 象 ,其 语法 格式 如 下 : 


obj 


ect.Add (relative, relationship, key, text, image, selectedimage) 


各 参数 的 含义 如 下 所 述 。 


口 
口 


雪 


relative: 可 省 略 ， 代 表 已 存在 的 Node 对 象 的 索引 号 或 键 值 。 

relationship: 可 省 略 ， 代 表 新 节点 与 已 存在 的 节点 间 的 关系 ， 指 定 Node 对 象 的 相 

对 位 置 。 可 设置 为 以 下 值 : 

> 0 (tvwFirst) 为 首 节点 ， 该 Node 和 在 relative 中 被 命名 的 节点 位 于 同一 层 ， 并 
位 于 所 有 同 层 节点 之 前 。 

> 1 (tvwLast) 为 最 后 的 节点 ， 该 Node 和 在 relative 中 被 命名 的 节点 位 于 同一 
层 ， 并 位 于 所 有 同 层 节点 之 后 。 任 何 连 续 添加 的 节点 可 能 位 于 最 后 添加 的 节点 
之 后 。 

> 2 (tvwNext) 是 默认 值 ， 为 下 一 个 节点 ， 该 Node 位 于 在 relative 中 被 命名 的 节 
点 之 后 。 

> 3 (tvwPrevious) 为 前 一 个 节点 ， 该 Node 位 于 在 relative 中 被 命名 的 节点 之 前 。 

> 4 (tvwChild) 是 默认 值 ， 为 子 节点 。 该 Node 为 在 relative 中 被 命名 的 节点 的 
子 节点 。 

key: 可 省 略 ， 是 一 个 唯一 的 字符 串 ， 用 于 在 集合 中 查找 Node 对 象 。 

text: 表示 Node 对 象 显示 的 字符 串 。 

image: 可 省 略 ， 代 表 一 个 图 像 或 在 ImageList 控件 中 图 像 的 索引 。 

selectedimage: 可 省 略 ， 代 表 一 个 图 像 或 在 ImageList 控件 中 图 像 的 索引 ,在 Node 

对 象 被 选中 时 显示 该 图 像 。 


:如 果 在 relative 中 没有 被 命名 的 Node 对 象 , 则 新 节点 被 放 在 节点 顶层 的 最 后 位 置 。 


GetVisibleCount 方 法 


使 用 该 方法 可 获得 在 TreeView 控件 的 显示 区 域 中 Node 对 象 的 数量 。Node 对 象 的 个 


数 取决 了 


在 一 个 窗口 中 能 固定 多 少 行 。 总 的 行 数 取决 于 控件 的 高 度 和 Font 对 象 的 Size 属 


性 。 可 以 使 用 GetVisibleCount 属性 确保 可 视 的 最 小 行 数 ， 这 样 可 以 精确 地 访问 一 个 层 。 如 
果 最 小 行 数 是 不 可 见 的 ， 可 以 用 Height 属性 重新 设置 TreeView 的 大 小 。 
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3. StartLabelEdit 方 法 


使 用 该 方法 ， 可 编写 选中 节点 的 文本 内 容 。 
19.4.4 ” 树 形 视 图 控件 常用 事件 


TreeView 控件 可 对 很 多 事件 作出 响应 ， 常 用 的 事件 有 以 下 几 种 。 
口 Collapse 事件 : 在 TreeView 控件 中 的 任何 Node 对 象 被 折 回 时 ， 这 个 事件 便 发 生 。 
口 Collapse 事件 发 生 在 标准 的 Click 事件 之 前 。 这 个 事件 传送 对 折 回 的 Node 对 象 的 
引用 。 
口 产生 Collapse 事件 有 三 种 方法 : 其 一 ， 设 置 Node 对 象 的 Expanded 属性 为 False; 
其 二 ， 双 击 Node 对 象 ， 其 三 ， 在 TreeView 控件 的 Style 属性 被 设置 为 包括 +/- 号 
图 像样 式 的 情况 下 ， 单 击 +/- 号 图 像 。 
口 Expand 事件 : 在 TreeView 控件 中 的 Node 对 象 扩 展开 时 ， 也 就 是 它 的 子 节点 变 成 
可 视 时 ， 这 个 事件 便 发 生 。Expand 事件 发 生 在 Click 和 DblClick 事件 之 后 。 
口 NodeClick 事件 : 在 一 个 Node 对 象 被 单 击 时 ,这 个 事件 便 发 生 。NodeClick 事件 发 
生 在 标准 的 Click 事件 之 前 。 
在 单 击 节点 对 象 之 外 TreeView 控件 的 任何 部 位 ， 标 准 的 Click 事件 发 生 。 当 单 击 某 个 
特定 的 Node 对 象 时 , NodeClick 事件 发 生 ; NodeClick 事件 也 返回 对 特定 的 Node 对 象 的 引 
用 ， 并 在 下 一 步 操作 之 前 ， 该 引用 使 这 个 Node 对 象 可 用 。 


19.4.5” 树 形 视 图 控件 实例 
本 例 制作 如 图 19-22 所 示 的 用 户 窗 体 。 在 该 窗 体 中 ， 左 侧 的 树 形 视图 显示 人 员 的 姓名 


及 其 相关 资料 ， 可 单 击 下 方 的 【展开 】、【 排 序 】、【 删 除 】 按 钮 对 树 形 视 图 进行 操作 。 
在 右 侧 输 入 数据 ， 单 击 【 添 加 】 按 钮 ， 可 将 数据 添加 到 树 形 视 图 中 。 


使 用 TreeYiew 控 件 


19-22 【使 用 TreeView 控件 】 对 话 框 
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要 制作 如 图 19-22 所 示 的 用 户 窗 体 ， 可 按 以 下 步骤 进行 : 
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(1) 在 VBE 中 插入 一 个 用 户 窗 体 。 


(2) 向 【工具 箱 】 中 附加 TreeView 控件 和 ImageList 控件 。 


(3) 向 窗 体 中 添加 1 个 TreeView 控件 、1 个 InageList 控件 、5 个 标签 控件 、4 个 文字 


框 控件 、2 个 选项 按钮 控件 、5 


个 命令 按钮 控件 。 调 整 各 控件 的 布局 如 图 19-22 所 示 ，, 设置 


各 控件 的 属性 如 表 19-3 所 示 。 
表 19-3 ”控件 属性 
用 途 对 和 象 属 性 属 性 值 
名 称 frmTreeView 
主 
Se 育林 Caption 测试 TreeView 控 件 
图 像 列表 图 像 列表 控件 名 称 ImageListl 
树 形 视图 树 形 视图 控件 名 称 TreeView1 
姓名 文字 框 1 名 称 txtName 
地 址 文字 框 2 txtAddress 
电话 文字 框 3 txtTelephone 
a i tMemo 
Tme 
optMan 
选项 按钮 1 男 
性 别 Tre 
a optWoman 
女 
cmdExpand 
钮 1 
一 sb 展开 
a emdSort 
排序 
cmdDel 
j 钮 3 
it Wi Tm 
cmdAdd 
添加 命令 按钮 4 添加 
Default Tme 
名 称 cmdExit 
退出 命令 按钮 5 Caption 退出 
Cancel Trme 


(4) 在 用 户 窗 体 中 选中 ImageList 控件 ， 在 【属性 】 窗 口中 单 击 【 自 定义 】 右 侧 的 按 
钮 ， 打 开 如 图 19-23 所 示 的 【属性 页 】 对 话 框 ， 选 中 【16X16】 选项 按钮 。 

(5) 单 击 切换 到 Images 选项 卡 ， 然 后 单 击 Insert Picture 按钮 增加 3 个 图 像 ， 分 别 设置 
各 图 像 的 Key 为 close、open 和 p， 如 图 19-24 所 示 。 
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General | Imazes| 颜色 | 


ET tea 
2 FE 一 

Pu won [5 
8x 四 


Custom 


UseMaskColor 


图 19-23 ”设置 ImageList 控件 的 属性 图 19-24 ”增加 图 像 


(6) 在 用 户 窗 体 的 初始 化 〈Initialize) 事件 中 编写 代码 ， 从 工作 表 “ 花 名 册 ” 中 读 出 
数据 ， 添 加 到 TreeView 控件 中 ， 有 具体 的 代码 如 下 : 


Private Sub UserForm_Initialize() 
Dim c Rs Integer, i As Integer 
Dim nodx As Node 
c = Worksheets(" 花 名 册 ") .Range ("A1") .End (xlDown) .Row ' 数 据 行 数 
If c >= 65536 Then c=1 


With TreeView1l ' 设 置 TreeView 控件 的 
属性 

.Linestyle = tvwTreeLines ' 设 置 线 型 
.ImageList = ImageList1 ' 绑 定 ImageList 控件 
.Style = tvwTreelinesPlusMinusPictureText ' 设 置 各 节点 的 类 型 

End With 

i=2 

With Worksheets (" 花 名 册 ") 

Do While i <= c ' 逐 行 读 出 工作 表 中 的 数据 


mErT sm Colla(li, 1) 
Set nodx = TreeViewl.Nodes.Add(, , strl, strl, "close", "open") 
Set nodx = TreeViewl.Nodes.Add(strl, tvwCchild, "sex"” & i, "性 别 : " 
& .Cells(i, 2), "p") 
Set nodx = TreeViewl.Nodes.Add(str1l, tvwChild, "address" & i, " 住 
址 ;: " & .Cella(i, 3), "p") 
Set nodx = TreeViewl.Nodes.Add(strl, tvwChild, "telephone" & i, 
"电话 : " & .Cells(i, 4),，"p") 
Set nodx = TreeViewl.Nodes.Add(strl, tvwChild, "memo" & i, "备注 : " 
& .Cells(i, 5), "p") 
eh 

Loop 

End With 

End Sub 


(7) 单 击 【 展 开 】 按 钮 ，TreeView 控件 中 所 有 节点 都 将 展开 ,并 显示 出 每 一 个 数据 项 。 
同时 按钮 的 文字 提示 改 为 “ 折 有 全”。 单 击 名 为 【 折 生 】 的 按钮 时 ，TreeView 控件 中 所 有 节 
点 都 将 折 释 。 该 按钮 Click 事件 过 程 的 代码 如 下 : 


Private Sub cmdExpand Click() 
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Dim i Rs Integer 
If cmdExpand.Caption = "展开 " Then 


For i = 1 To TreeView1.Nodes.Count 
TreeViewl.Nodes (i) .Expanded = True  ' 展 开 所 有 节点 
Next 
cmdExpand.Caption = " 折 释 " 
Else 


For i = 1 To TreeView1.Nodes.Count 
TreeView1.Nodes (i) .Expanded = False ' 折 县 所 有 节点 
Next 
cmdExpand.Caption = "展开 " 
End If 
End Sub 


(8) 单 击 【 排 序 】 按 钮 ，TreeView 控件 中 的 节点 将 自动 排序 。 该 按钮 的 Click 事件 代 
码 如 下 : 


Private Sub cmdsort Click() 
TreeView1.Sorted = True 
End Sub 


(9) 单 击 【 删 除 】 按 钮 ， 将 删除 TreeView 控件 中 选中 的 节点 ， 有 具体 代码 如 下 : 


Private Sub cmdDel Click() 
IE TreeView1.SelectedItem. Index <> 1 Then 
TreeView1.Nodes.Remove TreeViewl.SelectedItem.Index ' 删 除 选 定 的 节点 
End If 
End sub 


(10) 单 击 【添加 】 按钮 ， 将 右 侧 输入 的 内 容 添 加 到 TreeView 控件 中 ， 上 有 具体 代码 如 下 : 


Private Sub cmdAdd Click() 
Dim c As Integer, i As Integer, strl As String, strSex Rs String 
Dim nodx As Node 


strl = Trim(txtName.Value) 


IE Lenl(str1) = 0 Then ' 判 断 姓 名 文字 框 是 否 为 空 
MsgBox "请 输入 姓名 ! " 
Exit Sub 
End If 
c = TreeView1.Nodes .Count "获取 TreeView 控件 中 节点 数 
Pox Le Ll To Ge ' 判 断 是 否 已 有 同名 节点 


IE TreeViewl.Nodes(i).Text = strl Then 
MsgBox "列表 中 已 经 有 该 姓名 ， 请 重新 输入 ! " 


txtName.SetFocus 


Exit Sub 
End If 
Next 
Set nodx = TreeViewl.Nodes.Add(, , stril, strl, "close", "open") 


"添加 节点 


strSex = " 男 " 
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IE optNWoman .Value Then strSex = " 女 " 

Set nodx = TreeView1.Nodes.Rdd(str1，tvwCchild，"sexn" & c + 2，" 性 别 : " 

& strSex, "p") 

Set nodx = TreeViewl.Nodes.Add(strl, tvwChild, "address" & c +2, 
"住址 : " & txtAddress.Value, "p") 

Set nodx = TreeViewl.Nodes.Add(strl1l, tvwChild, "telephone" & c+2, 
"电话 : " & txtTelephone.Value, "p") 

Set nodx = TreeViewl.Nodes.Add(strl, tvwChild, "memo" & c +2, 
"备注 : " & txtMemo.Value, "p") 

End Sub 


(11) 单 击 【 退 出 】 按 钮 抒 载 窗 体 ， 具 体 代码 如 下 : 


Private Sub cmdExit Click() 
Unload Me 
End 


(12) 在 “模块 1” 中 编写 以 下 代码 ， 显 示 用 户 窗 体 。 


Sub 测试 TreeView 控件 () 
frmTreeView.Show 
End sub 


(13) 在 工作 表 Sheetl 中 增加 一 个 按钮 ， 将 宏 【 测 试 TreeView 控件 】 指 定 给 该 按钮 ， 
设置 该 按钮 显示 的 文字 为 “ 树 形 视 图 控件 ”。 

(14) 单 击 工作 表 Sheetl 中 的 【 树 形 视图 控件 】 按 钮 ， 将 打开 如 图 19-25 所 示 的 用 户 
窗 体 。 在 该 窗 体 的 TreeView 控件 中 已 经 添加 了 工作 表 “ 花 名 册 ” 中 的 数据 。 

(15) 单 击 【 展 开 】 按 钮 ， 每 个 姓名 中 包含 的 子 节点 将 展开 ， 同 时 【展开 】 按 钮 的 提 
示 文 字 将 改 为 “折合 ”， 如 图 19-26 所 示 。 
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19-25 【使 用 TreeView 控件 】 对 话 框 19-26 展开 节点 


(16) 在 图 19-26 中 单 击 【 折 共 】 按钮, 各 节点 展开 的 子 节点 将 折 且 ,显示 为 如 图 19-25 
所 示 的 效果 。 

(17) 单 击 【排序 】 按 钮 ， 节 点 数据 进行 排序 ， 将 得 到 如 图 19-27 所 示 的 效果 。 

(18) 在 TreeView 控件 中 单 击 选中 一 个 节点 ， 单 击 【 删 除 】 按 钮 ， 可 删除 选中 的 节点 。 

(19) 在 用 户 窗 体 右 侧 输入 内 容 ， 如 图 19-28 所 示 。 
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图 19-27 排序 的 效果 图 19-28 输入 数据 


(20) 输入 数据 后 ， 单 击 【 添 加 】 按 钮 即 可 将 输入 的 内 容 添 加 到 TreeView 控件 中 。 单 
击 新 添加 的 节点 ， 将 展开 该 节点 ， 如 图 19-29 所 示 。 


19-29 ”添加 节点 


19.5 ”使 用 列表 视图 控件 


列表 视图 (ListView) 控件 可 使 用 4 种 不 同 视图 来 显示 项 目 。 通 过 此 控件 ， 可 将 项 目 
组 成 带 有 或 不 带 有 列 标 头 的 列 ， 并 显示 伴随 的 图 标 和 文本 。 


19.5.1 列表 视图 简介 


ListView 控件 可 以 用 来 显示 各 项 带 图 标的 列表 ， 也 可 以 用 来 显示 带 有 子 项 的 列表 ， 
Windows 操作 系统 的 资源 管理 器 中 文件 夹 窗口 就 是 最 好 的 应 用 例子 。 

ListView 控件 由 ColumnHeader 对 象 和 ListItem 对 象 组 成 , ListView 控件 中 显示 的 项 目 
包含 在 ListImages 集合 中 ， 每 个 项 目 为 一 个 ListItem 对 象 。 使 用 ListView 控件 可 将 称 作 
ListItem 对 象 的 列表 条 目 按 以 下 4 种 视图 方式 之 一 显示 : 


2 Ne 


口 
口 
口 
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大 图 标 ; 

小 图 标 ; 

列表 ; 

报表 (详细 资料 )。 


ColumnHeader 对 象 的 个 数 决定 了 控件 的 列 数 , 而 ListItem 对 象 的 个 数 则 决定 了 控件 的 
行 数 ， 如 图 19-30 所 示 。 


外 注意 : 只 有 设置 为 【报表 ( 详细 资料 ) 〗】 选 项 ，ListView 才 使 用 ColumnHeader 对 象 按 


行列 显示 列表 框 ， 其 他 三 种 模式 下 只 显示 ListItem 对 象 的 名 称 信 息 。 


ListView 控件 全 名 为 Microsoft ListView Control 6.0, 使 用 之 前 必须 先 通 过 【附加 控件 】 
将 其 附加 到 工具 箱 中 ， 如 图 19-31 所 示 。 


19.5.2 


Y 
二 
Office Outleok Body ci 于 | 厂 只 和 示 有 8 项 G) | 


图 19-30 ”ListView 控件 的 行 和 列 图 19-31 附加 ListView 控件 


列表 视图 控件 常用 属性 


通过 ListView 控件 的 属性 和 方法 ， 可 以 控制 显示 的 项 目 。ListView 控件 常用 属性 如 下 


口 


OO DO 


Arrange 属性 : 设置 ListView 控件 中 的 大 图 标 或 小 图 标 视 图 的 排列 方式 。0 表示 不 
排列 ; 1 表示 左 对 齐 ， 项 目 自动 沿 控件 左 侧 对 齐 ; 2 表示 项 对 齐 ， 项 目 自动 沿 控 件 
顶端 对 齐 。 

Icons 属性 : 设置 ListView 控件 中 大 图 标 〈 默 认 ) 视图 时 使 用 的 ImageList 控件 。 
SmallIcons 属性 : 设置 ListView 控件 中 小 图 标 视图 时 使 用 的 ImageList 控件 。 
MultiSelect 属性 : 设置 用 户 是 否 可 以 选择 多 个 对 象 或 项 目 。 当 属性 值 为 False 时 ， 
表示 不 允许 选择 多 个 对 象 或 项 目 ; 当 属 性 值 为 True 时 ， 则 表示 允许 多 个 选择 。 
SelectedItem 属性 : 返回 对 于 一 个 对 象 的 引用 ， 该 对 象 能 用 来 在 选 定 的 对 象 上 设置 
属性 和 调用 方法 。 这 一 属性 被 典型 地 用 于 返回 对 ListItem 对 象 的 引用 。 

Sorted 属性 : 设置 集合 中 的 项 目 是 否 排序 。 

SortKey 属性 : 设置 ListView 控件 的 ListItem 对 象 中 排序 的 关键 字 。 

SortOrder 属性 : 设置 ListView 控件 的 ListItem 对 象 以 升序 或 降序 排序 。0 为 升序 ， 
1 为 降序 。 
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口 View 属性 : ListView 控件 作为 一 个 可 以 显示 图 标 或 者 子 项 的 列表 控件 ， 它 最 重要 


的 属性 就 是 View 属性 ， 该 属性 决定 了 以 哪 种 视图 模式 显示 控件 的 项 ， 可 设置 为 以 
下 4 种 常数 。 

> lvwIcon: 大 图 标 视图 模式 ， 在 项 的 文本 旁 显示 大 图 标 。 

> lvwSmallIcon: 小 图 标 视图 模式 ， 与 大 图 标 模 式 一 样 ， 但 是 显示 的 是 小 图 标 。 
> lvwList: 列表 视图 模式 ， 显示 小 图 标 , 但 是 项 是 垂直 排列 的 , 并 且 只 显示 单列 。 
> lvwReport: 详细 资料 视图 模式 ， 可 显示 每 个 ListItem 项 的 详细 信息 。 


19.5.3 ”列表 视图 控件 常用 事件 


ListView 控件 常用 事件 有 以 下 几 个 。 
口 AfterLabelEdit 事件 : 在 编辑 当前 被 选中 的 ListItem 对 象 的 标签 之 后 该 事件 发 生 。 


在 该 事件 中 编写 代码 ， 用 来 检查 标签 被 修改 后 的 校 验 工 作 。 当 用 户 单 击 另 一 个 
ListItem 项 目 ， 或 者 按 Enter 键 时 , 便 是 编辑 操作 完成 时 。 要 取消 标签 的 编辑 操作 ， 
可 以 设置 事件 过 程 中 的 Cancel 参数 为 任何 非 零 数 或 True。 如 果 标 签 的 编辑 操作 被 
取消 ， 则 先前 存在 的 标签 会 被 恢复 。 

BeforeLabelEdit 事件 : 在 试图 编辑 当前 被 选中 ListItem 对 象 的 标签 时 , 产生 该 事件 。 
在 该 事件 中 编写 代码 ， 可 用 来 处 理 编辑 标签 前 的 一 些 准备 工作 。 

ItemClick 事件 : 单 击 ListView 控件 中 ListItem 对 象 时 事件 发 生 ， 使 用 该 事件 决定 
单 击 了 哪个 ListItem 对 象 。 该 事件 在 Click 事件 之 前 触发 。 单 击 ListView 控件 的 任 
何 部 分 时 将 触发 标准 的 Click 事件 。 只 有 当 单 击 ListItem 对 象 的 文本 或 图 像 时 才 触 
发 ItemClick 事件 。 


19.5.4 列表 视图 控件 实例 


下 面 使 用 ListView 控件 显示 工作 表 中 的 数据 ， 如 图 19-32 所 示 。 
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19-32 用 ListView 控件 显示 数据 


要 制作 如 图 19-32 所 示 的 用 户 窗 体 ， 可 按 以 下 步骤 进行 : 
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(1) 在 VBE 中 插入 一 个 用 户 窗 体 。 


(2) 向 【工具 箱 】 中 附加 ListView 控件 和 ImageList 控件 。 


(3) 向 窗 体 中 添加 1 个 ListView 控件 、2 个 ImageList 控件 、6 个 标签 控件 、4 个 文字 
框 控 件 、2 个 选项 按钮 控件 、1 个 复合 框 控件 、2 个 命令 按钮 控件 。 调 整 各 控件 的 布局 如 图 
19-32 所 示 ， 设 置 各 控件 的 属性 如 表 19-4 所 示 。 

(4) 参照 TreeView 控件 中 的 方法 ， 向 ImageListl 控件 中 添加 一 个 小 图 标 ， 设 置 其 
Key 为 sIcon。 向 ImageList2 控件 中 添加 一 个 大 图 标 ， 设 置 其 Key 为 lIcon。 


表 19-4 ”控件 属性 
用 途 对 和 象 属 性 属 性 值 
窗 体 和 EE 
Caption 测试 ListView 控 件 
图 像 列表 1 ImageList! 
图 像 列表 2 ImageList 
列表 视图 控件 ListView1 
文字 框 1 xtName 
文字 框 2 txtAddress 
文字 框 3 txtTelephone 
ee en 
Tre 
optMan 
选项 按钮 1 男 
性 别 Tre 
ee i 
女 
视图 复合 框 cmbView 
cmdAdd 
添加 命令 按钮 1 Caption 添加 
Default True 
名 称 cmdExit 
退出 命令 按钮 2 Caption 退出 
Cancel Trme 


(5) 在 用 户 窗 体 的 初始 化 (Initialize〉 事 件 中 编写 代码 ， 设 置 ListView 控件 的 大 图 标 
和 小 图 标 控 件 ， 再 从 工作 表 “ 花 名 册 ” 中 读 出 数据 ， 添 加 到 ListView 控件 中 ， 上 有 具体 的 代码 


如 下 : 


Private Sub UserForm Initialize() 


Dim c Rs Integer, 
Dim item As ListItem, 
c = Worksheets (" 花 名 册 ") .Range ("A1") .End (xlDown) .Row 


i As Integer 
colh As ColumnHeader 


' 数 据 行 数 


*383. 


(6) 在 【视图 】 复 合 框 中 选择 某 


TE GC >= 


ListViewl.Icons = ImageList2 
ListView1.SmallIcons = ImageList1 
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65536 Then c=1 


With ListViewl.ColumnHeaders ' 添 加 列 标题 


Set 
Set 
Set 
Set 
Set 


colh 
colh 
colh 
colh 
colh 


End With 


=2 


With Worksheets (" 花 名 册 ") 


= ListViewl. 
= ListViewl. 
= ListViewl . 
= ListViewl. 
= ListViewl. 


Do While i <= c 
strl 


Set item= ListViewl. 


= .Cells(i, 


item.SubItems (1) 
item.SubItems (2) 
item.SubItems (3) 
item.SubItems (4) 
i=i+1 


Loop 


End With 


With cmbView 


.Rdd 
.Rdd 
.Rdd 
.Rdd 


Item 
Item 
Item 
Item 


.Value = 
End With 
End sub 


"大 图 标 " 
"小 图 标 " 
"列表 " 
"详细 资料 " 
-List(0) 


ColumnHeaders .Add(，" 姓 名 "， 
ColumnHeaders .Add(,， "性 别 "， 
ColumnHeaders.Add(，" 地 址 "， 
ColumnHeaders .Add(，" 电 话 "， 
ColumnHeaders.Add(， "备注"， 


' 设 置 大 图 标 控 件 
' 设 置 小 图 标 控件 


"姓名 ") 
"性 别 ") 
"地 址 ") 
"电话 ") 
备注 允 


' 逐 行 读 出 工作 表 中 的 数据 


1) 


.Cells (i，2) ' 性 别 
.Cells (i，3) ' 地 址 
= .Cells(i，4) ' 电 话 
= .Cells(i，5) ' 备 注 


ListItems.Add(, str1, str1, "lIcon", "sIcon") 


' 初 始 化 视图 复合 框 的 值 


' 以 大 图 标 方式 显示 


-个 选项 后 ，ListView 控件 将 


列表 项 目 ， 该 复合 框 的 Change 事件 的 代码 如 下 : 


Private Sub cmbView Change() 


.384 。 


Select Case cmbView 


Case "大 图 标 " 


.Value 


ListViewl.View = lvwIcon 


Case "小 图 标 " 


ListViewl .View 


Case "列表 " 
ListViewl.View = lvwList 
Case "详细 资料 " 


ListViewl.View = lvwReport 


hl 


lvwsmallIcon 


or 


背 定 的 视图 方式 显示 
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End Select 
End Sub 


(7) 单 击 【 添 加 】 按 钮 ， 将 右 侧 输入 的 内 容 添加 到 ListView 控件 中 ， 具 体 代 码 如 下 : 


Private Sub cmdAadqd Click() 


Dim c Rs Integer, i As Integer, strl As String, strSex Rs String 


Dim item As ListItem 


strl = Trim(txtName.Value) 


IE Lenl(str1) = 0 Then "判断 姓名 文字 框 是 否 为 空 
MsgBox "请 输入 姓名 ! " 
Exit Sub 
End If 
c = ListViewl.ListItems.Count "获取 ListView 控件 中 的 项 目 数 
For Ti = 1 To c ' 判 断 是 否 已 有 同名 项 目 


IE ListViewl.ListItems(i).Text = strl Then 
MsgBox "列表 中 已 经 有 该 姓名 ， 请 重新 输入 ! " 
txtName.SetFocus 
Exit Sub 

End If 

Next 


Set item = ListViewl.ListItems.Add(, strl, strl, "lIcon", 
strSex = " 男 " 
If optWoman.Value Then strSex = " 女 " 


item.SubItems (1) = strSex ' 性 别 
item.SubItems (2) = txtAddress.Value ' 地 址 
item.SubItems (3) = txtTelephone.Value ' 电 话 
item.SubItems (4) = txtMemo.Value ' 备 注 


End sub 


(8) 单 击 【 退 出 】 按 钮 卸载 窗 体 ， 具 体 代 码 如 下 : 


Private Sub cmdExit Click() 
Unload Me 
End Sub 


(9) 在 【模块 1】 代 码 窗 口中 编写 以 下 代码 ， 显 示 用 户 窗 体 : 


Sub 测试 ListView 控件 () 
ErmListView.Show 
End Sub 


"sIcon") 


(10) 在 工作 表 Sheetl 中 增加 一 个 按钮 ， 将 宏 【 测 试 ListView 控件 】 指 定 给 该 按钮 ， 


设置 该 按钮 显示 的 文字 为 “测试 ListView 控件 ”。 


(11) 单 击 工作 表 Sheetl 中 的 【测试 ListView 控件 】 按 钮 ， 将 打开 如 图 19-33 所 示 的 
用 户 窗 体 。 在 该 窗 体 的 ListView 控件 中 已 经 添加 了 工作 表 “ 花 名 册 ” 中 的 数据 。 
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(12) 在 【视图 】 复 合 框 中 选择 “小 图 标 ”，ListView 控件 中 显示 内 容 如 图 19-34 所 示 。 


图 19-33 大 图 标 视图 图 19-34 ”小 图 标 视图 
(13) 列表 视图 方式 如 图 19-35 所 示 ， 详 细 资料 视图 如 图 19-36 所 示 。 
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图 19-35 ”列表 视图 19-36 ”详细 资料 视图 


(14) 在 用 户 窗 体 右 侧 输入 内 容 ， 如 图 19-37 所 示 。 
(15) 输入 数据 后 ， 单 击 【 添 加 】 按 钮 即 可 将 输入 的 内 容 添加 到 ListView 控件 中 ， 如 
图 19-38 所 示 。 


图 19-37 输入 数据 图 19-38 ”添加 节点 
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对 用 户 来 说 , 操作 界面 是 Excel 2007 中 改动 最 大 之 处 。 在 Excel 2007 中 , 使 用 RibbonX 
(功能 区 ) 代替 了 传统 的 菜单 和 工具 栏 。 另 外 ，Excel 2007 采用 Office Open XML 文件 格式 
保存 工作 短 。 用 户 通过 XML 可 直接 访问 工作 筹 中 的 内 容 , 并 可 通过 XML 自 定义 RibbonX。 


20.1 了 解 Office (2007 ) Open XML 文件 格式 


Microsoft Office 2007 引入 了 一 种 基于 XML 的 新 文件 格式 。 这 种 新 格式 称 为 Microsoft 
Office Open XML Formats， 适 用 于 Word 2007、Excel 2007 和 PowerPoint 2007 。 


20.1.1 Office Open XML 的 优点 

Office Open XML 有 许多 优点 ， 它 不 仅 适 用 于 开发 人 员 及 其 构建 的 解决 方案 ， 而 且 适 
用 于 个 人 以 及 各 种 规模 的 组 织 。 主 要 有 以 下 优点 : 

1. 压缩 文件 


Office Open XML 文件 会 自动 压缩 ， 某 些 情 况 下 最 多 可 缩小 75%。Office Open XML 
使 用 zip 压缩 技术 来 存储 文档 ， 由 于 这 种 格式 可 以 减少 存储 文件 所 需 的 磁盘 空间 ， 并 可 以 
降低 通过 电子 邮件 、 网 络 和 Intemet 发 送 文件 时 所 需 的 带宽 ， 因 而 可 能 节省 成 本 。 在 打开 
文件 时 ， 这 种 格式 可 以 自动 解压 缩 ， 而 在 保存 文件 时 ， 这 种 格式 又 可 以 重新 自动 压缩 。 

2. 改进 了 受 损 文 件 的 恢复 

使 用 Office Open XML 格式 保存 的 文档 不 是 二 进 制 格式 ， 而 是 使 用 文本 格式 以 一 定 的 
XML 结构 以 模块 形式 进行 组 织 ， 从 而 使 文件 中 的 不 同 数据 组 件 彼 此 分 隔 。 这 样 ， 即 使 文件 
中 的 某 个 组 件 〈 例 如 ， 图 表 或 表格 ) 受到 损坏 ， 文 件 本 身 还 是 可 以 打开 。 

3. 易于 检测 到 包含 宏 的 文档 

根据 工作 敌 是 否 包 含 宏 ， 在 保存 工作 夭 时 文件 的 扩展 名 也 有 所 不 同 。 无 宏 的 工作 敌 扩 
展 名 为 “.xlsx”， 包 含 宏 的 工作 敌 扩 展 名 为 “.xlsm”。 这 样 ， 通 过 工作 秒 名 称 即 可 知道 文 
件 是 否 包含 宏 代码 。 

4. 更 好 的 隐私 保护 和 更 强 有 力 的 个 人 信息 控制 


可 以 采用 保密 方式 共享 文档 ， 因 为 使 用 文档 检查 器 可 以 轻松 地 识别 和 删除 个 人 身份 信 
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息 和 业务 敏感 信息 ， 例 如 ， 作 者 姓名 、 批 注 、 修 订 和 文件 路 径 。 
5. 更 好 的 业务 数据 集成 性 和 互 操作 性 


将 Office Open XML 作为 Office 2007 发 布 版 产品 集 的 数据 互 操作 性 框架 意味 着 :文档 、 
工作 表 、 演 示 文 稿 和 表单 都 可 以 采用 XML 文件 格式 保存 ， 任 何人 都 可 免费 使 用 该 文件 格 
式 并 获得 该 文件 格式 的 许可 证 ， 而 不 必 支 付 版 权 费 。Office 还 支持 客户 定义 的 XML 架构 ， 
用 于 增强 现 有 Office 文档 类 型 的 功能 .这 意味 着 客户 在 现 有 系统 中 可 以 轻松 解除 信息 锁定 ， 
使 用 熟悉 的 Office 程序 对 相应 信息 进行 操作 。 在 Office 中 创建 的 信息 很 容易 由 其 他 业务 应 
用 程序 所 采用 。 打开 和 编辑 Office 文件 只 需要 一 个 ZIP 实用 工具 和 一 个 XML 编辑 器 即 可 。 


6. 向 后 兼容 性 


Office Open XML 是 向 后 兼容 的 , 它 可 以 兼容 早期 的 版 本 , 例如 Office 2000, Office XP 
和 Office 2003。 这 些 版 本 的 用 户 下 载 一 个 免费 的 更 新 ， 即 可 在 以 前 版 本 中 打开 Office 2007 
的 文档 。 


20.1.2 Excel 2007 Open XML 文件 结构 


下 面 通过 对 如 图 20-1 所 示 的 工作 短文 件 进行 剖析 ， 以 使 读者 深入 地 了 解 Excel 2007 
Open XML 文件 的 结构 。 

Excel 2007 Open XML 文件 其 实 是 一 个 zip 文件 。 
为 了 分 析 其 结构 ,需要 将 其 解压 出 来 。 因此 ,计算 机 系 
统 中 需要 安装 管理 zip 文件 的 软件 (例如 WinZip、 
WinRar 等 ) 。 下 面 列 出 具体 的 步骤 : 

(1) 将 工作 短文 件 名 “测试 Excel2007 文件 结 
构 .xlsx” 的 后 面 添加 一 个 “.zip” 扩 展 名 ， 修 改 为 “ 测 图 20-1 Excel2007 工作 乔 
试 Excel2007 文件 结构 .xlsx.zip”。 

(2) 接着 当 弹 出 如 图 20-2 所 示 的 警告 信息 ， 单 击 【 是 】 按 钮 ， 完 成 文件 名 的 修改 。 

(3) 将 上 步 更 名 的 文件 解压 ， 得 到 如 图 20-3 所 示 的 文件 目录 结构 。 

名 测试 Exce12007 文 件 结构 
文件 人 ) 编辑 到) 查看 WD 收藏 4) 工具 CL) 和 帮助 如 


i @Aa- 日 .人 访 且 控 [| 国 -加 的 房 六 


国 网 Excel2007 文 件 抬 构 sx Ch 


图 20.2 警告 信息 图 20-3 解压 后 的 文件 结构 


3%.s 
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(4) 在 解压 后 的 文件 夹 中 ， 最 重要 的 文件 是 文件 夹 xl 中 的 workbook.xml 文件 ， 该 文 
件 的 代码 如 下 : 


<?xml Version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <workbook xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/ 
main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/ 
relationships"> 
<fileVersion apPName="xl" lastEdited="4" lowestEdited="4" rupBuild= 
ET 
<workbookPr defaultThemeVersion="124226" /> 
- <bookViews> 
<workbookView xWindow="480" yWindow="15" windowWidth="8670" window 
Height="5070" /> 
</bookViews> 
- <sheets> 
<sheet name=" 工 作 表 1" sheetId="1" r:id="rId1l" /> 
<sheet name=" 工 作 表 2" sheetId: " r:id="rId2" /> 
<sheet name="Sheet3" sheetId="3" r:id="rId3" /> 
</sheets> 
<calcPr calcId="125725" /> 
</workbook> 


workbook.xml 文件 包含 一 对 <sheets> 标 签 ， 其 中 的 每 个 <sheet> 元 素 都 代表 Excel 2007 
文件 中 的 一 个 ， 工 作 表 的 名 称 就 是 其 name 属性 的 值 ， 在 上 面 的 代码 中 ， 分 别 有 3 个 工作 
表 ， 即 工作 表 1、 工 作 表 2 和 工作 表 3。<sheet> 元 素 中 rid 属性 的 值 指出 保存 工作 表 数 据 
的 XML 文件 。 

(5) 打开 “xl _rels/workbook.xmlrels” 文 件 ， 其 内 容 如 下 所 示 : 


<?xrml Version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <Relationships xmlns="http://schemas .openxmlformats.org/package/2006/ 
relationships"> 

<Relationship Id="rId3" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/worksheet" 
Target="worksheets/sheet3.xml" /> 

<Relationship Id="rId2" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/worksheet" 
Target="worksheets/sheet2.xml" /> 

<Relationship Id="rIdl" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/worksheet" 
Target="worksheets/sheet1.xml" /> 

<Relationship Id="rIdé6" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/sharedstrings" 
Target="sharedstrings.xml" /> 

<Relationship Id="rId5" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/styles" 
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Target="styles .xml" /> 

<Relationship Id="rId4" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 
ips/theme" 
Target="theme/themel.xml" /> 

</Relationships> 


在 以 上 文件 中 ， 根 据 <sheet> 元 素 中 rid 属性 的 值 可 得 到 工作 表 数 据 的 XML 文件 。 例 
如 ， 在 workbook.xml 文件 中 名 为 工作 表 1 的 工作 表 的 rid 属性 为 ld1， 在 以 上 文件 中 根据 
ID 找到 以 下 代码 : 
<Relationship Id="rId1" 
Type="http://schemas.openxmlformats.org/officeDocument/2006/relationsh- 


ips/worksheet" 
Target="worksheets/sheet1.xml" /> 


由 此 可 知 工 作 表 数据 保存 在 worksheets 文件 夹 下 ， 文 件 名 为 sheetl.xml。 
(6) 打开 “xl\worksheets\sheetl.xml” 文 件 ， 其 内 容 如 下 (为 节省 篇 幅 ， 以 下 代码 中 省 
略 了 重复 的 4 一 6 行 的 数据 ) : 


<?xml Version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/ 


main" 
xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relation 
ships"> 

<dimension ref="Al:B6" /> '! 工 作 表 数据 
- <sheetViews> 


- <sheetView tabselected="1" workbookViewId="0"> 
<selection activeCell="D12" sqref="D12" /> 


</sheetView> 
</sheetViews> 
<sheetFormatPr defaultRowHeight="13.5" /> 
- <cols> 
<col min="1" max="1" width="13" bestFit="1" customWidth="1" /> 
</cols> 
- <sheetData> ' 工 作 表 数 据 
- <row r="1" spans="1:2"> ' 第 1 行 数据 


<C r="Al" sg="5" /> 
0 TanBl" Se"S"” /> 


</row> 

- <row r="2" spans="1:2" ht="14.25"> ' 第 2 行 数据 

- <c r="A2" s="1" t="s"> ' 单 元 格 A2 的 值 ， 字 符 型 
<v>0</v> “' 字 符 串 的 位 置 索 引 
</c> 

- <c r="B2" s="1" t="s"> ' 单 元 格 B2 的 值 ， 字 符 型 
<V>1</v> 
</c> 
</row> 

= <rOW r="3" spans="1:2"> ， 第 3 行 数据 


- <C r="A3" s="2" t="s"> 
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<V>2</v> 
</c> 

- <c r="B3" s="3"> ' 单 元 格 B3 的 值 
<V>3500</v> ' 值 为 35000 
</c> 
</row> 

(此 处 省 略 工作 表 第 4~6 行 的 数据 

</sheetData> 

- <mergeCells count="1"> 
<mergeCell ref="Al:B1" /> ' 合 并 单元 格 
</mergeCells> 
<phoneticPr fontId="1" type="noConversion" /> 
<pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" 
footer="0.3" /> 
</worksheet> 


以 上 XML 代码 中 ， 元 素 <c> 表 示 该 行 中 的 一 个 单元 格 ， 对 于 单元 格 中 的 值 ， 如 果 <c> 
元 素 有 “t” 属 性 的 话 , <c> 元 素 的 子 元 素 <v> 的 值 就 是 各 工作 表 共 享 的 字符 串 的 索引 。 否则 ， 
<v> 元 素 的 值 就 是 该 单元 格 的 值 。 

(7) 在 工作 短 中 ， 各 工作 表 使 用 的 字符 串 统一 存放 在 “xl/sharedStrings.xml” 文 件 中 ， 
该 文件 的 内 容 如 下 : 

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 

- <sst xmlns="http://schemas.openxmlformats .org/spreadsheetml/2006/main" 

count="6" uniqueCount="5"> 

- <si> 

<t> 商 品名 称 </t> 
<phoneticPr fontId="2" type="noConversion" /> 
</si> 

- <si> 

<t> 单 价 </t> 
<phoneticPr fontId="2" type="noConversion" /> 
</si> 

- <si> 

<t> 三 星 手 机 </t> 
<PhoneticPr fontId="2" type="noConversion" /> 
</si> 

- <si> 

<t> 诺 基 亚 手机 </t> 
<PhoneticPr fontId="2" type="noConversion" /> 
</si> 

- <si> 

<t> 摩 托 罗 拉手 机 </t> 

<PhoneticPr fontId="2" type="noConversion" /> 
</si> 

</sst> 


每 组 字符 串 使 用 元 素 <s 记 表示 ， 其 排列 顺序 就 是 其 序号 ， 表 示 工 作 表 数据 的 XML 文 
件 用 该 序号 来 引用 字符 串 。 
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20.2 RibbonX 控件 简介 


在 Excel 2007 中 ， 提 供 了 一 千 七 百 多 个 RibbonX 控件 。 不 能 使 用 VBA 代码 从 功能 区 
中 添加 或 删除 RibbonX 控件 ， 只 能 通过 编写 XML 代码 来 完成 定制 RibbonX 的 工作 ， 且 必 
须 将 该 XML 代码 包含 到 工作 短文 件 中 ， 以 达到 定制 RibbonX 的 目的 。 

使 用 XML 代码 可 描述 RibbonX， 指 定 控件 出 现 的 位 置 、 外 观 、 激 活 时 的 动作 等 。 
RibbonX 通过 回调 过 程 与 VBA 进行 接口 , 可 以 在 VBA 中 编写 回调 过 程 ， 以 使 RibbonX 中 
的 控件 完成 不 同 的 功能 。 

在 本 书 第 1 章 中 介绍 了 RibbonX 的 基本 组 成 ， 本 节 将 从 开发 人 员 的 角度 介绍 RibbonX 
的 各 种 控件 。 


20.2.1 基本 控件 

基本 控件 可 以 添加 到 自 定义 组 中 或 者 可 以 包含 在 其 他 容器 控件 中 。 常 用 的 基本 控件 有 
以 下 几 种 。 

1. 标签 


标签 控件 如 图 20-4 所 示 。 与 用 户 窗 体 中 的 标签 控件 类 似 ，RibbonX 中 的 标签 控件 只 作 
为 文字 提示 信息 使 用 ， 不 响应 用 户 的 动作 。 

标签 控件 的 XML 标识 为 <labelcontrol>。 

2. 复 选 框 


复 选 框 如 图 20-4 所 示 ， 可 通过 单 击 来 切换 状态 ， 常 用 于 控制 一 个 UI 控件 是 否 可 见 。 
复 选 框 控件 的 XML 标识 为 <checkbox>。 


3. 分 隔 条 分 条 Re 标签 
分 隔 条 如 图 20-4 所 示 ， 用 于 提供 组 中 控件 可 全 法相 

见 的 分 隔 垂直 条 。 
分 隔 条 控件 的 XML 标识 为 <separator>。 图 20-4 标签、 复 选 框 和 分 隔 条 控件 
4. 按钮 


按钮 如 图 20-5 所 示 , 这 是 最 普通 的 控件 。 按钮 可 带 有 图 标 和 标题 , 能 接收 用 户 的 单 击 ， 
并 调用 相应 的 VBA 过 程 完成 任务 。 如 本 章 前 面 的 例子 中 , 就 为 按钮 指定 了 一 个 VBA 代码 。 
按钮 控件 的 XML 标识 为 <button>。 


5. 切换 按钮 
切换 按钮 如 图 20-5 所 示 ， 是 一 个 可 单 击 项 , 每 次 单 击 时 在 按 下 和 非 按 下 之 间 切 换 ， 常 
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用 于 组 中 以 切换 多 个 可 能 状态 其 中 之 一 的 属性 ， 该 组 中 每 次 仅 一 个 按钮 能 被 按 下 。 
切换 按钮 控件 的 XML 标识 为 <toggleButton>。 

和 | 二 2 天 

eb -| -| 

中 和 | 

了 HE [| 盏 工 下 -| 百 -| 社 -全 -| 区-| 本 


宋体 


3 
洛 || 幸 这 国会 HE 中 
ace 9 


切换 按钮 
图 20-5 “按钮 和 切换 按钮 

6. 编辑 框 

编辑 框 如 图 20-6 所 示 ， 可 接受 用 户 的 输入 。 

编辑 框 控件 的 XML 标识 为 <editBox>。 

7. 下 拉 库 列表 


下 拉 库 列表 如 图 20-7 所 示 ， 是 由 一 个 下 拉 控 件 和 一 组 其 他 控件 组 成 的 。 库 列表 中 可 以 
包含 不 同类 型 的 控件 ， 是 最 灵活 的 UI 控件 之 一 


要 名 称 : 
一 一 编辑 框 
峡 沽 整 表格 大 小 
时 性 一 
图 20-6 编辑 框 


图 20-7 下 拉 库 列 表 
下 拉 库 列表 控件 的 XML 标识 为 <gallery>。 
8. 列表 项 
为 包含 在 组 合 框 中 的 列表 项 。 
列表 项 控件 的 XML 标识 为 <item>。 
20.2.2 ”容器 控件 


容器 控件 可 以 包含 其 他 控件 ， 通 过 柑 套 容器 控件 在 其 他 容器 里 ， 可 以 创建 层次 结构 
常用 的 容器 控件 有 以 下 几 种 。 

1. 选项 卡 

在 Excel 2007 中 ， 功 能 区 被 分 为 多 个 选项 卡 ， 例 如 【开始 】、【 插 入 】 选 项 卡 等 。 
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选项 卡 的 XML 标识 为 <tab>。 
2. 组 


每 个 选项 卡 中 又 分 多 个 组 ， 例 如 【开始 】 选 项 卡 中 的 【字体 】、【 对 齐 方 式 】 等 组 ， 
各 组 中 包含 不 同 的 控件 。 


组 的 XML 标识 为 <group>。 
3. 盒子 控件 
在 功能 区 中 ， 盒 子 控件 没有 任何 外 观 ， 也 就 是 说 盒子 控件 不 显示 出 来 ， 主 要 用 来 控制 


其 他 按钮 的 布局 。 在 盒子 控件 中 可 以 包含 任何 其 他 类 型 的 控件 。 如 图 20-8 所 示 就 是 使 用 
box 控件 将 排序 的 三 个 按钮 组 合 在 一 起 。 


盒子 控件 的 XML 标识 为 <box>。 可 将 其 他 任意 控件 放 在 该 容器 内 。 
4. 按钮 组 控件 


按钮 组 控件 用 来 控制 其 他 控件 的 布局 ， 在 相关 控件 之 间 带 有 边框 和 分 隔 条 ， 如 图 20-9 
所 示 。 


针对 本 
图 20-8 盒子 控件 图 20-9 按钮 组 控件 


按钮 组 控件 的 XML 标识 符 为 <buttonGroup>。 可 将 <button>、<toggleButton>、<gallery>、 
<menu>、<splitButton> 等 控件 放 在 该 容器 中 。 


5. 复合 框 控件 
复合 框 控件 如 图 20-10 所 示 ， 可 以 在 该 控件 中 输入 内 容 ， 同 时 提供 下 拉 列 表 供用 户 直 


接 选择 。 下 拉 列 表 的 内 容 是 一 组 列表 项 目 (为 一 组 <item> 控 件 ) 。 
复合 框 控件 的 XML 标识 为 <comboBox>。 


6. 菜单 控件 


功能 区 中 的 菜单 控件 是 一 种 弹出 式 菜单 ， 如 图 20-11 所 示 。 其 组 成 元 素 由 RibbonX 文 
件 定义 。 菜 单 可 以 包含 按钮 或 其 他 菜单 项 ， 且 允许 创建 层次 菜单 结构 。 


至 仿宋 -6B2312 
后 坚信 


图 20-10 复合 框 控件 图 20-11 菜单 控件 
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菜单 控件 的 XML 标识 为 <menu>。 在 该 容器 中 可 以 包含 <button>、<toggleButton>、 
<checkbox>、<gallery>、<Menu>、<splitButton> 等 控件 。 


7. 分 离 按钮 控件 


分 离 按钮 控件 由 一 个 组 合 按钮 和 菜单 或 者 切换 按钮 和 菜单 组 成 ， 如 图 20-12 所 示 。 单 
击 按钮 部 分 将 执行 默认 的 动作 ， 而 单 击 下 拉 箭头 将 显示 相关 选项 并 可 进行 选择 。 

分 离 按 钮 控件 的 XML 标识 为 <splitButton>。 该 容器 可 以 包含 <button>、<menu>、 
<toggleButton> 等 控件 。 定 义 该 控件 的 代码 结构 如 下 : 


<splitButton...> 
<button.../> 
<menu...> 
菜单 内 容 
</menu> 
</splitButton> 


8. 下 拉 控 件 


下 拉 控 件 如 图 20-13 所 示 ， 该 控件 与 复合 框 控 件 类 似 。 不 同 的 是 ， 在 该 容器 中 还 可 以 
包含 <button> 控 件 。 


se 男 。 同 加 
wm: | 
本 wi 1 页 
页 
3 
4 页 
国 S589 站 2 
国 A#N) KR 
园 合并 单元 格 (M) 9 页 
攻取 消音 元 格 会 并 (U) [Ea 县 他 而 
图 20-12 分 离 按钮 控件 20-13 下 拉 控 件 


下 拉 控 件 的 XML 标识 为 <dropDown>。 在 该 容器 中 可 包含 <item> 和 <button> 控 件 。 
20.2.3 ”控件 属性 

每 个 控件 都 具有 很 多 的 属性 ， 可 在 XML 中 使 用 这 些 属性 修改 控件 的 外 观 。 下 面 列 出 
控件 的 常用 属性 。 

1. ID 类 属性 


每 个 控件 都 必须 有 一 个 唯一 的 ID， 由 一 个 最 多 是 1024 个 字符 的 字符 串 组 成 ，ID 属性 
分 为 以 下 3 类: 

口 id: 为 自 定义 控件 的 ID; 

口 idMso: 为 内 置 控 件 的 ID; 
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口 idQ: 为 标记 <tab>、<group> 和 <menu> 的 ID。 
2. 外 观 属性 
外 观 属 性 用 来 控制 控件 的 可 见 性 、 标 签 、 蕙 浮 提示 等 信息 ， 常 用 的 有 以 下 属性 。 
口 itemHeight: 设置 gallery 控件 中 库 项 目的 高 度 ， 以 像素 为 单位 ; 
口 itemWidth: 设置 gallery 控件 中 库 项 目的 宽度 ， 以 像素 为 单位 ; 
口 itemSize: 设置 menu 中 项 目的 尺寸 ; 可 设置 为 normal 和 large， 大 项 目 不 但 显示 描 
述 也 显示 标签 


口 label: 设置 控件 的 标题 ; 

口 screentip: 设置 鼠标 悬浮 在 控件 上 时 显示 的 小 提示 ; 

口 supertip: 设置 鼠标 悬浮 在 控件 上 时 显示 的 大 提示 ; 

口 showLabel: 设置 是 否 显示 控件 标签 ， 取 值 为 True 和 false; 

口 size: 设置 控件 的 尺寸 。 可 设置 为 normal 和 large， 控 件 正常 尺寸 Cnormal) 占用 
一 行 ， 大 尺寸 (large) 占用 三 行 ; 

口 title: 设置 菜单 的 标题 文本 ， 用 于 menu 和 menuSeparator 控件 ; 

口 visible: 设置 控件 是 否 可 见 ， 取 值 为 True 和 false。 

3. 图 像 属 性 

带 图 像 的 控件 可 以 使 用 自 定义 的 图 像 ， 也 可 使 用 内 署 控 件 的 图 像 。 主 要 有 以 下 属性 : 

口 image: 使 用 此 属性 设置 自 定义 图 像 的 名 称 ; 

口 imageMso: 使 用 此 属性 设置 内 署 控 件 的 名 称 ， 用 来 引用 内 置 控件 的 图 像 ; 

口 showImage: 设置 是 否 显示 一 个 控件 的 图 像 ， 取 值 为 True 和 false。 
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.其 他 属性 


除了 上 面 介绍 的 控制 控件 外 观 、 图 像 的 属性 外 ， 常 用 的 属性 还 有 以 下 儿 种 : 

口 boxStyle: 设置 在 box 控件 中 是 水 平 排列 图 标 〈 默 认 ) 或 垂直 排列 图 标 ， 取 值 为 
Horizontal 或 vertical; 

口 columns: 设置 gallery 控件 库 中 的 列 数 ; 

口 description: 设置 控件 的 长 描述 ， 当 菜单 的 itemSize 设置 为 大 时 显示 在 菜单 中 ， 用 
于 botton、toggleButton、splitButton、checkBox、menu、dynamicMenu、gallery 等 
控件 ; 


口 enabled: 设置 控件 是 否 有 效 ， 如 果 设 为 false， 则 该 控件 为 灰色 ， 不 能 操作 ; 

口 maxLength: 设置 editBox 或 comboBox 控件 文字 输入 的 最 大 长 度 ; 

口 keytip: 设置 访问 控件 的 快捷 键 ; 

口 rows: 设置 gallery 控件 库 中 的 行 数 ; 

口 showItemImage: 设置 在 comboBox、dropDown 或 gallery 控件 中 ， 是 否 在 下 拉 列 
表 中 显示 图 像 ; 

口 tag: 为 控件 设置 附加 文本 。 
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20.2.4 控件 回调 函数 


在 自 定义 RibbonX 时 ， 可 在 XML 中 通过 控件 的 不 同属 性 设置 控件 。 但 是 ， 在 更 多 的 
情况 下 ， 需 要 程序 在 运行 时 修改 控件 的 属性 。 这 时 ， 可 使 用 控件 的 回调 函数 。 
在 RibbonX 中 提供 了 回调 函数 功能 ， 可 在 运行 时 动态 修改 控件 的 属性 。 每 个 控件 可 有 
多 个 回调 函数 ， 可 分 别 动态 修改 控件 的 相应 属性 。 设 置 回调 函数 属性 以 get 字符 开头 ， 紧 
跟着 相应 的 属性 名 。 例如 , 要 动态 修改 控件 的 label 属性 , 则 用 属性 getLabel 设置 回调 函数 。 
使 用 属性 getItemImage 设置 的 回调 函数 可 在 程序 运行 时 修改 控件 的 图 像 。 
还 有 3 个 不 是 按 这 种 方式 命名 的 属性 ， 也 可 用 来 设置 回调 函数 。 
口 onLoad: 用 在 XML 文件 的 最 外 层 元 素 <customUI> 中 , 当 Office 开始 装载 RibbonX 
时 将 调用 该 属性 指定 的 回调 函数 。 
口 onAction: 当 单 击 控件 时 ， 调 用 该 属性 指定 的 VBA 过 程 ， 可 应 用 到 <button>、 
<toggleButton>、<checkBox>、<dropdown> 和 <gallery> 控 件 。 
口 onChange: 当 控 件 中 的 文本 改变 时 ， 调 用 该 属性 指定 的 VBA 过 程 ， 可 应 用 到 
<editBox> 和 <comboBox> 控 件 。 
例如 ， 以 下 XML 代码 定义 一 个 <button> 控 件 ， 并 指定 单 击 按钮 时 调用 名 为 showmsg 
的 VBA 过 程 。 


<button idq="bl" imageMso=" HappyFace" size="large" 
label=" 测 试 " onAction="showmsg"/> 


在 Excel 工作 竹中 ， 编 写 一 个 名 为 showmsg 的 过 程 ， 执 行 相 应 的 功能 即 可 。 
Sub showmsg (control As IRibbonControl) 
MsgBox "您 单 击 了 “测试 ”按钮 !" 

End Sub 

从 上 面 的 代码 可 以 看 出 , 在 VBE 中 编写 回调 函数 时 , 过 程 定义 部 分 需要 指定 参数 。 不 
同 的 回调 函数 的 参数 数量 不 同 ， 下 面 介绍 定义 回调 函数 子 过 程 的 结构 。 

1. onLoad 属 性 设置 回调 函数 

onLoad 属性 只 能 在 XML 文件 的 最 外 层 元 素 <customUI> 中 使 用 ， 该 属性 设置 系统 装载 
自 定义 RibbonX 时 执行 的 回调 函数 名 称 , 在 程序 中 只 能 通过 该 回调 函数 获取 RibbonX 对 象 
的 引用 。onLoad 属性 指定 的 回调 函数 的 过 程 结构 如 下 : 


Sub 过 程 名 (ribbon As IRibbonUI) 


2. onAction 属 性 设置 回调 函数 


在 XML 中 用 控件 的 onAction 属性 指定 回调 函数 , 针对 不 同 控件 有 不 同 的 子 过 程 结构 。 
口 控件 为 <button> 时 ，onAction 属性 指定 的 回调 函数 的 过 程 结构 如 下 : 


Sub 过 程 名 (ByRef Control Rs IRibbonControl) 
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口 控件 为 <checkBox> 和 <toggleButton> 时 ，onAction 属性 指定 的 回调 函数 的 过 程 结构 
如 下 : 


Sub 过 程 名 (ByRef Control As IRibbonControl, ByRef Pressed Rs Boolean) 
口 控件 为 <dropDown> 和 <gallery> 时 ,onAction 属性 指定 的 回调 函数 的 过 程 结构 如 下 : 


Sub 过 程 名 (ByRef Control As IRibbonControl,ByRef SelectedID As 
String,_ 
ByRef SelectedIndex Rs Integer) 


3. onChange 属 性 设置 回调 函数 
控件 为 <editBox> 和 <comboBox> 时 ，onChange 属性 指定 的 回调 函数 的 过 程 结构 如 下 : 


sub 过 程 名 (ByRef Control As IRibbonControl,ByRef Text As String) 


4. 其 他 get 类 属性 设置 回调 函数 


口 通过 属性 getItemID、 getItemImage、 getItemLabel、 getItemScreentip、getItemSupertip 
指定 的 回调 函数 的 过 程 结构 如 下 : 


Sub 过 程 名 (ByRef Control Rs IRibbonControl,ByRef Index Rs Integer, _ 
ByRefReturnValue Rs Variant) 


口 除 前 面 列 出 各 属性 设置 的 回调 函数 外 ， 其 他 get 属性 (包括 getContent、 
getDescription、 getEnabled、 getImage、 getItemCount、 getItemHeight、 getItemWidth、 
getKeytip 、 getLabel 、 getPressed 、 getSize 、 getScreentip 、 getSelectedItemID 、 
getSelectedItemIndex、 getShowImage、 getShowLabel、 getSupertip、 getText、 getTitle、 
getVisible 等 属性 ) 指定 的 回调 函数 的 过 程 结构 如 下 : 


Sub 过程 名 (ByRef Control As IRibbonControl, ByRef ReturnValue As 
Variant) 


20.3” 自 定义 RibbonX 


在 20.2 节 中 介绍 了 RibbonX 的 常用 控件 ， 以 及 控件 的 属性 、 回 调 函 数 。 了 解 这 些 内 容 
之 后 ， 就 可 使 用 XML 自 定 义 RibbonX。 最 简单 的 方式 就 是 手工 方式 : 使 用 【记事 本 】 编 
写 XML 代码 ， 再 添加 到 Excel 工作 簿 中 。 另 外 ， 还 可 使 用 Custom UI Editor 工具 快速 地 定 
义 RibbonX。 


20.3.1 手工 方式 自 定义 RibbonX 


本 章 的 20.1 节 中 介绍 了 Excel 2007 工作 秒 的 Oopen XML 格式 。 要 自 定义 RibbonX， 
也 需要 将 工作 敌 解 压 出 来 ， 并 向 其 中 添加 自 定义 代码 。 下 面 的 例子 向 功能 区 添加 一 个 名 为 
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【测试 】 的 选项 卡 ， 在 该 选项 卡 中 添加 一 个 按钮 用 来 显示 工作 表 的 信息 ， 如 图 20-14 所 示 。 


合 )ie2 Rs Microsoft Excel Ne 
开 括 A Mis 局 人 3t 执 s 证 同 视 加 开 RIRR i 要 硕 | Wt | 加 
| 瞪 直 
工作 要 
全 
| 


图 20-14 自 定 义 RibbonX 


按 以 下 步骤 完成 上 面 的 自 定义 选项 卡 : 
(1) 在 当前 文件 夹 中 创建 一 个 名 为 customUI 的 文件 夹 。 
(2) 打开 【记事 本 】 程 序 ， 输 入 以 下 内 容 : 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon> 
<tabs> 
<tab id="rxtabTest" label=" 测 试 " > 
<group id="myGroup"” label=" 显 示 "> 
<button id="bl" imageMso="AccessTableEvents" 
size="large" label=" 工 作 表 信 息 " onAction="showmsg"/> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 


全 注意 : 因为 XML 要 区 分 大 小 写 ， 所 以 一 定 要 注意 字母 的 大 小 写 。 


以 上 代码 使 用 XML 自 定义 RibbonX。 有 关 XML 的 内 容 请 读者 参阅 XML 相关 书籍 。 
下 面 简单 介绍 本 例 中 用 到 的 元 素 。 
口 <customUI> 元 素 是 XML 的 根 容器 ， 名 称 集 Cnamespace) 将 它 识 别 作为 RibbonX 
文档 。 
口 <ribbon> 元 素 是 一 个 联系 到 可 见 的 Ribbon 的 所 有 变化 的 容器 。<customUTI 元 素 也 
可 以 包含 一 个 <commands> 元 素 ， 用 来 重复 利用 内 置 控件 。 
口 <tabs> 元 素 是 一 个 联系 到 Ribbon 中 现 有 的 或 新 的 选项 卡 的 所 有 变化 的 容器 。 
<ribbon> 元 素 也 能 包含 <officeMenu> 、<qat> 和 /或 <contextualTabs> 元 素来 控制 
Ribbon 的 相应 部 分 。 
口 <tab id="rxtabTest" label=" 测 试 "> 元 素 创建 自 定义 的 选项 卡 。 
口 < group id="myGroup" label=" 显 示 "> 元 素 创建 一 个 组 。 
口 <button> 元 素 添加 一 个 按钮 ， 该 按钮 显示 名 称 为 “工作 表 信 息 ”， 当 单 击 该 按钮 时 
执行 工作 簿 中 的 showmsg 宏 ， 该 宏 需 要 在 Excel 的 VBE 中 编写 。 
口 接 下 来 就 使 用 </group>、</tab> 等 代码 结束 各 元 素 的 定义 。 
(3) 选择 【文件 】| 【保存 】 命 令 ， 打 开 如 图 20-15 所 示 的 【另存 为 】 对 话 框 。 在 【 保 
存 类 型 】 下 拉 列 表 框 中 选择 “所 有 文件 ”， 在 【编码 】 下 拉 列 表 框 中 选择 UTF-8， 将 文件 
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保存 到 当前 文件 夹 的 customUI 文 件 夹 下 ， 名 称 为 customUIxml。 


图 20-15 保存 XML 文件 


(4) 打开 Excel 2007， 新 建 一 个 工作 敌 ， 保 存 为 Testxlsm。 

(5) 关闭 Excel 2007。 并 将 文件 test.xlsm 重 命名 为 test.xlsm.zip， 使 Excel 工作 短 变 为 
一 个 压缩 文件 。 

(6) 双击 压缩 文件 用 WinRar 打开 该 文件 ,如 图 20-16 左 图 所 示 。 拖 动 当前 文件 夹 下 的 
customUI 文件 夹 到 打开 的 压缩 文件 窗口 ， 得 到 如 图 20-16 右 图 所 示 效 果 ， 将 该 文件 夹 及 文 
件 夹 的 内 容 添 加 到 压缩 文件 中 。 


2 [3 Er 收 宫 夹 @) 凶 项 WD) 帮助 tD 
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(7) 将 图 20-16 所 示 对 话 框 中 的 _rels 文件 夹 拖 到 当前 文件 夹 中 。 

(8) 打开 _rels 文件 夹 中 的 .rels 文件 ， 在 最 后 一 个 Relationship 标记 与 Relationships 标 
记 之 间 添 加 以 下 内 容 ， 将 在 工作 敌 文 件 与 customUI 文件 夹 中 的 customUI.xml 文件 之 间 创 
建 关 系 。 

<Relationship Id="customUIRelID" 


Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensi 
bility" Target="customUI/customUI.xml" /> 
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(9) 保存 并 关闭 .rels 文件 。 
(10) 删除 图 20-16 所 示 对 话 框 中 的 _rels 文件 夹 ， 然 后 拖 动 第 (7) 步 修改 _rels 文件 夹 
到 压缩 文件 Test.zip 中 。 
(11) 关闭 压缩 文件 窗口 ， 将 压缩 文件 Test.xlsm.zip 重 命名 为 Test.xlsm。 
(12) 用 Excel 2007 打开 Test.xlsm 工作 筹 ， 将 看 到 如 图 20-14 所 示 的 自 定义 选项 卡 。 
(13) 单 击 自 定义 的 【测试 】 选 项 卡 中 的 【工作 表 信 息 】 按 钮 ， 因 为 还 未 编写 回调 函 
所 以 将 弹出 如 图 20-17 所 示 的 错误 提示 对 话 框 。 
(14) 按 组 合 键 Alt+F11 打开 VBE 环境 。 
(15) 单 击 主 菜单 【插入 】| 【模块 】 命 令 增加 一 个 标准 模块 。 
(16) 在 【模块 1】 中 输入 以 下 过 程 代码 ; 
Sub showmsg (control Rs IRibbonControl) 
Dim strl As String 
With ActiveSheet 
str1l = "当前 工作 表 信息 : " & vbNewLine 
strl = strl & "工作 表 名 : " & .Name & vbNewLine 
strl = strl & " 行 : " & .Cells.Rows.Count & vbNewLine 
strl = strl & " 列 : " & .Cells.Columns.Count & vbNewLine 
strl = strl & "已 使 用 区 域 : " & .UsedRange.Address 
End With 
MsgBox strl，vbInformation + vboKOonly, "提示 信息 " 
End Sub 


以 上 代码 的 作用 是 : 获取 活动 工作 矢 的 名 称 、 工 作 表 行列 数 、 己 使 用 区 域 的 地 址 ， 并 
使 用 MsgBox 对 话 框 显示 出 来 。 

(17) 返回 Excel 界面 ， 单 击 自 定义 的 【测试 】 选 项 卡 中 的 【工作 表 人 信息】 按钮 ， 将 弹 
出 如 图 20-18 所 示 的 提示 对 话 框 ， 显 示 当 前 工作 表 的 信息 。 
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图 20-17 错误 提示 图 20-18 ”提示 对 话 框 


20.3.2 ”使 用 UI 编辑 器 自 定义 RibbonX 


使 用 手工 方式 自 定 义 RibbonX 时 ， 操 作 步 又 比较 繁琐 。 首 先 ， 需 要 将 工作 短文 件 修改 
为 压缩 文件 扩展 名 ， 将 自 定 义 RibbonX 的 XML 代码 添加 到 压缩 文件 中 ， 其 次 ， 需 要 修改 
压缩 文件 中 _rels 文件 夹 中 的 文件 ， 最 后 再 将 压缩 文件 名 称 改 回 Excel 工作 短 名 称 。 

为 了 快速 、 高 速 地 完成 RibbonX 的 定义 ， 微 软 公司 提供 了 一 个 名 为 Custom UI Editor 
的 工具 ， 可 用 来 处 理 存放 在 Excel Open XML 工作 短 中 自 定义 RibbonX 的 实用 程序 。 使 用 
该 工具 软件 能 够 自动 处 理 放 署 自 定义 UI 部 分 到 压缩 中 的 过 程 ， 并 定义 与 它 的 关系 ， 所 有 
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的 处 理 只 需 通过 单 击 鼠 标 完成 。 
1. 认识 UI 编辑 器 


读者 可 从 http://openxmldeveloper.org/articles/customuieditor.aspx 网 站 上 下 载 Custom UI 
Editor 工具 软件 。 

在 安装 Custom UI Editor 工具 之 前 ， 应 先 检查 系统 是 否 安装 NET Framework 2.0。 如 果 
没有 安装 ， 需 要 首先 下 载 安 装 后 ， 再 安装 Custom UI Editor 工具 。 

安装 完成 后 ，UI 编辑 器 将 在 桌面 创建 一 个 快捷 方式 ， 双 击 运 行 UI 编辑 器 ， 打 开 如 图 
20-19 所 示 的 操作 界面 。 


ce 2007 Custom UI Editor 


No docunent is currently opened 


图 20-19 UI 编辑 器 


UI 编辑 器 由 菜单 栏 、 工 具 栏 和 一 个 文字 编辑 窗口 组 成 。 在 文字 编辑 窗口 中 可 输入 自 定 
义 UI 的 XML 代码 。 使 用 UI 编辑 器 的 一 般 步 骤 是 : 

(1) 打开 一 个 Office 2007 格式 的 工作 短文 件 。 

(2) 在 UI 编辑 器 的 编辑 窗口 中 输入 自 定 义 RibbonX 的 XML 代码 。 

(3) 保存 文件 ， 退 出 UI 编辑 器 。 

(4) 打开 文件 即 可 查看 到 自 定义 RibbonX 的 效果 。 

从 以 上 步骤 可 以 看 出 , 使 用 UI 编辑 器 可 减少 将 文件 改名 为 zip、 将 customUI 文件 加 入 
压缩 包 、 修 改 .rels 文件 等 过 程 ， 可 快速 完成 自 定义 UI 的 过 程 。 


2. 使 用 UI 编辑 器 


使 用 UI 编辑 器 自 定义 UI 的 过 程 非常 简单 ， 下 面 就 使 用 UI 编辑 器 来 制作 上 节 的 实例 。 

(1) 在 Excel 2007 中 新 建 一 个 工作 短 ， 保 存 为 Test2.xlsm， 退 出 Excel 2007。 

(2) 打开 UI 编辑 器 (Custom UI Editor) 。 

(3) 单 击 菜单 FilelOpen 命令 ,在 打开 的 对 话 框 中 选择 test2.xlsm 文件 ， 如 图 20-20 
所 示 。 

(4) 单 击 【 打 开 】 按 钮 ， 在 UI 编辑 器 中 打开 工作 短 test2.xlsm。 此 时 ， 编 辑 器 窗口 仍 
然 显示 为 空白 ， 只 是 标题 栏 显示 了 工作 秒 的 文件 名 ， 如 图 20-21 所 示 。 
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Open Wirrosoft Office 2D9T Docmaent > tost2.zlsn - Nicrosoft Office 2007 Custe DI---[- |G 区 | 
File Elit Senple 
EE 
国 castw | 


图 weeam 
国 训 eseazoor 广 吉 结 构 ms 


文才 各 加 :es as 
RD): freon ae 2007 eaae 可 


图 20-20 打开 文件 图 20-21 打开 工作 短 


(5) 因为 工作 矫 Test2.xlsm 中 还 没有 自 定义 RibbonX 的 代码 ， 所 以 UI 编辑 器 的 编辑 
窗口 里 为 空 。 在 编辑 窗口 中 输入 以 下 XML 代码 ， 用 来 定义 RibbonX， 如 图 20-22 所 示 。 


名 提示: UI 编辑 器 不 支持 中 文 ， 因 此 需要 将 上 节 自 定义 RibbonX 代码 的 中 文 改 成 英文 。 


国 test2.xlsm — Wicrosoft Office 2007 Custom UI Editor 
Eile Edit Suyle 

苇 回 园 盖 可 

加 csm 允 | 


<cuscomUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon> 
<taps> 
<tab dnextabTest" labelcwTescw > 
<group d=mmyoroup" label-"Display"> 
cbutton idcwpblw imageNso="AccessTableEvenca" 
aize-nlargew lapel-"Workaheer Info" onhAccionewahowasgw/> 
</group> 
</tep> 
</tabs> 
</ribbon> 
</eustomoI)| 


:Nexcel12007 从 入 门 加 精通 \ 实 例 \ 第 20 意 \test2.xlsm In 12Col 12 ,; 


图 20-22 输入 XML 代码 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<ribbon> 
<tabs> 
<tab id="rxtabTest" label="Test" > 
<group id="myGroup" label="Display"> 
<button id="bl" imageMso="AccessTableEvents" 
size="large" label="Worksheet Info" onAction="showmsg"/> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 


(6) 单 击 工 具 栏 中 的 Save 按钮 将 内 容 保存 到 test2.xlsm 文件 中 ， 然 后 关闭 UI 编辑 器 
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完成 RibbonX 的 创建 。 
(7) 打开 工作 短 test2.xlsm， 可 看 到 功能 区 新 增加 的 选项 卡 如 图 20-23 所 示 。 


加 -~ s Microsoft Excel -器 x 
| 开始 巴 入 页 而 布局 ”公式 数据 证 网 。 视图 开发 I 只 页 | Test | 回 


转 


Worksheet 
Info 


Display ， 


图 20-23 ” 自 定义 功 能 区 


(8) 在 VBE 中 ， 编 写 过 程 showmsg 用 来 显示 当前 工作 表 的 信息 。 有 具体 代码 与 20.3.1 
节 中 的 过 程 showmsg 完全 相同 。 


20.4 自 定 义 RibbonX 实例 


前 面 介 绍 了 自 定 义 RibbonX 的 步骤 、 常 用 RibbonX 控件 等 内 容 。 本 节 以 实例 形式 演示 
自 定义 RibbonX 的 各 种 方法 , 包括 将 内 置 RibbonX 控件 组 合成 一 个 新 的 选项 卡 、 添 加 自 定 
义 RibbonX 控件 到 内 署 选项 卡 、 自 定义 Office 按钮 功能 、 定 义 回调 函数 等 实例 。 

本 节 的 实例 不 再 重复 创建 的 各 个 步 又， 具体 操作 可 参见 本 章 20.3 节 的 内 容 ， 在 实例 中 
只 列 出 定义 RibbonX 的 XML 代码 、 回 调 函数 的 VBA 代码 等 内 容 。 


20.4.1 组 合 内 置 Ribbon 


在 Excel 2007 功能 区 的 内 置 控件 中 ， 将 不 同 用 途 的 控件 用 选项 卡 进行 了 分 类 。 在 大 多 
数 情 况 下 , 用 户 要 完成 工作 都 需要 在 多 个 选项 卡 之 间 来 回 切换 。 利 用 功能 区 的 自 定义 功能 ， 
可 以 新 建 一 个 选项 卡 ， 将 常用 内 置 控件 集中 到 一 起 ， 以 方便 用 户 操作 。 


<customUI xmlns="http://schemas.microsoft .com/office/2006/01/customui"> 
<ribbon> 
<tabs> 
<tab id="customTab" label=" 常 用 工具 " insertAfterMso="TabHome"> 
<group idMso="GroupClipboard" /> 
<group idMso="GroupFont" /> 
<group idMso="GroupSortFilter" /> 
<group idMso="GroupInsertIllustrations" /> 
<group idq="NewGroup" label=" 组 合 按钮 "> 
<button idMso="VisualBasic" /> 
<button idMso="SheetProtect" /> 
<button idMso="FilePrint" /> 
<separator id="MySeparator1l" /> 


<menu idMso="WindowSwitchWindowsMenuExcel" size="large" /> 
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</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 


以 上 XML 代码 自 定义 的 选项 卡 如 图 20-24 所 示 。 


1 ,回忆 ss = Microsoft Excel pe 
| 开始 | 守 用 工具 | 插 N 。 页面 布 局 。 公式 数据 。 市 阅 。 视图 开发 T 具 ”加 昭 顺 @ 
半 ， 宗 体 ~ visual Basic 
| Ts Taal J Se | 
| 要 出 | 时 


图 20-24 ”组合 内 置 控件 


对 于 内 置 控件 ， 用 户 不 需要 编写 任何 VBA 代码 ， 单 击 这 些 控件 即 可 调用 系统 提供 的 
功能 。 在 Excel 2007 中 提供 了 一 千 七 百 多 个 内 和 RibbonX 控件 ， 用 户 要 使 用 这 些 内 署 控 件 
必须 先 要 知道 具体 的 名 称 。 可 以 在 http://www.microsoft.com/zh/cn/default.aspx 网 站 上 以 关 
键 字 2007OfficeControlIDsExcel2007 搜索 , 找到 2007OfficeControlIDsExcel2007.EXE 文件 ， 
将 其 下 载 到 本 地 硬盘 。 该 文件 为 一 个 自 解压 文件 ,将 其 解压 缩 后 可 看 到 其 中 包含 24 个 文件 ， 
分 别 为 Office 2007 各 组 件 (包括 Excel、Word、Outlook 和 PowerPoint) 中 RibbonX 控件 
的 名 称 、 类 型 等 。Excel 2007 中 RibbonX 控件 名 称 包 含 在 ExcelRibbonControls.xlsx 文件 中 ， 
打开 该 文件 ， 可 看 到 如 图 20-25 所 和 示 的 控件 信息 。 


国 ExcelRibbonControls xlsx 


3 [FileWewDefault Q alQui ck Access Too 
4 FileOpen, axQuick Access Too 
5 FileSave Qui ck Access Too 
RE 


aiQui ck Access Too 
7 FilePrintQuick Quick Access Too 


8 PilerintPrevier 
| 11 


过 iTemew 


图 20-25 ”Excel 2007 控件 列表 


另外 ，Microsoft Office 2007 提供 了 大 约 二 千 五 百 个 内 置 命名 的 图 像 ， 这 些 图 像 与 不 同 
的 命令 相关 联 。 如 果 知 道 图 像 的 名 称 ， 则 可 以 为 自 定义 的 RibbonX 控件 中 指定 这 些 图 像 。 

微软 提供 的 mso image browser.xlsm 工作 敌 列 出 了 Excel 2007 提供 的 这 些 图 像 ， 可 从 
网 上 下 载 该 工作 禾 。 该 工作 短 的 内 容 如 图 20-26 所 示 ， 在 工作 表 第 1 行 中 列 出 了 当前 选中 
名 称 的 图 像 及 后 面 的 50 个 图 像 。 从 第 2 行 开始 , 每 行 第 1 列 显示 1 个 内 置 图 像 的 名 称 , 在 
XML 代码 中 使 用 imageMso 属性 引用 图 像 名 称 ， 即 可 显示 出 对 应 的 图 像 。 


.405 


Excel VBA 开发 技术 大 全 


image browserxlsm 


:加 : 轩 : 央 * 避 
* 圆 |: 饼 | 因 |* 辐 |" 怠 


42 43 


中 大 攻占 区 


”图 |* 国 :只 区 +: 如 


:局 s 男 上 :加 二 - 口 


FF Large Icons 


Te Serol down column Ato view 50 moges, Deeinning 
-Drt rusionDepthi44Classic withthe image name in the active cell. The number 
_3DExt rusionDepth288C1assic below the icon refersto the row that containsits 
-3DExtrusionDepth36C1assic image name. Notethatsomeimagesare not 
-3DExtrusionDepth12C1assic 
-3DExtrusionpepthInfinityClassic 


designed forthe larger32x32 size. 


Tip: Use CtritFto find image names that contain 
specifictext. 


-3DExtrusionDirectionClassic 
3DExt rusionParallelClassic 
IDExt rusionPerspect iveClassic 
3DLight ingClassie 
3DLightingDinClassic 


3 
4 
5 
6 
了 
日 
9 _3DExtrusionDepthNoneClassic 
10 
11 
12 
13 
14 


图 20-26 Excel 2007 内 置 图 像 


名 提示: 也 可 以 将 内 置 图 像 显示 在 用 户 窗 体 的 Image 控件 中 。 例如， 下 面 的 代码 将 为 用 户 
窗 体 中 的 Imagel 控件 设置 内 置 图 像 ， 图 像 的 尺寸 被 指定 为 32 x 32 像素 。 


Image1.Picture = Application.CommandBars.GetImageMso("AccessTableEvents", 
S32 


20.4.2 添加 RibbonX 到 内 置 选项 卡 


可 将 自 定 义 RibbonX 控件 添加 到 内 置 选项 卡 中 。 例 如 ， 以 下 代码 在 【开始 】 选 项 卡 中 
添加 一 个 名 为 【测试 】 的 组 : 


<customUI xmlns="http://schemas .microsoft .com/office/2006/01/customui"> 
<ribbon> 
<tabs> 
<tab idMso="TabHome" > 
<group id="Groupl" label=" 测 试 " > 
<button id="Buttonl" label=" 标 签 1" size="normal" onAction="subl" 
imageMso="DrawingCcanvasScale" /> 
<button id="Button2" label=" 标 签 2" size="normal" onAction="sub2" 
imageMso="DrawingObjectFormatDialog" /> 
<button id="Button3" label=" 标 签 3" size="normal" onAction="sub3" 
imageMso="DrawingCanvasExpand" /> 


<separator id="Separatorl" /> 
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<menu id="Menu" label=" 测 试 菜单 " size="large" 
imageMso="FileBackUpsqlDatabase" > 
<button id="Button4" label=" 菜 单项 1" onAction="Menusub1" 
imageMso="FileCheckIn" /> 
<button id="Button5"” label=" 菜 单项 2" onRction="MenuSub2" 
imageMso="FileCheckOut" /> 
<button id="Button6" label=" 菜 单项 3" onAction="MenuSub3" 
imageMso="FileCheckOutDiscard" /> 
<button id="Button7" label=" 菜 单项 4" onRction="MenuSub4" 
imageMso="FileCompatibilityChecker" /> 
<button id="Button8" label=" 菜 单项 5" onAction="Menusub5" 
imageMso="FileCompatibilityCheckerPowerPoint" /> 
<button id="Button9" label=" 菜 单项 6" onAction="Menusub6" 
imageMso="FileCompatibilityCheckerWord" /> 
</menu> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 
完成 设置 后 打开 工作 禾 ， 可 看 到 如 图 20-27 右 侧 所 示 的 自 定义 组 “测试 ”， 其 中 包含 
了 3 个 按钮 和 1 个 菜单 ， 单 击 菜单 将 弹出 6 个 菜单 项 目 。 
Microsoft Excel = 
公 瑟 。 数 生 市 二。 视 可。 开发 T 风 。 加 娄 项 
| > 3 插入- 工 - 
| >: 可 -%，| 和 [Pa 名 知 哆 二 
和 还 ”还 泽 ~ 


EE 
5 6 式 “要 这 和 元 格 ee 


图 20-27 添加 Ribbonx 控件 到 内 置 选项 卡 


单 击 按钮 或 菜单 项 目 ， 将 调用 工作 敌 中 的 宏 。 如 果 希 望 单 击 这 些 控件 时 能 完成 实际 的 
工作 ， 就 需要 在 工作 筹 中 定义 对 应 的 宏 〈 例 如 ，sub1、sub2、MenuSub1、MenuSub2 等 ) 。 


20.4.3 定义 Office 按钮 


除了 可 以 自 定义 功能 区 的 选项 卡 外 , 用 户 还 可 以 自 定义 Office 按钮 中 的 菜单 项 。 例如 ， 
以 下 XML 代码 将 在 Office 按钮 中 添加 菜单 项 (分别 添加 1 个 菜单 、1 个 弹出 菜单 及 其 6 
个 弹出 菜单 项 、 在 系统 已 有 的 【打印 】 弹 出 菜单 中 添加 1 个 菜单 项 ) 。 

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" > 


<ribbon> 


<officeMenu> 
<button id="Button1l" label=" 自 定义 菜单 " onAction="subl" 
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imageMso="FindRelatedMenu" /> 
<menu id="PopMenu" label=" 弹 出 菜单 u" imageMso="HappyFace" > 
<button id="Button2" label=" 菜 单项 1" onAction="sub2" imageMso 
"FileCheckIn" /> 
<button id="Button3" label=" 菜 单项 2" onAction="sub3" imageMso 
"FileCheckOut" /> 
<button id="Button4" label=" 菜 单项 3" onAction="sub4" 
imageMso="FileCheckOutDiscard" /> 
<button id="Button5" label=" 菜 单项 4" onAction="sub5" 
imageMso="FileCompatibilityChecker" /> 
<button id="Button6" label=" 菜 单项 5" onAction="sub6" 
imageMso="FileCompatibilityCheckerPowerPoint" /> 
<button id="Button7" label=" 菜 单项 6" onAction="sub7" 
imageMso="FileCompatibilityCheckerWord" /> 
</menu> 
<splitButton idMso="FilePrintMenu"> 
<menu> 
<button id="PrintButton" label=" 打 印 设置 " onAction="sub8" imageMso= 
"FilePrint" 
description=" 由 用 户 设置 打印 机 参数 "/> 
</menu> 
</splitButton> 
</officeMenu> 
</ribbon> 
</customUI> 


在 XML 中 ， 使 用 元 素 <officeMenu> 表 示 定 义 Office 按钮 菜单 。 

<splitButton idMso="FilePrintMenu"> 表 示 定 义 一 个 分 离 按 钮 (这 里 看 起 来 像 一 个 弹出 
式 菜单 ) ， 使 用 idMso 表示 引用 内 置 的 FilePrintMenu 控件 。 

以 上 XML 代码 生成 的 Office 按钮 菜单 如 图 20-28 所 示 。 


wy wy 一 一 
DD mw em DD waw 预 闪 打印 文档 
Dh m2 同 9 四 
Bo es | 蕊 % goss, snopes 
转 于 4 项 
保存 (9) 网 > 菜单 项 保存 (8) 人 二 快速 条 外 QQ) 
回 可 加 硬 | Pa , 析 Ra6 车 SisaRNT 
鞠 sesw 国 sesw ， 
JSD 
[= | 号 mme 邮 A mnt 
Sh i 
EL | 
本 sw ， 二 zw ， 
全 站 xmo 人 全) sao 
Dh sx exe 
Dee ST 
[B exce “ERD ||X a sxceloo | 目 Exce 连 硕 四 || 义 对 出 Excel09 


图 20-28 自 定 义 Office 按钮 
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20.4.4 ”RibbonX 控件 回调 函数 实例 


前 面 介绍 的 实例 都 没有 使 用 RibbonX 控件 的 回调 函数 。 在 实际 应 用 中 ， 很 多 地 方 都 需 
要 使 用 回调 函数 才能 完成 具体 的 工作 。 下 面 以 实例 演示 回调 函数 的 使 用 方法 ， 创 建 类 似 
Excel 2007 功能 区 【开始 】 选 项 卡 的 【剪贴 板 】 组 中 的 【粘贴 】 分 离 按钮 控件 ， 当 用 户 单 
击 下 方 的 按钮 时 将 弹出 下 拉 按 钮 列表 ， 如 图 20-29 左 图 所 示 。 单 击 其 中 某 个 按钮 后 ， 上 方 
显示 的 按钮 将 变 为 该 按钮 图 标 。 鼠 标 指 向 按钮 时 ， 下 方 将 显示 提示 信息 ， 如 图 20-29 右 图 


所 示 。 


图 20-29 新 建 RibbonX 控件 
具体 的 步骤 如 下 : 


(1) 向 Excel 工作 秒 中 添加 以 下 自 定义 RibbonX 控件 的 XML 代码 : 


| ab 到 区 域 J 
轧 - 去 代 一 | 
右 出 EE es nX 控 件 回调 函数 实例 - 
府 部 有 关 详 妈 硫 助 ， 请 按 F1， 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 


onLoad="rxcustomUI onLoad"> 
<ribbon> 
<tabs> 
<tab id="rxGoto" label=" 跳 转 " > 
<group id="rxMoveCell" label=" 单 元 格 移 动 " > 


<splitButton id="rxSplit" size="large" > 
<button id="rxButton" getImage="rxButton getImage" 


getLabel="rxButton getLabel" 


getsupertip="rxButton getSupertip" onAction="rxButton 


onAction" /> 
<menu id="rxMenu" > 


<button id="rxMenuTop" label=" 顶 部 " 


imageMso="FillUp" 


onAction="rxMenu onAction" /> 
<button id="rxMenuLeft" label=" 左 侧 " 


imageMso="FillLeft" 


onAction="rxMenu onAction" /> 
<button id="rxMenuRight" label=" 右 侧 " 


imageMso="FillRight" 
onAction="rxMenu onAction" /> 


<button id="rxMenuBottom" label=" 底 部 " 


imageMso="FillDown" 
onAction="rxMenu onAction" /> 
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</menu> 
</splitButton> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 


以 上 代码 中 , 第 1 行 语句 中 添加 了 onLoad 属性 , 该 属性 设置 系统 装载 自 定义 RibbonX 
时 执行 的 回调 函数 名 称 ， 需 要 在 VBE 中 编写 名 为 rxcustomUI onLoad 的 过 程 ， 具 体 代码 
如 下 : 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" 
onLoad="rxcustomUI onLoad"> 


<splitButton> 元 素 中 包含 1 个 按钮 (<button> 控 件 ) 和 1 个 菜单 (<menu> 控 件 ) ， 在 
<menu> 控 件 中 添加 4 个 按钮 控件 。<splitButton> 元 素 中 包含 的 按钮 用 来 显示 上 一 步 操作 过 
的 按钮 图 标 ， 在 下 拉 菜 单 中 选择 不 同 按钮 后 ， 该 按钮 将 自动 更 新 其 图 标 、 提 示 文 字 和 标签 
文字 ， 因 此 ， 使 用 了 getImage、getLabel、getSupertip 3 个 属性 分 别 设 置 3 个 回调 函数 ， 具 
体 代码 如 下 : 

<button id="rxButton" getImage="rxButton getImage" 


getLabel="rxButton getLabel" 
getsupertip="rxButton getSupertip" onAction="rxButton onAction" /> 


而 <menu> 控 件 包含 的 4 个 按钮 控件 只 需要 使 用 onAction 属性 设置 一 个 回调 函数 即 可 。 

(2) 将 上 述 XML 代码 添加 到 Excel 工作 短 中 后 ， 在 Excel 2007 中 打开 该 工作 秒 即 可 
看 到 自 定义 的 RibbonX 控件 ， 如 图 20-29 所 示 。 

(3) 按 组 合 键 Altt+F11 进入 VBE 环境 。 

(4) 向 工程 中 插入 一 个 模块 ， 在 模块 声明 部 分 输入 以 下 代码 声明 2 个 模块 变量 : 

Dim moRibbon Rs IribbonUI “' 模 块 变量 ， 获 取 对 Ribbon 的 引用 

Dim strl As String "模块 变量 ， 保 存 当 前 按钮 的 状态 

(5) 当 Excel 2007 装载 自 定义 RibbonX 时 ， 将 调用 onLoad 属性 设置 的 回调 函数 。 在 
程序 中 只 能 通过 该 回调 函数 获取 RibbonX 对 象 的 引用 。 有 具体 代码 如 下 : 

Sub rxcustomUI onLoad(ribbon As IRibbonUI) 


Set moRibbon = ribbon  ' 获 取 对 Ribbon 的 引用 
End sub 


(6) 编写 getImage 属性 设置 的 回调 函数 如 下 : 


Sub rxButton getImage (Control As IRibbonControl, ByRef returnedVal) 
If strl = "" Then strl = "Right" 
Select Case strl 


Case "Top" 

returnedVal = "FillUp" 
Case "Left" 

returnedVal = "FillLeft" 


. 410 。 


第 20 章 使 用 RibbonX 


Case "Right" 
returnedVal = "FillRight" 
Case "Bottom" 
returnedVal "FillDown" 
End Select 


End Sub 


回调 函数 的 参数 可 参见 本 章 20.2.4 节 中 的 介绍 。 以 上 代码 通过 模块 变量 strt1， 判 断 当 


前 使 用 过 的 按钮 ， 再 使 用 参数 returnedVal 返回 对 应 按钮 的 图 像 ID 〈 使 用 内 置 图 像 ) 。 


本 ， 


(7) 接着 使 用 类 似 的 方法 编写 getLabel 属性 设置 的 回调 函数 ， 用 来 修改 按钮 的 显示 文 
具体 代码 如 下 : 


Sub rxButton getLabel (ByRef Control As IRibbonControl, ByRef ReturnValue 
As Variant) 
TE Stri = "" Then strl = "Right" 
Select Case strl 
Case "Top" 
ReturnValue = "顶部 " 
Case "Left" 
ReturnValue = " 左 侧 " 
Case "Right" 
ReturnValue 
Case "Bottom" 
ReturnValue = "底部 " 
End Select 
End Sub 


(8) 编写 getSupertip 属性 设置 的 回调 函数 ,用 来 设置 按钮 的 提示 文字 , 具体 代码 如 下 : 


Sub rxButton getSupertip (ByRef Control Rs IRibbonControl, ByRef ReturnValue 
As Variant) 
IE strl = mn Then strl = "Right" 
Select Case strl 
Case "Top" 
ReturnValue = "移动 到 区 域 项 部 " 
Case "Left" 
ReturnValue = "移动 到 区 域 左 侧 " 
Case "Right" 
ReturnValue = "移动 到 区 域 右 侧 " 
Case "Bottom" 
ReturnValue = "移动 到 区 域 底部 " 
End Select 
End Sub 


(9) 当 用 户 单 击 元 素 <menu> 时 ， 执 行 onAction 属性 设置 的 回调 函数 ， 具 体 代码 如 下 : 


Sub rxMenu onAction(Control Rs IRibbonControl) 
strl = Mid$ (Control .ID, 7) 
moRibbon.InvalidateControl "rxButton" ' 更 新 按钮 控件 
DoGoto strl 

End Sub 


" 右 侧 " 
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以 上 代码 首先 获取 单 击 菜单 容器 中 的 控件 (为 按钮 控件 ) 的 ID， 因 ID 前 面 有 前 绥 
IXMenu， 所 以 使 用 Mid 函数 从 第 7 个 字符 开始 取 子 串 。 

然后 使 用 fribbonUI 对 象 的 mvalidateControl 方法 更 新 按钮 控件 。 这 时 ， 按 钮 控件 将 执 
行 getImage、getLabel、getSupertip 属性 设置 的 回调 函数 。 

最 后 调用 过 程 DoGoto 移动 单元 格 的 位 置 。 

(10) 过 程 DoGoto 的 VBA 代码 如 下 ， 根 据 参 数 的 值 确定 执行 的 具体 操作 。 


Private Sub DoGoto (ByVal sstyle Rs String) 
Select Case SStyle 
Case "Top" 
ActiveCell .End (x1lUp) .Select 
Case "Left" 
ActiveCell .End (xlToLeft) .Select 
Case "Right" 
ActiveCell .End (xlToRight) .Select 
Case "Bottom" 
ActiveCell .End (xlDown) .Select 
End Select 
End Sub 


(11) 单 击 <button> 控 件 时 ， 将 执行 onAction 属性 设置 的 回调 函数 ， 具 体 代码 如 下 : 


Sub rxButton onAction(Control As IRibbonControl) 
DoGoto strl 
End Sub 
代码 编写 完成 以 后 ， 在 工作 表 中 单 击 选择 一 个 单元 格 ， 再 单 击 【 跳 转 】 选 项 卡 【 单 元 
格 移动 】 组 中 的 按钮 ， 可 在 当前 区 域 中 快速 移动 单元 格 ， 定 位 到 区 域 的 边界 上 。 
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CommandBars 对 象 代表 Excel 应 用 程序 中 命令 栏 的 CommandBar 对 象 的 集合 。 
CommandBar 对 象 代 表 Excel 应 用 程序 中 的 一 个 命令 栏 ， 指 菜单 、 快 捷 菜 单 、 工 具 栏 等 。 
开发 人 员 可 创建 CommandBar 对 象 , 将 应 用 程序 的 功能 绑 定 到 这 些 对 象 上 , 方便 用 户 调用 。 

在 Excel 2003 及 以 前 版 本 中 ， 自 定义 菜单 或 工具 栏 将 以 常规 方式 显示 。 在 Excel 2007 
中 ， 使 用 功能 区 代替 了 菜单 和 工具 栏 。 用 户 自 定 义 的 菜单 、 工 具 栏 将 显示 在 【加 载 项 】 选 
项 卡 中 。 


21.1 _ CommandBar 对 象 


菜单 栏 和 工具 栏 是 用 户 与 Excel 进行 交互 的 工具 ， 在 Excel 中 ， 将 菜单 栏 、 工 具 栏 和 
快捷 菜单 合并 为 一 种 功能 ， 称 为 命令 栏 ， 都 放置 到 CommandBars 集合 中 。 


21.1.1 CommandBars 简介 
CommandBars 集合 包含 Excel 中 的 所 有 命令 栏 ， 即 是 所 有 CommandBar 对 象 的 集合 ， 


而 每 个 CommandBar 对 象 都 有 一 个 CommandBarControls 人 集合， 该 集合 由 多 个 
CommandBarControl 对 象 组 成 。 对 象 模型 结构 如 图 21-1 所 示 。 


CommandBarControls 


L CommandBarControl 


图 21-1 CommandBar 对 象 模型 


21.1.2 CommandBars 对 象 常用 属性 


口 ActiveMenuBar 属性 ， 返 回 一 个 CommandBar 对 象 。 该 对 象 代表 Excel 应 用 程序 中 
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的 活动 菜单 栏 。 

口 Count 属性 : 返回 Excel 应 用 程序 中 的 命令 栏 数量 。 

口 DisplayTooltips 属性 : 设置 是 否 显示 命令 栏 控件 的 提示 信息 ， 该 属性 若 为 True， 则 
显示 提示 信息 ， 若 为 False， 则 不 显示 提示 信息 。 

口 Item 属性 : 返回 CommandBars 集合 中 的 CommandBar 对 象 。 

口 LargeButtons 属性 : 若 为 True， 则 工具 栏 按钮 比 常规 尺寸 要 大 ， 若 为 False， 工 具 
栏 按钮 显示 为 常规 尺寸 。 


21.1.3 ” CommandBars 对 象 常用 方法 


使 用 CommandBars 集合 对 象 的 方法 可 完成 添加 命令 栏 ， 在 集合 中 查询 命令 按钮 等 
操作 。 


1. Add 方 法 
使 用 该 方法 新 建 一 个 命令 栏 并 添加 到 命令 栏 集合 , 返回 CommandBar 对 象 。 其 格式 为 : 


CommandBars.Add (Name, Position, MenuBar, Temporary) 

各 参数 的 含义 如 下 所 述 。 

口 Name: 为 新 命令 栏 的 名 称 。 如 果 忽 略 该 参数 ， 则 为 默认 名 称 〈 例 如 ，Custom 1) 。 

口 Position: 设置 新 命令 栏 的 位 置 或 类 型 。 

口 MenuBar: 值 为 True 时 ， 表 示 将 以 新 命令 栏 蔡 换 活动 菜单 栏 。 默 认 值 为 False。 

口 Temporary: 值 为 Tme 时 , 表示 使 新 命令 栏 成 为 临时 命令 栏 。 临 时 命令 栏 将 在 关闭 
容器 应 用 程序 时 删除 。 默 认 值 为 False。 

全 注意 : 对 CommandBars 对 象 集合 使 用 Add 方法 ， 是 添加 新 的 菜单 栏 或 工具 栏 ， 并 没有 

创建 具体 的 菜单 或 命令 按钮 。 


2. ExecuteMso 方 法 
该 方法 执行 由 idMso 参数 标识 的 控件 。 例 如 ， 以 下 代码 执行 【复制 】 按 钮 的 功能 ， 将 
活动 单元 格 的 内 容 复 制 到 剪贴 板 中 : 


Application.CommandBars .ExecuteMso ("Copy") 


3. GetlImageMso 方 法 

该 方法 返回 由 idMso 参数 标识 的 控件 图 像 (缩放 到 指定 的 宽度 和 高 度 尺 寸 ) 的 
IPictureDisp 对 象 。 其 语法 格式 如 下 : 

表达 式 .GetImageMso (idMso，Width，Height) 

各 参数 的 含义 如 下 所 述 。 

口 idMso: 控件 的 标识 符 。 
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口 Width: 图 像 的 宽度 。 

口 Height: 图 像 的 高 度 。 

例如 ， 以 下 代码 将 【粘贴 】 按 钮 的 图 像 设 置 到 工作 表 Sheet2 中 的 OLE 对 象 中 (如 插 
入 在 工作 表 中 的 【图 像 】 或 【命令 按钮 】 等 ActiveX 控件 ) : 


Set Worksheets ("sheet2") .OLEObjects(1) .Object.Picture = 
Application.CommandBars.GetImageMso ("Paste", 32, 32) 


21.1.4 CommandBar 对 象 常用 属性 


CommandBar 对 象 是 CommandBars 集合 中 的 成 员 , 用 CommandBars(index) 可 返回 一 个 
CommandBar 对 象 ， 该 对 象 对 应 到 具体 的 某 个 菜单 栏 或 工具 栏 。 以 下 是 CommandBar 对 象 
的 常用 属性 。 

口 Name 属性 : 为 对 象 的 名 称 。 对 于 Excel 的 内 惫 命令 栏 ，Name 属性 返回 该 命令 栏 

的 英文 名 称 。 另 外 ， 用 NameLocal 属性 可 返回 其 本 地 名 称 。 

口 NameLocal 属性 : 返回 内 置 命令 栏 的 本 地 名 称 ， 无 论 有 效 命令 栏 列表 显示 在 容器 
应 用 程序 的 哪个 位 置 ， 内 置 命令 栏 的 本 地 名 都 将 显示 在 标题 栏 中 。 如 果 改变 了 一 
个 自 定义 命令 栏 的 LocalName 属性 值 ， 那 么 该 命令 栏 的 Name 属性 值 也 将 改变 ， 
反之 亦 然 。 

口 Controls 属性 : 返回 一 个 CommandBarControls 对 象 。 该 对 象 代表 指定 命令 栏 或 弹 

出 式 控 件 中 的 所 有 控件 集合 。 

口 Enabled 属性 : 设置 命令 栏 是 否 要 用 。 如 果 将 该 属性 设置 为 True， 那 么 命令 栏 的 名 
称 将 出 现在 有 效 命令 栏 列表 中 。 

口 Type 属性 : 返回 命令 栏 的 类 型 。 可 设置 为 3 个 值 : msoBarTypeNormal 〈 值 为 0) 
表示 工具 栏 ，msoBarTypeMenuBar ( 值 为 1) 表示 菜单 栏 ， msoBarTypePopup 〈 值 
为 2) 表示 快捷 菜单 。 

口 Visible 属性 : 设置 命令 栏 是 否 可 见 。 值 为 True 时 ， 表 示 可 见 ， 值 为 False 时 ， 则 
表示 不 可 见 。 新 建 自 定义 命令 栏 的 Visible 属性 的 默认 值 为 False。 只 有 先 将 命令 栏 
的 Enabled 属性 设置 为 True， 才 可 将 其 Visible 属性 设置 为 True。 


21.1.5 CommandBar 对 象 常 用 方法 


CommandBar 对 象 提供 了 4 个 方法 ， 可 分 别 用 来 删除 命令 栏 、 查 找 指定 控件 、 重 置 命 
令 栏 、 显 示 快 捷 菜 单 等 操作 。 


1. Delete 方 法 
使 用 该 方法 从 集合 中 删除 CommandBar 对 象 。 例 如 ， 以 下 命令 将 删除 所 有 不 可 见 的 自 


foundFlag = False 
delBars = 0 
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For Each bar In CommandBars 
IE (bar.BuiltIn = False) And (bar.Visible = False) Then 
bar .Delete 
foundFlag = True 
delBars = delBars + 1 
End If 
Next bar 
If Not foundFlag Then 
MsgBox "没有 自 定义 命令 栏 被 删除 ! " 
Else 
MsgBox " 共 删 除 " & delBars & " 个 自 定义 命令 栏 ! " 
End If 


2. FindControl 方 法 


使 用 该 方法 获取 一 个 符合 指定 条 件 的 CommandBarControl 对 象 。 其 语法 格式 如 下 : 
表达 式 .Findacontrol (Type, Id, Tag, Visible, Recursive) 


各 参数 的 含义 如 下 所 述 。 

口 Type: 要 查找 控件 的 类 型 。 

口 ID: 要 查找 控件 的 标识 符 。 

口 Tag: 要 查找 控件 的 标记 值 。 

口 Visible: 该 参数 如 果 为 True， 则 表示 只 能 在 搜索 中 包含 可 见 的 命令 栏 控 件 。 默 认 
值 为 False。 可见 的 命令 栏 包括 所 有 可 见 的 工具 栏 和 执行 FindControl 方法 时 打开 的 


所 有 菜单 。 
口 Recursive: 该 参数 如 果 为 Tme， 则 表示 将 在 命令 栏 及 其 所 有 弹出 式 子 工具 栏 中 
查找 。 


3. Reset 方 法 
该 方法 将 内 置 命令 栏 重 置 为 其 默认 配置 。 
4. ShowPopup 方 法 


该 方法 将 指定 的 命令 栏 作为 快捷 菜单 ， 在 指定 坐标 或 当前 光标 位 置 显示 。 
21.1.6” 列 出 命令 栏 


通过 遍历 CommandBars 集合 对 象 可 显示 出 Excel 内 置 的 命令 栏 。 具 体 代 码 如 下 : 
Sub 显示 所 有 命令 栏 () 


Dim cBar As CommandBar, i Rs Integer 
With Worksheets ("命令 栏 ") 
,1 
For Each cBar In CommandBars 
.Cells(i, 1) = cBar.Index 
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.Cells (i, 2) = cBar.Name 
.Cells(i, 3) = cBar.NameLocal 
Select Case cBar.Type 
Case msoBarTypeNormal 
-Cells (i，4) = "工具 栏 " 
Case msoBarTypeMenuBar 
-Cells (i，4) = "菜单 栏 " 
Case msoBarTypePopup 
-Cells (i，4) = "快捷 菜单 " 
End Select 
3 
Next 
-Cel1s.Columns .RutoFit 
End With 
End Sub 


执行 以 上 代码 , 在 工作 表 “ 命 令 栏 中 可 看 到 Excel 系统 所 有 命令 栏 的 信息 , 如 图 21-2 
所 示 。 


辆 硬 朋 Command5arsslsm 


2 工 lorksheet Renu Bar 
3 2Chart Nenu Bar 
4 3 WordArt 
5 4 Picture 
65Draving Canvas 
了 GOrganization Chart 
Dlagran 
9 8Ink Drawlng and Yriting 
1 9Ink Arnotations 
ll 10Layout 
12 1 select 
13 12Standard 
14 13Fornatting 
15 14 PivotTahle 
M4 机 | 前 二 在 Sheeta Sheot9 97 


图 21-2 Excel 所 有 命令 栏 


21.2 CommandBarControl 对 象 


CommandBarControl 对 象 为 具体 的 命令 按钮 或 菜单 项 , 该 对 象 是 CommandBarControls 
集合 中 的 成 员 。 每 个 CommandBar 对 象 包含 一 个 CommandBarControls 集合 对 象 。 


21.2.1 CommandBarControls 集合 对 象 


使 用 CommandBar 对 象 的 Controls 属性 ， 可 获取 一 个 代表 命令 栏 上 的 所 有 控件 的 
CommandBarControls 集合 对 象 。 

CommandBarControls 集合 对 象 具有 通用 集合 对 象 的 属性 和 方法 。 通 过 Add 方法 可 新 
建 一 个 CommandBarControl 对 象 ， 并 将 其 添加 到 指定 命令 栏 上 的 控件 集合 中 。 语 法 格式 
如 下 : 

expression.RAdd (Type，Ida，Parameter，Before，Temporary) 

b 
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各 参数 的 含义 如 下 所 述 。 


口 


Type: 设置 添加 到 指定 命令 栏 的 控件 类 型 。 可 以 为 下 列 MsoControlType 常量 之 一 : 
msoControlButton、msoControlEdit、msoControlDropdown、msoControlComboBox 
或 msoControlPopup。 

Id: 用 来 指定 内 置 控件 的 整数 。 如 果 该 参数 为 1， 或 者 忽略 该 参数 ， 将 在 命令 栏 中 
添加 一 个 空 的 指定 类 型 的 自 定义 控件 。 

Parameter: 设置 参数 信息 ， 对 于 内 置 控件 ， 该 参数 用 于 容器 应 用 程序 运行 命令 。 

对 于 自 定 义 控件 ， 可 以 使 用 该 参数 向 VBA 过 程 传递 信息 ， 或 用 其 存储 控件 信息 。 
Before: 设置 位 置信 息 ， 表 示 新 控件 在 命令 栏 上 位 置 的 数字 ， 新 控件 将 插入 到 该 位 
置 控件 之 前 。 如 果 忽略 该 参数 ， 控 件 将 添加 到 指定 命令 栏 的 末端 。 

Temporary: 值 为 True 时 ， 表 示 将 使 新 命令 栏 成 为 临时 命令 栏 。 临 时 命令 栏 在 关闭 
容器 应 用 程序 时 删除 ， 其 默认 值 为 False。 


21.2.2 CommandBarControl 对 象 


CommandBarControl 对 象 为 具体 的 命令 按钮 或 菜单 项 ,对 象 是 CommandBarControls 集 
合 中 的 成 员 。 下 面 简单 介绍 CommandBarControl 对 象 的 常用 属性 和 方法 。 


本 


OOOOOOOOO 


品目: 自 


OOOODO 
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BeginGroup 属性 : 设置 为 True 时 会 在 控件 前 显示 一 个 分 隔 条 ; 

BuiltIn 属性 : 若 控件 为 内 置 控 件 ， 则 该 属性 的 值 为 True; 

Caption 属性 : 为 控件 上 显示 的 文本 ; 

Enabled 属性 : 设置 为 True 时 可 以 单 击 该 控件 ; 

FaceID 属性 : 代表 图 形 图 像 的 数字 ; 

ID 属性 : 代表 内 置 控件 的 代码 编号 ; 

OnAction 属性 : 指定 单 击 控件 时 执行 的 VBA 过 程 名 称 ; 

State 属性 : 确定 控件 是 否 呈 现 按 下 状态 ， 仅 用 于 CommandBarButton 控件 ; 
Style 属性 : 确定 控件 显示 时 是 否 包含 标题 或 图 像 ， 只 能 用 于 CommandBarButton 
控件 和 CommandBarComboBox 控件 ; 

ToolTipText 属性 : 控件 的 提示 文本 ， 当 鼠标 移动 到 控件 上 方 时 呈现 ; 

Type 属性 : 表示 控件 类 型 。 


. CommandBarControl 对 象 常用 方法 


Copy 方法 : 将 一 个 命令 栏 控件 复制 到 已 有 的 命令 栏 中 ; 

Delete 方法 : 将 CommandBarControl 对 象 从 其 集合 中 删除 ; 

Execute 方法 : 运行 分 配给 指定 CommandBarControl 控件 的 过 程 或 内 置 命 令 ; 
Move 方法 : 将 指定 的 CommandBarControl 移动 到 已 有 的 命令 栏 ; 

SetFocus 方法 : 将 键盘 的 焦点 移 到 指定 CommandBarControl。 如果 该 控件 被 禁用 或 


第 21 章 使 用 CommandBars 


不 可 见 ， 那 么 此 方法 将 失败 。 
21.2.3 ” 列 出 内 置 命令 栏 控件 


通过 CommandBars 集合 对 象 和 CommandBarControls 集合 对 象 可 遍历 Excel 内 署 的 命 
令 栏 控件 。 具 体 代 码 如 下 : 


Sub 显示 命令 栏 控件 () 
Dim cb As CommandBar, cbc Rs CommandBarControl 
Dim i Rs Long, j Rs Long 
With Worksheets ("命令 栏 控 件 ") 


i=2 
For Each cb In CommandBars ! 循 环 处 理 每 个 命令 栏 
Cells(i, 2) = cb.Name ' 获 取 命 令 栏 名 称 


.Cells(i, 3) = cb.NameLocal ' 获 取 命 令 栏 中 文 名 称 

For Each cbc In cb.Controls "循环 处 理 每 个 命令 栏 中 的 控件 按钮 
:Cells(i, 1) = cbc.ID "控件 按钮 ID 
-Cells(i，4) = cbc.Caption ' 控 件 按钮 显示 文字 
FE 


Next 
Next 
:Cells.Columns.AutoFit 
End With 
End sub 
运行 bj 上 :OT 由 四 元 让 和 人 本 位 二 < 
运行 以 上 代码 ， 将 在 工作 表 中 显示 内 置 按钮 控件 的 信息 ， 如 图 21-3 所 示 。 
| 国 要 员 CommandBarsxiem -=a 
— We 3 c D 
1 命 信 控件 JD 命令 蓄 对 象 各 命令 栏 中 文 各 命令 入 控件 最 东 各 
2 30002 Yorksheet Wenu Bar 工作 表 荣 单 栏 文件 (47) 
3 30003 EI] 
和 S000¢ 视图 (&y) 
5 30005 插入 他 I) 
6 30006 格式 (ko) 
了 30007 工具 ChT) 
a 30011 数据 (aD) 
9 30083 操作 (tcC) 
10 30009 富 口 人 8) 
1 30010 帮助 Cl) 
12 30002 Chart Meru Bar 图 表 荧 单 栏 。” 文件 (47) 
13 30003 Er 
1¢ 30004 视 轩 (ty) 
后 30005 插入 (C&T) 
16 30006 格式 (ko) 
17 30007 工具 (4T) 
18 30022 画素 thC) 
19 30083 操作 (ac) 
20 30009 宣 口 人 W) 
2 3o010 可 助 C&D 
22 1031 Wordart 艺术 字 艺术 字 (emD。 
23 20%4 编 转 文 字 G&2)... 


21-3 ”内 置 命 令 按 钮 控件 


21.3” 自 定义 菜单 


Excel 2003 及 以 前 版 本 采用 菜单 驱动 ， 用 户 通 过 菜单 命令 来 完成 大 部 分 的 工作 。 开 发 
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人 员 还 可 使 用 VBA 代码 自 定 义 菜单 。 在 Excel 2007 中 ， 除 快捷 菜单 能 显示 外 ， 其 余 菜 单 
栏 都 是 隐藏 状态 。 为 了 和 以 前 版 本 兼容 ， 可 使 用 VBA 代码 访问 这 些 菜单 栏 。 
21.3.1 菜单 的 构成 


Excel 有 两 个 内 置 的 菜单 栏 : 
口 工作 表 菜 单 栏 ， 对 象 名 为 Worksheet Menu Bar， 如 图 21-4 所 示 为 工作 表 菜 单 栏 。 
口 图 表 菜 单 栏 ， 对 象 名 为 Chart Menu Bar。 


soft Excel 一 Bookl 


入 贴画 (C) 
来 自 文件 中 
来 自 扫 擅 仪 或 轨 相 机 G) 


Wy » HN Sheetl/(Sheet2/5heet3/ 
就 绪 


21-4 Excel 2003 的 菜单 

菜单 栏 属 于 CommandBars 集合 ， 可 以 通过 菜单 栏 名 称 或 索引 值 对 其 进行 引用 ， 例 如 ， 
以 下 代码 可 引用 工作 表 菜 单 : 

CommandBars ("Worksheet Menu Bar") 

或 : 

CommandBars (1) 

菜单 栏 中 的 每 一 个 下 拉 菜 单 ( 如 【视图 】、【 插 入 】 等 ) 为 一 个 CommandBarControl 
对 象 ， 下 拉 菜 单 中 的 菜单 项 (如 【插入 】 下 拉 菜 单 中 的 【单元 格 】 等 ) 也 是 一 个 
CommandBarControl 对 象 ， 通 过 属性 CommandBarControl 对 象 的 Type 属性 来 区 分 是 下 拉 
菜单 ， 还 是 菜单 项 。 将 Type 属性 设置 为 以 下 值 即 可 。 

口 msoControlButton: 值 为 1， 表示 对 象 为 菜单 项 ; 

口 msoControlPopup: 值 为 10， 表 示 对 象 为 下 拉 菜 单 。 


21.3.2 ”创建 新 菜单 


使 用 VBA 代码 可 以 方便 地 向 Excel 菜单 栏 中 添加 新 菜单 。 使 用 CommandBarControls 
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集合 对 象 的 Add 方法 ， 可 在 菜单 中 添加 新 的 菜单 。Add 方法 可 以 指定 控件 的 类 型 、 内 置 控 
件 的 D 号 、 位 置 。 还 可 以 指定 新 添加 的 菜单 是 否 为 一 个 临时 控件 ， 如 果 是 一 个 临时 控件 ， 
则 在 关闭 Excel 时 会 自动 删除 该 菜单 。 


在 新 建 菜单 时 ， 
菜单 。 


可 以 指定 新 菜单 的 位 置 。 如 果 不 指定 ， 则 会 在 菜单 工具 栏 末尾 添加 新 


一 般 定 义 一 个 对 象 变量 ， 用 来 保存 Add 方法 创建 好 的 新 菜单 ， 在 程序 中 即 可 使 用 该 对 
象 变量 设置 菜单 的 各 种 属性 。 使 用 Caption 属性 指定 新 菜单 的 名 称 ， 使 用 OnAction 属性 指 
定单 击 菜单 后 的 行为 。 

为 了 避免 在 菜单 栏 中 重复 加 入 同样 的 自 定义 菜单 ， 在 新 建 菜 单 前 一 般 先 使 用 
FindControl 方法 查找 ， 如 果 已 存在 该 菜单 ， 可 将 其 删除 。 

下 面 的 实例 在 工作 表 菜 单 栏 右 侧 增加 一 个 下 拉 菜 单 , 在 该 下 拉 菜 单 中 添加 4 个 菜单 项 ， 


分 别 用 来 选择 指定 的 


在 Excel 2007 中 


区 域 。 在 Excel 2003 中 ， 自 定义 菜单 显示 如 图 21-5 所 示 效 果 。 


TT 7 
- 区 域 。 | 


图 21-5 Excel 2003 中 显示 自 定义 菜单 
， 自 定义 菜单 将 显示 在 【加 载 项 】 选 项 卡 中 ， 如 图 21-6 所 示 。 


(二 本 四 = Microsoft Excel Cc 
| 
[se 
| 使 用 区 域 

当前 行 
[二 当前 列 | 


图 21-6 Excel 2007 中 显示 自 定义 菜单 


创建 图 21-5 所 示 自 定义 菜单 的 具体 步骤 如 下 : 
(1) 按 组 合 键 Alt+F11 切换 到 VBE 环境 。 


(2) 向 工程 中 增 


Sub AddMenu() 


加 一 个 模块 ， 在 模块 中 编写 以 下 代码 ， 创 建 自 定义 菜单 : 


Dim myMenubar As CommandBar ' 声 明 变 量 ， 保 存 工作 表 菜 单 栏 

Dim myMenu As CommandBarControl 

Dim myMenuitem As CommandBarControl 

Set myMenubar = CommandBars (1) ' 获 取 工 作 表 菜单 栏 

Set myMenu = myMenubar.FindControl (Tag:="mySelect") 

If Not (myMenu Is Nothing) Then ' 存 在 该 菜单 
myMenu.Delete ' 删 除 该 菜单 

End If 
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Set myMenu = myMenubar .Controls.RAdd (Type:=msoCcontrolPopup) 
With myMenu 


-Caption = "选择 区 域 " "设置 显示 文本 
-Tag = "mySelect" "设置 一 个 标记 ， 以 方便 查找 
End With 


Set myMenuitem = myMenu.Controls.Add (Type:=msoControlButton) 
With myMenuitem 


.Caption = "当前 区 域 " 


.Tag = "SelectCR" ' 设 置 标记 
.OnAction = "mnu CurrentRegion" ' 设 置 选择 该 菜单 时 调用 的 子 过 程 
End With 


Set myMenuitem = myMenu.Controls.Add(Type:=msoControlButton) 
With myMenuitem 

.Caption = "使 用 区 域 " 

.Tag = "SelectUR" 

.OnAction = "mnu UsedRange" 
End With 


Set myMenuitem = myMenu.Controls.Add(Type:=msoControlButton) 
With myMenuitem 

.Caption = "当前 行 " 

.Tag = "SelectRow" 

.OnAction = "mnu Row" 
End With 


Set myMenuitem = myMenu.Controls.Add(Type:=msoControlButton) 
With myMenuitem 
.Caption = "当前 列 " 
.Tag = "SelectCol" 
.OnAction = "mnu Column" 
End With 
End sub 


以 上 代码 首先 获取 工作 表 菜 单 栏 的 引用 , 再 使 用 FindControl 方法 查找 当前 菜单 栏 中 是 
否 已 有 标记 为 mySelect 的 控件 创建 菜单 时 不 方便 指定 其 ID 值 ， 可 通过 设置 Tag 值 来 识 
别 按钮 控件 ) ， 若 存在 该 控件 就 调用 Delete 方法 将 其 删除 ， 然 后 使 用 Add 方法 创建 新 的 下 
拉 菜 单 ， 最 后 再 在 该 下 拉 菜 单 中 创建 4 个 菜单 项 ， 分 别 为 这 4 个 菜单 项 的 名 称 、 调 用 的 子 
(3) 为 每 个 菜单 项 编写 事件 处 理子 过 程 ,用 来 选择 相应 的 单元 格 区 域 。 具体 代 码 如 下 : 


Sub mnu CurrentRegion() ' 选 择 当 前 区 域 
ActiveCell .CurrentRegion.Select 

End Sub 

Sub mnu UsedRange() ' 选 择 工作 表 使 用 区 域 
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On Error Resume Next 
ActiveSheet .UsedRange.Select 

End Sub 

Sub mnu Row() ' 选 择 当前 单元 格 所 在 行 
ActiveCell .EntireRow.Select 

End Sub 

Sub mnu Column() ' 当 前 单元 格 所 在 列 
ActiveCell .EntireColumn.Select 

End Sub 


编写 好 以 上 代码 后 ， 执 行 AddMenu 子 过 程 ， 即 可 创建 “选择 区 域 ” 下 拉 菜 单 。 激 活 
一 个 工作 表 ， 选 择 菜 单 中 的 命令 就 可 选择 指定 的 区 域 。 

(4) 若 需要 Excel 工作 竹 打 开 时 就 将 自 定义 菜单 添加 到 菜单 栏 中 , 可 以 在 工作 短 的 Open 
事件 中 编写 以 下 代码 : 

Private Sub Workbook Open() 


AddMenu 
End Sub 


(5) 在 关闭 工作 敌 之 前 ， 应 该 将 自 定义 菜单 删除 ， 以 免 自 定义 菜单 出 现在 以 后 创建 的 
Excel 工作 适中 ， 具 体 代码 如 下 : 


Private Sub Workbook BeforeClose(Cancel Rs Boolean) 
On Error Resume Next 
Set myMenu = CommandBars(1) .FindControl (Tag:="mySelect") 


If Not (myMenu Is Nothing) Then ' 存 在 该 菜单 
myMenu.Delete "删除 该 菜单 
End If 
End Sub 


21.4 自 定义 快捷 菜单 


Windows 操作 系统 的 一 个 便捷 功能 就 是 提供 了 功能 强大 的 右键 快捷 菜单 。 在 任何 一 个 
对 象 上 按 鼠 标 右键 ， 就 会 弹出 一 个 与 所 选 当前 对 象 相关 的 菜单 ， 菜 单 中 列 出 了 一 组 针对 当 
前 对 象 的 操作 。Excel 应 用 程序 提供 了 很 多 内 置 快捷 菜单 ， 以 方便 用 户 编辑 操作 工作 表 中 
的 数据 ， 开 发 人 员 还 可 根据 需要 自 定义 快捷 菜单 。 


21.4.1 内 置 快捷 菜单 


Excel 的 快捷 菜单 有 很 多 ， 在 不 同 的 对 象 上 单 击 鼠标 右键 将 弹出 不 同 的 快捷 菜单 列表 。 
例如 ， 在 单元 格 上 单 击 鼠标 右键 弹出 的 快捷 菜单 如 图 21-7 所 示 。 在 工作 表 列 标签 上 单 击 
鼠标 右键 弹出 的 快捷 菜单 如 图 21-8 所 示 ， 在 行 标签 上 单 击 右键 弹出 的 快捷 菜单 如 图 21-9 
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图 21-7 单元 格 快捷 菜单 图 21-8 ” 列 标签 快捷 菜单 图 21-9 行 标签 快捷 菜单 


使 用 以 下 命令 可 列 出 Excel 2007 中 内 置 的 快捷 菜单 : 


Sub 显示 快捷 菜单 () 
Dim cb As CommandBar, cbc Rs CommandBarControl 
Dim i Rs Long, j Rs Long 
With Worksheets ("内 置 快捷 菜单 ") 


i=2 
For Each cb In CommandBars ' 循 环 处 理 每 个 命令 栏 
IE cb.Type = msoBarTypePopup Then ' 处 理 快捷 菜单 
.Cells(i, 2) = cb.Name ' 获 取 命 令 栏 名 称 
.Cells(i, 3) = cb.NameLocal ' 获 取 命 令 栏 中 文 名 称 
For Each cbc In cb.Controls ! 循 环 处 理 每 个 命令 栏 中 的 控件 按钮 
‘Cells(i, 1) = cbc.ID "控件 按钮 ID 
.Cells(i, 4) = cbc.Caption "控件 按钮 显示 文字 
i=i+1 
Next 
End If 
Next 
.Cells.Columns.AutoFit 
End With 
End Sub 


执行 以 上 代码 , 在 工作 表 “ 内 置 快捷 菜单 ”中 将 显示 快捷 菜单 的 相关 信息 ， 如 图 21-10 
所 示 ， 在 图 中 显示 了 “单元 格 ” 快 捷 菜单 中 的 命令 。 


到 站 a 
单元 格 盘 切 T) 

复制 (acC) 

粘贴 AP) 

远 择 性 粘贴 (ky7). 

A 《hk 


显示 /中 过 批 注 (&O) 

设 种 单元 档 格 式 (8F). .。 
从 下 拉 列 表 中 选择 (tx)- 
显示 拼音 字段 (hs) 
命名 单元 格 区 域 (6Bj.，- 


复制 (&C》 


图 21-10 内置 快捷 菜单 
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21.4.2 ”创建 快捷 菜单 


除了 Excel 内 置 的 快捷 菜单 外 ， 用 户 可 根据 需要 创建 新 的 快捷 菜单 。 在 工作 表 中 拖 动 
选择 一 个 单元 格 区 域 ， 右 击 将 弹出 如 图 21-11 所 示 的 自 定义 快捷 菜单 。 下 面 演示 创建 该 快 
捷 菜 单 的 方法 。 


国 让 定义 快速 半音 xjs -oo 
| 本 1 AR 一 C D 
1 菏 单 ID 荣 单 名 中 文 名 某 单 项 
2 6131 Layoul 版 式 标准 (&S) 
两 边 悬 挂 (kB) 
左 最 挂 (&L) 
右 悬 挂 (kR) 
自动 版 式 (&A) 
级 别 (&L) 
8 | 6073 | 加 二 分 支 (&B) 
9 | 6074 a 所 有 助手 (&&) 
0 6075 所 有 连接 线 (&C) 


1 
11 9pn Piyatcpart 二 cm 勒 拭 话 福 卫 
DT 丰 区 全 和 王 et Shests 


图 21-11 自 定义 快捷 菜单 
(1) 在 VBE 中 插入 一 个 模块 ， 在 模块 中 编写 创建 快捷 菜单 的 代码 ， 具 体 代码 如 下 : 


Sub CreatePopup () 
Dim myBar As CommandBar 
Dim myItem Rs CommandBarControl 


DeletePopup '" 若 已 存在 该 菜单 , 则 删除 


Set myBar = CommandBars.Add _ 
(Name:="StatPopup", Position:=msoBarPopup, Temporary:=False) 


' 创 建 快捷 菜单 栏 
Set myItem = myBar.Controls.Add (Type:=msoControlButton) 
"添加 菜单 项 
With myItem 
.Caption = "单元 格 数量 " "菜单 名 字 
-OnRction = "pm Count" "调用 过 程 
.FaceId = 800 ' 设 置 图 标 


End With 


Set myItem = myBar.Controls.Add (Type:=msoControlButton) 
With myItem 

.Caption = " 求 和 " 

-OnRction = "pm Sum" 

-FaceId = 226 
End With 


Set myItem = myBar.Controls.Add (Type:=msoControlButton) 
With myItem 
.Caption = "平均 值 " 
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-OnRction = "pm Avg" 
-FaceId = 401 
End With 


Set myItem = myBar.Controls.Add (Type:=msoControlButton) 
With myItem 
.Caption = "空白 单元 格 数量 " 
.OnAction = "pm BlankCell" 
:Faceld = 798 
End With 
End sub 


以 上 代码 首先 调用 DeletePopup 过 程 删除 已 经 存在 的 名 为 StatPopup 的 快捷 菜单 。 再 使 
用 以 下 语句 创建 一 个 新 的 快捷 菜单 栏 : 


Set myBar = CommandBars.Add _ 
(Name:="StatPopup", Position:=msoBarPopup, Temporary:=False) 


在 Add 方法 中 ,设置 Name 参数 为 StatPopup、Position 参数 为 msoBarPopup 表示 创建 
弹出 式 快捷 菜单 。 

最 后 向 新 建 的 快捷 菜单 中 添加 4 个 菜单 项 ， 并 分 别 设置 菜单 项 的 名 称 和 调用 的 过 程 。 

(2) 上 面 的 代码 调用 DeletePopup 过 程 删除 已 存在 的 名 为 StatPopup 的 快捷 菜单 ， 具体 
代码 如 下 : 

Sub DeletePopup() "删除 快捷 菜单 


On Error Resume Next 
CommandBars ("StatPopup") .Delete 
End sub 


(3) 接着 编写 各 菜单 项 调用 的 过 程 ， 具 体 代码 如 下 : 


Sub pm Count() 

MsgBox "选择 区 域 共 有 " & selection.Cells.Count & "个 单元 格 。" 
End Sub 
Sub pm sum() 

Dim rngl As Range, t As Long 

For Each rngl In Selection.Cells 

上 = 七 + Vall(rngl.Value) 

Next 

MsgBox "选择 区 域 数 值 和 为 : " & 七 
End Sub 
Sub pm Avg() 

Dim rngl As Range, t As Long 

For Each rngl In Selection.Cells 

t= t + Vall(rngl.Value) 

Next 

MsgBox "选择 区 域 平 均值 为 : " & 上 / selection.Cells.Count 
End Sub 
Sub pm BlankCell () 

Dim rngl As Range, t As Long 

For Each rngl In Selection.Cells 
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IE IsEmpty(rngl.Value) Then t =t+1 

Next 

MsgBox "选择 区 域 空白 单元 格 有 " & 上 & "个 。" 
End Sub 
通过 以 上 代码 ， 就 完成 了 快捷 菜单 的 定义 过 程 。 
(4) 快捷 菜单 在 用 户 单 击 鼠 标 右 键 时 将 弹出 ， 因 此 ， 在 需要 使 用 自 定义 快捷 菜单 的 区 

域 捕获 单 击 右键 的 事件 ， 在 该 事件 中 编写 代码 ， 显 示 出 快捷 菜单。 

Private Sub Worksheet BeforeRightClick (ByVal Target As Excel1.Range，Cancel 
As Boolean) 

On Error Resume Next 

Set cb = CommandBars ("StatPopup") 

If Err.Number <> 0 Then CreatePopup ' 创 建 快捷 菜单 

CommandBars ("StatPopup") .ShowPopup ' 显 示 快 捷 菜 单 


Cancel = True ' 禁 止 显 示 内 置 快捷 菜单 
End Sub 


在 以 上 代码 中 ， 通 过 将 快捷 菜单 StatPopup 赋值 给 一 个 对 象 变量 的 操作 ， 判 断 该 快捷 
菜单 是 否 存 在 。 若 该 快捷 菜单 不 存在 ， 将 产生 错误 。 通 过 On Error 语句 捕获 错误 ， 调 用 
CreatePopup 子 过 程 创建 菜单 ， 然 后 使 用 ShowPopup 方法 将 快捷 菜单 显示 出 来 。 

最 后 将 Cancel 参数 设置 为 True， 确 保 不 显示 正常 情况 下 的 快捷 菜单 。 


21.4.3 ”添加 菜单 项 到 内 置 快捷 菜单 


在 上 节 的 代码 中 , 开发 人 员 新 建 一 个 快捷 菜单 , 在 合适 的 区 域 取代 系统 内 置 快捷 菜单 。 
在 更 多 的 情况 下 ， 只 需要 在 已 有 内 置 快捷 菜单 中 添加 一 些 菜单 项 ， 可 达到 增加 新 功能 的 同 
时 ， 也 能 使 用 系统 原 有 功能 的 目的 。 

如 图 21-12 所 示 ， 在 单元 格 、 列 标签 和 行 标签 上 分 别 单 击 鼠 标 右键 ， 可 看 到 分 别 新 增 
了 对 应 的 快捷 菜单 项 。 


% wm 

sO 

BB 5 
过 性 村 和 00_ 


图 21-12 添加 菜单 项 


要 在 已 有 快捷 菜单 中 添加 菜单 项 ， 首 先 需 要 获取 对 内 置 快捷 菜单 的 引用 。 各 快捷 菜单 
的 名 称 可 从 图 21-10 所 示 工 作 表 中 查 得 。 例 如 ， 单 元 格 快捷 菜单 的 名 称 为 Cell， 列 标签 快 
捷 菜 单 的 名 称 为 Column， 行 标签 快捷 菜单 的 名 称 为 Row。 

若 要 向 这 些 快捷 菜单 中 添加 菜单 项 ， 首 先 需 获取 对 应 菜单 的 引用 ， 再 使 用 以 下 代码 添 
加 菜单 项 : 


Application.CommandBars ("Cell") .Controls.Add 
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下 面 列 出 具体 的 步骤 。 
(1) 在 工作 筹 的 Open 事件 中 编写 以 下 VBA 代码 : 


Private Sub Workbook open() 
Dim cbcs As CommandBarControls, cbc Rs CommandBarControl 
Set cbcs = Application.CommandBars ("Cell") .Controls 
Set cbc = cbcs.Add (Type:=msoControlButton, before:=1, temporary:=True) 
With cbc 
.Caption = "单元 格 快捷 菜单 (新 增 ) " 
-OnAction = "cellmenul sub" 
-Tag = "cellmenul" 
End With 
Set cbcs = Application.CommandBars ("Column") .Controls 
Set cbc = cbcs.Add (Type:=msoControlButton, before:=1, temporary:=True) 
With cbc 
.Caption = " 列 标签 快捷 菜单 〈 新 增 ) " 
.OnAction = "colmenul sub" 
-Tag = "colmenul" 
End With 
Set cbcs = Application.CommandBars ("Row") .Controls 
Set cbc = cbcs.Add(Type:=msoControlButton, before:=1, temporary:=True) 
With cbc 
.Caption = " 行 标签 快捷 菜单 〈 新 增 ) " 
.OnAction = "rowmenul sub" 
.Tag = "rowmenul" 
End With 
End Sub 


以 上 代码 首先 获取 单元 格 的 快捷 菜单 , 接着 使 用 Add 方法 向 单元 格 快捷 菜单 中 添加 自 
定义 菜单 项 。 行 标签 和 列 标签 快捷 菜单 的 代码 依 此 类 似 。 
(2) 关闭 工作 筹 之 前 ， 删 除 上 步 新 增 的 菜单 项 ， 具 体 代 码 如 下 : 
Private Sub Workbook_Beforeclose (Cancel As Boolean)  ' 关 闭 工 作 簿 前 删除 新 增 
的 快捷 菜单 
Dim cbc Rs CommandBarControl 
For Each cbc In APPlLication.CommandBars ("Cel1") .Controls 
If cbc.Tag = "cellmenul" Then cbc.Delete 
Next 
For Each cbc In RARpPlication.CommandBars ("Column") .Controls 
IE cbc.Tag = "colmenul" Then cbc.Delete 
Next 
For Each cbc In Application.CommandBars ("Row") .Controls 
IE cbc.Tag = "rowmenul" Then cbc.Delete 
Next 
End Sub 


(3) 在 VBE 中 插入 一 个 模块 , 分 别 编写 选 择 菜 单项 时 调用 的 子 过 程 。 本 例 只 是 显示 一 
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个 提示 信息 对 话 框 ， 实 际 系统 中 应 将 选择 菜单 要 执行 的 代码 放 在 此 处 。 


Sub cellmenul sub() 

MsgBox "调用 新 增加 的 单元 格 快捷 菜单 ! "，vbInformation + vbOKonly, "快捷 菜单 " 
End Sub 
Sub colmenul sub() 

MsgBox "调用 新 增加 的 列 标签 快捷 菜单 ! "，vbInformation + vbOKOonly, "快捷 菜单 " 
End Sub 
Sub rowmenul sub() 

MsgBox "调用 新 增加 的 行 标签 快捷 菜单 ! "，vbInformation + vbOKOnly, "快捷 菜单 " 
End Sub 


编写 好 以 上 代码 ， 关 闭 再 重新 打开 工作 夭 ， 在 工作 表 、 行 或 列 上 单 击 鼠 标 右键 时 ， 在 
弹出 的 快捷 菜单 中 将 增加 一 个 新 的 菜单 项 ， 如 图 21-12 所 示 。 


21.4.4 隐藏 /禁止 内 置 菜单 项 


对 于 系统 内 置 的 快捷 菜单 ， 通 过 VBA 代码 可 隐藏 指定 的 快捷 菜单 〈 或 快捷 菜单 中 的 
菜单 项 ) ， 也 可 禁止 用 户 弹出 某 个 快捷 菜单 〈 或 禁止 选择 某 个 菜单 项 ) 。 

所 谓 隐藏 ， 是 设置 菜单 项 的 Visible 属性 为 False 时 ， 则 该 菜单 项 将 不 会 显示 在 弹出 的 
快捷 菜单 中 ， 如 果 设 置 为 True， 则 又 将 显示 出 来 。 

如 果 要 禁止 某 个 快捷 菜单 (菜单 项 ) ， 则 需要 设置 快捷 菜单 〈 或 菜单 项 ) 的 Enabled 
属性 , 设置 为 True, 表示 允许 用 户 右 击 弹出 该 快捷 菜单 (或 单 击 选择 菜单 项 ), 设置 为 False， 
表示 用 户 右 击 时 将 不 弹出 对 应 的 快捷 菜单 〈 禁 止 用 户 选择 该 菜单 项 一 一 显示 为 灰色 ) 。 

例如 ， 在 正常 情况 下 ， 用 户 在 工作 表 标 签 上 单 击 右键 将 弹出 操作 工作 表 的 快捷 菜单 ， 
在 该 快捷 菜单 中 包含 了 对 工作 表 进 行 操作 的 各 种 命令 ， 如 图 21-13 所 示 。 


屈折 定义 快 副 茶 单 xs [或 客 模式 ] ere 
n 2 
ly Pde 插入 (&I)..… 
134| 847 了 删除 (kD) 
135| 889 a 重 命名 ( 
136| 848 | 移动 或 复制 工作 表 (0D) 
137| 1561 移动 或 复制 工作 检 (M) 查看 代码 
138| 893 二 看 代码 保护 工作 表 (&P) 
139| 12181 加 9 工作 表 标 签 颜 色 
140| 890 鳃 SI- 隐藏 (tH) 
141 891 工作 胡 标 答 若 色 0D ，| 取消 隐藏 (&U) 
142 946 选 定 全 部 工作 表 (&S) 
143, 1968 赎 志 HH) 取消 组 合 工作 表 (&U) 
144) 21XLN C 剪 切 (&T) 


145 19 复制 (&C) 


图 21-13 工作 表 快 捷 菜单 


在 某 些 情况 下 ， 可 能 需要 禁止 弹出 如 图 21-13 所 示 的 快捷 菜单 ， 则 可 运行 以 下 代码 ;: 


Sub 禁止 快捷 菜单 () 
Application.CommandBars ("ply") .Enabled = False 
End Sub 
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以 上 代码 通过 设置 名 为 ply 的 快捷 菜单 的 Enabled 属性 为 False， 达 到 禁止 显示 该 菜单 


的 目的 。 
全 提示 : 在 图 21-10 所 示 的 工作 表 中 列 出 了 内 置 快捷 菜单 的 名 称 、 显 示 文 本 、ID 号 ， 要 控 


制 。 


制 其 他 快捷 菜单 ， 可 查看 相关 信息 。 
运行 以 下 代码 ， 又 可 允许 弹出 名 为 ply 的 快捷 菜单 : 


Sub 允许 快捷 菜单 () 
Application.CommandBars ("ply") .Enabled = True 
End Sub 


对 于 快捷 菜单 中 的 菜单 项 , 通过 FindControl 方法 查找 , 然后 可 对 找到 的 菜单 项 进行 控 
例如 ， 以 下 代码 禁止 使 用 工作 表 快捷 菜单 中 的 【插入 】 菜 单项 。 执 行 以 下 代码 后 ， 工 


作 表 的 快捷 菜单 如 图 21-14 所 示 ，【 插 入 】 菜 单项 为 灰色 ， 禁 止 用 户 选择 。 


ee 自 定义 快 潭 荣 单 :js [ 驻 容 模式 ] 


插入 (&I).. 

9 人 

重合 

Ee (uD ,| 
查看 代码 (&i 

保护 工作 表 eT 


选 定 : 
取消 组 合 工作 表 (&U) 
甬 切 (&T) 

复制 (&C) 


图 21-14 禁止 【插入 】 菜 单项 


Sub 禁止 插入 菜单 () 
Application.CommandBars ("ply") .FindControl (ID:=945) .Enabled = False 
End Sub 


全 提示 : 执行 以 上 代码 后 ，Excel 将 一 直 禁 止 用 户 使 用 【插入 】〗 菜 单项 ， 在 合适 的 情况 下 ， 


应 设置 允许 用 户 使 用 。 
同样 ， 设 置 其 Enabeld 属性 为 True， 则 人 允许 用 户 使 用 。 


Sub 允许 插入 菜单 () 
Application.CommandBars ("ply") .FindControl (ID:=945) .Enabled = True 
End Sub 


若 要 隐藏 【插入 】 菜 单项 ， 则 可 执行 以 下 代码 : 


Sub 隐藏 插入 菜单 () 
Application.CommandBars ("ply") .FindControl (ID:=945) .Visible = False 
End Sub 


执行 以 上 代码 ， 工 作 表 快捷 菜单 如 图 21-15 所 示 ，【 插 入 】 菜 单项 被 隐藏 了 。 
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国 十 定 义 快 过半 妾 s [ 订 守信 巩 ] re 
WE c da 了 
my Ply 插入 GI) 

134| B47 删除 (&D) 

135 889 | me 重 命名 (8R) = 

136| 848 重合 名 四 移动 或 复制 工作 表 (&1). 

137| 1561 A 查看 代码 ty) 

i138 ss 0 | 可 六 工作 琢 GB) 

159| 12181 时 Ete 工作 表 标签 颜色 

140| gq EV RspIfr 雪 四 隆之 (4H) 

141| 891 了 取消 隐藏 (80) 

142| 946 enimsacr | - 选 定 全 部 工作 蒜 人 5 

143| 1968 | RE 取消 组 合 工作 泰 &7 

144 21 X00 sa 前 切 (8T) 

145| 19 | | 复制 (ac) 


21-15 隐藏 【插入 】 菜 单项 


使 用 以 下 代码 可 将 【插入 】 菜 单项 显示 出 来 : 


Sub 显示 插入 菜单 () 
Application.CommandBars ("ply") .FindControl (ID:=945) .Visible = True 
End Sub 


21.5 自 定 义工 具 栏 


在 Excel 2003 及 以 前 版 本 中 ， 提 供 了 丰富 的 内 置 工 具 栏 ， 方 便 用 户 对 工作 表 中 的 数据 
进行 操作 。 

在 Excel 2007 中 ， 用 功能 区 取代 了 这 些 工具 栏 。 为 了 兼容 早期 版 本 ， 在 Excel 2007 中 
仍然 可 以 用 VBA 代码 访问 这 些 内 置 工具 栏 ， 只 是 不 能 将 其 显示 在 工作 界面 中 。 使 用 VBA 
代码 自 定义 的 工具 栏 ， 将 显示 在 功能 区 【加 载 项 】 选 项 卡 的 【 自 定义 工具 栏 】 组 中 。 如 果 
自 定义 了 多 个 工具 栏 ， 将 全 部 显示 在 该 组 中 。 


21.5.1 内 置 工具 栏 


在 Excel 2003 及 以 前 版 本 中 ， 工 具 栏 显示 如 图 21-16 所 示 。 


21-16 工具 栏 


一 个 工具 栏 为 一 个 CommandBar 对 象 ， 工具 栏 中 包含 多 个 按钮 ， 每 个 按钮 为 一 个 
CommandBarButton 对 象 。 

使 用 以 下 代码 可 在 工作 表 “ 内 置 工 具 栏 ”中 显示 内 置 工具 栏 的 名 称 ， 及 每 个 工具 栏 所 
包含 的 按钮 名 称 。 

Sub 显示 内 置 工具 栏 () 


Dim cb As CommandBar, cbc As CommandBarControl 
Dim i As Long, j As Long 
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On Error Resume Next 


With Worksheets ("内 置 工具 栏 ") 


生生 当 
For Each cb In CommandBars ' 循 环 处 理 每 个 命令 栏 
IE cb.Type = msoBarTypeNormal And cb.BuiltIn = True Then 
.Cells(i, 2) = cb.Name ' 获 取 命 令 栏 名 称 
.Cells(i, 3) = cb.NameLocal ' 获 取 命 令 栏 中 文 名称 
For Each cbc In cb.Controls "循环 处 理 每 个 命令 栏 中 的 控件 按钮 
GELS (i = cbosrD ' 控 件 按钮 ID 
.Cells (i，4) = cbc.Caption “' 控 件 按钮 显示 文字 
i=i+1 
Next 
End If 
Next 
:Cells.Columns.AutoFit 
End With 
End Sub 


运行 以 上 代码 ， 可 得 到 如 图 21-17 所 示 的 内 容 。 在 “内 置 工具 栏 ” 工作 表 中 列 出 了 每 
个 工具 栏 按钮 的 ID、 工 具 栏 名 称 等 信息 。 


[ 国 二 XIRIE xls 鲁 客 模式 ] -5 


WN B CC Dn 
1 |ID 工具 栏 名 各 中 文 名 称 。 控件 
2 | 1031 Wordhzt 艺术 字 艺术 字 人 8 
3 | 2094 编 竺 文字 (7X) , 
生 | 1606 艺林 字库 &w) 
5 | 962 对 象 人 0).，。 
日 | 1068 艺术 字形 状 人 有 
了 | 1063 艺术 地 字母 两 度 相同 (hWD) 
日 | 1061 艺术 字 坚 排 文字 (&W7 
日 | 1059 艺术 字 对 齐 方式 (tyV) 
30 | 1060 芯 术 字 字 符 问 旺 (eV) 
31)| 2619Plcture 图 片 来 自 文件 aF). - 
12| 1403 颜色 (tc) 
13) 1064 增加 对 比 度 CD 
14| 1065 降低 对 比 度 (&L) 


1066 增加 亮度 (9D 


降低 亮度 (AL) 


图 21-17 内 置 工具 栏 


21.5.2 ”创建 工具 栏 


使 用 VBA 代码 创建 工具 栏 与 创建 菜单 栏 的 方法 类 似 ， 首先 向 CommandBars 集合 中 添 
加 一 个 CommandBar 对 象 ， 再 向 该 对 象 中 添加 CommandBarControl 对 象 〈 因 为 其 类 型 为 
msoControlButton， 实 质 上 添加 的 是 一 个 CommandBarButton 对 象 ) ， 再 设置 该 对 象 的 各 参 
数 即 可 。 

例如 ， 下 面 的 代码 可 创建 一 个 工具 栏 : 

Sub CreateToolsBar() 


Dim mybar As CommandBar, mybuttonl As CommandBarButton 
删除 自 定义 工具 栏 "调用 子 过 程 删除 同名 工具 栏 


贞 


Set mybar = Application.CommandBars .Add (Name :=" 销 售 管理 ") "增加 工具 栏 
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With mybar 

-Visible = True 

-Protection = msoBarNoCustomize 
End With 


' 显 示 工 具 栏 
' 禁 止 用 户 对 工具 栏 进 行 添加 或 删除 


Set mybutton1l = mybar.Controls.Add (msoControlButton) 


With mybuttonl 
-FaceId = 720 
.Style = msoButtonIconAndCaption 
.Caption = "进货 " 
.OnRction = " 供 货 单 " 
.Visible = True 
End With 


' 向 工具 栏 中 添加 一 个 按钮 


' 设 置 按钮 的 图 标 

' 设 置 按钮 的 风格 

' 设 置 按钮 的 提示 信息 

' 设 置 单 击 按钮 时 调用 的 子 过 程 
"显示 按钮 


Set mybuttonl = mybar.Controls.Add (msoControlButton) 


With mybuttonl 
:FaceIld = 59 
.Style = msoButtonIconAndCaption 
.Caption = "销售 " 
.OnRction = " 销 货 单 " 
Visible = True 
End With 


Set mybuttonl = mybar.Controls.Add (msoControlButton) 


With mybuttonl 
.Faceld = 226 
.Style = msoButtonIconAndCaption 
.Caption = "存货 统计 " 
.OnAction = "统计 " 
.Visible = True 
End With 


Set mybuttonl = mybar.Controls.Add (msoControlButton) 


With mybuttonl 
.Faceld = 226 


.Style = msoButtonIconAndCaption 


.Caption = "进货 报表 " 
.OnAction = "进货 报表 " 
.Visible = True 

End With 


Set mybuttonl = mybar.Controls.Add (msoControlButton) 


With mybuttonl 
.Faceld = 226 


.Style = msoButtonIconAndCaption 


.Caption = "销售 报表 " 
.OnAction = "销售 报表 " 
Visible = True 
End With 
End sub 
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以 上 代码 ， 首 先 调用 名 为 “删除 自 定义 工具 栏 ” 的 过 程 删除 系统 中 同名 的 工具 栏 ， 接 
着 使 用 Add 方法 新 建 工具 栏 ， 再 向 新 建 的 工具 栏 中 添加 按钮 控件 。 

在 向 系统 中 添加 自 定义 工具 栏 时 ， 如 果 设 置 的 名 称 与 系统 中 己 有 命令 栏 的 名 称 重 复 ， 
程序 将 出 现 错误 。 因 此 在 创建 工具 栏 之 前 ， 应 先 判断 是 否 有 与 创建 工具 栏 名 称 相同 的 命令 
栏 。 若 有 该 命令 栏 ， 则 使 用 下 面 的 子 过 程 将 其 删除 。 

Sub 删除 自 定义 工具 栏 () 

Dim cb As CommandBar 


For Each cb In CommandBars 
If cb.Name = "销售 管理 " Then 


cb.Delete 
Exit Sub 
End If 
Next 
End Sub 


全 提示 : 要 完成 实际 的 功能 ， 还 需要 为 每 个 按钮 的 onAction 属性 设置 的 子 过 程 编写 代码 。 
为 了 使 用 户 进 入 系统 就 能 使 用 工具 栏 ， 可 以 使 用 以 下 代码 在 工作 敌 的 Open 事件 中 调 
用 创建 工具 栏 的 子 过 程 : 
Private Sub Workbook Open() 


CreateToolsBar 
End Sub 


在 关闭 Excel 应 用 程序 时 , 应 在 工作 秒 的 BeforeClose 事件 中 编写 以 下 代码 删除 自 定义 
的 工具 栏 。 和 否则 ， 在 用 户 下 次 打开 Excel 进行 编写 其 他 工作 簿 时 ， 工 具 栏 仍 会 显示 出 来 。 


Private Sub Workbook BeforeClose(Cancel Rs Boolean) 
删除 自 定义 工具 栏 
End Sub 


在 Excel 2003 中 执行 CreateToolsBar 子 过 程 ， 将 创建 如 图 21-18 所 示 的 工具 栏 。 


图 21-18 ”Excel 2003 中 的 自 定义 工具 栏 


在 Excel 2007 中 执行 CreateToolsBar 子 过 程 ， 创 建 的 工具 栏 将 不 会 浮 于 工作 表 上 方 ， 

而 放置 在 功能 区 【加 载 项 】 选 项 卡 的 【 自 定义 工具 栏 】 组 中 ， 如 图 21-19 所 示 。 
(a ("EE 2 Microsoft Excel 吾 
l 


开 Hh。 斤 A 而 机 局 人 效 皖 。 证 间 。 视图 。 开 上 工具 | H 总 大 | 
9 特区 符号 信 进 作 动 徊 告 工 存货 统计 工 进 贷 报 表 工 向 告 报 专 


x 
a 


要 全 仿 E25 3 


图 21-19 Excel 2007 中 的 自 定义 工具 栏 
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在 Excel 2007 中 ， 工 作 敌 可 保存 海量 数据 。 但 是 ， 在 应 用 程序 的 过 程 中 ， 可 能 还 需要 
使 用 许多 不 是 以 Excel 格式 保存 的 数据 。 

Excel VBA 提供 了 访问 外 部 数据 的 支持 ， 通 过 Excel 可 访问 其 他 程序 ， 或 其 他 程序 创 
建 的 数据 。Excel 在 这 方面 具有 很 强 的 功能 ， 可 访问 获取 各 种 常见 数据 库 中 的 数据 、 处 
理 操作 系统 提供 的 文件 系统 、 与 Office 其 他 应 用 程序 组 件 共享 数据 、 访 问 Intemet 中 的 数 
据 等 。 

本 部 分 共 4 章 ， 分 别 介 绍 了 Excel 访问 外 部 数据 的 方法 。 


Mp ”第 22 章 控制 其 他 0ffice 程序 
名 第 23 章 处 理 文件 
第 24 章 使 用 AD0 访问 数据 库 


第 25 章 Excel 2007 与 Internet 


第 22 章 控制 其 他 Office 程序 


微软 公司 的 Office 套件 包括 了 很 多 组 件 , 如 常用 的 Word、Excel、PowerPoint、Outlook 
等 。 这 些 组 件 既 能 单独 使 用 ， 各 组 件 之 间 也 可 相互 调用 。 例 如 ， 使 用 Excel 工作 表 中 的 数 
据 生成 Word 文档 。 使 用 VBA 可 以 方便 地 在 各 组 件 之 间 交 换 数 据 ， 本 章 将 介绍 具体 的 操作 
方法 。 


22.1 OLE 自动 化 技术 简介 


微软 公司 提供 的 OLE 自动 化 技术 , 就 是 通过 一 个 应 用 程序 来 控制 男 外 一 个 应 用 程序 的 
处 理 过 程 。 在 Excel 环境 中 ， 通 过 自动 化 技术 可 控制 其 他 Office 应 用 程序 。 


22.1.1 OLE 简介 


OLE/ActiveX/COM 技术 是 微软 的 核心 应 用 技术 。 作 为 COM 技术 前 身 的 OLE, 其 最 初 
含义 是 指 在 程序 之 间 链 接 和 幅 入 对 象 数据 (Object Link Embeded) 。 它 提供 了 建立 混合 文 
档 的 手段 ， 使 得 那些 没有 太 多 专业 知识 的 用 户 能 够 很 容易 地 协调 多 个 应 用 程序 完成 混合 
档 的 建立 。OLE 技术 包含 以 下 功能 。 

口 OLE 自动 化 : 一 个 程序 有 计划 地 控制 男 一 个 程序 的 能 力 。 

口 OLE 控件 : 又 称 为 ActiveX 控件 ， 是 一 个 小 型 的 组 件 程序 ， 可 能 入 到 另外 的 程序 ， 

提供 自己 的 专 有 功能 。 

口 OLE 文档 : 又 称 为 ActiveX 文档 ， 不 仅 支持 简单 链接 和 嵌入 ， 还 支持 在 位 激活 、 

拖 放 等 功能 。 

Office 套件 中 的 各 组 件 都 支持 OLE 自动 化 。 通 过 OLE 自动 化 技术 ， 任 何 用 Word、 
PowerPoint、Outlook 等 组 件 能 够 完成 的 工作 , 都 可 以 通过 使 用 OLE 自动 化 在 Excel 组 件 中 
完成 。 这 时 ， 可 将 其 他 Office 组 件 作 为 一 个 对 象 来 使 用 ， 并 通过 VBA 代码 可 访问 这 些 组 
件 提供 的 功能 。 这 样 ， 可 为 Excel 应 用 程序 整合 其 他 Office 组 件 提供 方便 快捷 的 方法 。 


22.1.2 引用 服务 程序 


在 使 用 OLE 自动 化 技术 前 ， 先 了 解 两 个 术语 : 客户 程序 和 服务 程序 。 
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口 客户 程序 : 就 是 申请 并 使 用 其 他 组 件 的 程序 ， 例 如 ， 在 Excel 中 访问 Word 的 相关 
功能 ， 其 中 ，Excel 就 是 客户 程序 。 

口 服务 程序 : 通过 特定 的 接口 ， 将 自己 完成 的 一 些 功能 提供 给 调用 的 应 用 程序 。 例 
如 ， 在 Excel 中 访问 Word 的 相关 功能 ， 其 中 ，Word 就 是 服务 程序 。 


1. 引用 对 象 


Office 套件 中 的 各 组 件 都 提供 一 个 对 象 模 型 , 在 其 他 组 件 中 通过 VBA 代码 访问 服务 程 
序 的 对 象 模型 中 的 相关 对 象 ， 以 得 到 服务 程序 提供 的 相应 功能 。 在 VBA 代码 中 ， 必 须 先 
将 服务 程序 的 对 象 模型 引用 添加 到 当前 工程 中 ， 才 能 访问 服务 程序 提供 的 功能 。 例 如 ， 要 
在 Excel 中 访问 Word 的 相关 功能 ， 可 通过 以 下 步骤 将 Word 对 象 模型 引用 到 当前 工程 中 。 

(1) 在 Excel 中 按 Alt+F11 进入 VBE 编辑 器 。 

(2) 单 击 主 菜单 【工具 】|【 引 用】 命令 ,打开 【引用 】 对 话 框 。 

(3) 在 【引用 】 对 话 框 中 选中 Microsoft Word 12.0 Object Library 复 选 框 ， 如 图 22-1 

(4) 单 击 【确定 】 按 钮 ，Word 对 象 模型 就 添加 到 工程 中 。 这 样 ， 在 工程 中 使 用 VBA 
代码 即 可 访问 Word 对 象 模型 中 的 对 象 。 例 如 ， 在 模块 中 声明 变量 时 ， 可 将 变量 声明 为 
Word 对 象 ， 如 图 22-2 所 示 。 


引用 - YBAProject 


soft Yord 12.0 Object Library ] 
定位 :C:\Program Files\icrosoft 0fficevOfficel2WSYOED_ 
语言 : 标准 


图 22-1 引用 Word 对 象 模型 22-2 ”对 象 列表 


2. 浏览 对 象 的 属性 和 方法 


将 Word 对 象 库 添 加 到 当前 工程 后 ， 可 以 通过 【对 象 浏览 器 】 窗 口 查看 Word 对 象 库 
的 各 种 对 象 ， 以 及 这 些 对 象 的 方法 和 属性 。 

(1) 在 VBE 中 按 F2 键 打开 【对 象 浏 览 器 】 窗 口 。 

(2) 单 击 左 上 角 的 【工程 / 库 】 下 拉 列 表 框 ， 从 中 选择 【Word】 对 象 ， 如 图 22-3 所 示 。 

(3) 在 【搜索 文字 】 下 拉 列 表 框 中 输入 对 象 名 称 “paragraph”， 单 击 【搜索 】 按 钮 ， 
可 在 下 方 看 到 Word 对 象 库 中 paragraph (段落 ) 对 象 的 属性 和 方法 ， 如 图 22-4 所 示 。 
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图 22-3 选择 Word 对 象 库 图 22-4 查看 paragraph 的 属性 和 方法 


22.1.3 ”实例 化 对 象 变量 


将 服务 程序 的 对 象 模型 添加 到 工程 以 后 ， 还 需要 使 用 VBA 代码 声明 一 个 对 象 变量 ， 
通过 该 对 象 变 量 来 引用 服务 程序 提供 的 功能 。 将 服务 程序 的 对 象 赋值 给 对 象 变 量 的 过 程 ， 
称 为 对 象 的 实例 化 ， 可 使 用 前 期 绑 定 和 后 期 绑 定 两 种 方法 来 创建 服务 程序 的 实例 。 


1. 前 期 绑 定 


在 定义 对 象 变量 时 , 若 显 式 声 明了 变量 的 类 型 ,该 变量 就 只 能 存放 该 类 型 对 象 的 引用 。 
这 种 方式 称 为 前 期 绑 定 。 例 如 ， 以 下 代码 定义 对 Word 对 象 的 引用 : 


Dim myWord As Word.Application 
Set myWord=New Word.Application 


以 上 代码 中 ， 首 先 定义 了 myWord 变量 为 Word.Application 对 象 ，VBA 程序 将 自动 检 
查 该 服务 程序 的 可 用 性 ， 如 果 没 有 检测 到 Word 服务 程序 ， 程 序 将 出 现 错误 提示 。 通 过 前 
期 绑 定 的 方法 ， 可 以 尽早 地 发 现 程序 中 的 错误 ， 方 便 程序 调试 。 

使 用 前 期 绑 定 方式 声明 变量 后 ， 在 代码 中 输入 变量 名 加 一 个 句点 后 , 将 显示 属性 /方法 
列表 ， 如 图 22-5 所 示 。 


Sub 前 期 兰 定 0 
Dim myWora As Yord. Application 


3 
Set mglord = Hew Yord. Application 
myword.| 
End Sub Activate 


22-5 ”属性 /方法 列表 
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外 技巧 : 在 代码 中 若 知道 对 象 变 量 要 使 用 的 对 象 类 型 ， 最 好 使 用 前 期 绑 定 方式 ， 以 便 及 早 
发 现 程序 中 的 错误 ， 通 过 属性 /方法 列表 可 快速 输入 代码 。 


2. 后 期 绑 定 

若 将 一 个 变量 声明 为 As Object 或 As Variant，VBA 在 编译 时 将 无 法 确定 该 变量 引用 
哪 种 类 型 的 对 象 。 在 程序 运行 时 ， 根 据 赋值 的 对 象 类 型 来 确定 对 象 变 量 。 这 样 ， 在 运行 时 
才能 确定 对 象 的 属性 和 方法 能 否 使 用 该 变量 。 这 种 方式 称 为 后 期 绑 定 。 

例如 ， 以 下 代码 使 用 后 期 绑 定 方式 来 引用 Word 对 象 变量 


Dim myWord As Object 

通过 以 上 方式 声明 的 变量 , VBA 编 详 时 还 不 知道 要 引用 的 对 象 类 型 。 在 程序 运行 过 程 

可 使 用 以 下 语句 将 Word 对 象 类 型 绑 定 到 myWord 变量 中 : 

Set myWord=CreateObject ("Word.Application") 

使 用 以 下 语句 可 将 变量 myWord 绑 定 为 PowerPoint 对 象 : 

Set myWord=CreateObject ("PowerPoint .Application") 

若 使 用 后 期 绑 定 ， 则 每 次 调用 属性 或 方法 时 ，VBA 都 要 检查 属性 方法 的 正确 性 。 

由 于 没有 具体 限定 变量 myWord 的 类 型 ,所 以 VBA 不 会 检查 Word 服务 程序 是 否 存 在 。 

当 Word 应 用 程序 不 存在 时 ， 以 上 代码 也 可 执行 ， 只 是 将 变量 myWord 赋值 为 空 。 只 有 在 

具体 调用 Word 对 象 的 属性 或 方法 时 ， 程 序 才 会 出 错 。 这 种 方法 不 易 检 查 程 序 错误 。 

各 提示 : 用 前 期 绑 定 还 是 后 期 绑 定 完全 取决 于 声明 变量 的 方式 。 对 象 的 创建 方式 对 此 没有 
任何 影响 。 


中 


22.2 ”控制 Word 程序 


Word 是 一 个 非常 普及 的 文字 处 理 软件 , 很 多 资料 都 是 使 用 Word 格式 保存 的 。 在 Excel 
中 可 打开 Word 文档 、 从 Word 文档 中 获取 资料 ， 还 可 通过 Excel 工作 表 中 的 数据 创建 生成 
Word 文档 。 


22.2.1 了 解 Word 对 象 模型 


要 在 Excel 中 控制 Word， 需 首先 使 用 本 章 22.1 节 中 介绍 的 方法 , 将 Word 对 象 模型 添 
加 到 工程 中 。 

在 Word 中 操作 和 改变 的 每 一 个 东西 都 是 一 个 对 象 , 这 些 对 象 的 相互 关系 组 成 了 Word 
中 的 对 象 模型 ， 如 图 22-6 所 示 。 

在 Word 中 ， 文 档 、 对 话 框 、 文 本 框 、 图 形 、 图 表 甚 至 Word 本 身 都 是 对 象 ， 同 时 ， 
这 些 对 象 都 有 自己 的 属性 和 方法 ， 因 此 ， 用 户 可 通过 编程 来 访问 这 些 已 有 对 象 ， 改 变 它们 
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的 属性 ， 以 完成 某 些 较 高 级 的 功能 。 (pplication 一 
下 面 简单 介绍 Word 对 象 模型 中 的 常用 对 象 : 


1. Application 对 象 


Application 对 象 代 表 Word 应 用 程序 。Application 对 象 包 Saecion | 
会 可 返回 最 高 级 对 象 的 属性 和 方法 。 例如，ActiveDocument 属 一 
性 返回 Document 对 象 。 Document 


2. Bookmark 对 象 


Bookmark 对 象 代表 文档 、 选 定 内 容 或 区 域 中 的 单个 书签 。 Beemans = 
Bookmark 对 象 是 Bookmarks 集合 的 成 员 。 Bookmarks 集合 包括 图 22-6 Word 对 象 模型 
【书签 】 对 话 框 中 列 出 的 所 有 书签 。 


3. Document 对 象 


Document 对 象 代表 一 个 文档 。Document 对 象 是 Documents 集合 的 成 员 。Documents 
集合 中 包含 当前 在 Word 中 打开 的 所 有 Document 对 象 。 


4. Paragraph 对 象 


Paragraph 对 象 代表 所 选 内容 、 范 围 或 文档 中 的 一 个 段落 。Paragraph 对 象 是 Paragraphs 
集合 的 一 个 成 员 。Paragraphs 集合 包含 所 选 内 容 、 范 围 或 文档 中 的 所 有 段落 。 


5. Range 对 象 


Range 对 象 代表 文档 中 的 一 个 连续 区 域 。 每 个 Range 对 象 由 一 个 起 始 字符 位 置 和 一 个 
终止 字符 位 置 定义 。 

与 书签 在 文档 中 的 使 用 方法 类 似 ，Range 对 象 在 VBA 过 程 中 用 来 标识 文档 的 特定 部 
分 。 但 与 书签 不 同 的 是 ，Range 对 象 只 在 定义 该 对 象 的 过 程 运 行 时 才 存 在 ， 并 且 其 独立 于 
所 选 内 容 。 也 就 是 说 ， 可 以 定义 和 处 理 一 个 范围 而 无 需 更 改 所 选 内 容 ， 还 可 以 在 文档 中 定 
义 多 个 范围 ， 但 每 个 窗 格 中 只 能 有 一 个 所 选 内 容 。 

6. Selection 对 象 


Selection 对 象 代表 窗口 或 窗 格 中 的 当前 所 选 内容 。 所 选 内 容 代表 文档 中 选 定 〈 或 突出 
显示 ) 的 区 域 ， 如 果 文 档 中 没有 选 定 任何 内 容 ， 则 代表 插入 点 。 每 个 文档 窗 格 只 能 有 一 个 
Selection 对 象 ， 并 且 在 整个 应 用 程序 中 只 能 有 一 个 活动 的 Selection 对 象 。 

可 以 使 用 Selection 属性 返回 Selection 对 象 。 如 果 Selection 属性 未 使 用 对 象限 定 符 ， 
则 Word 返回 活动 文档 窗口 的 活动 窗 格 中 的 所 选 内 容 。 


22.2.2 ”打开 Word 文档 


在 Excel 中 打开 Word 文档 的 操作 比较 简单 ， 可 以 在 VBA 中 创建 对 Word 对 象 模型 的 
引用 ,再 使 用 Documents 集合 对 象 的 Open 方法 即 可 打开 指定 的 Word 文档 。Documents 集 
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合 对 象 提供 一 个 名 为 Open 的 方法 ， 可 用 来 打开 文档 ， 具 体 的 语法 格式 如 下 : 


Documents .Open (FileName, ConfirmConversions, ReadOonly, AddToRecentFiles, 
PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, 
WritePasswordTemplate, Format, Encoding, Visible, OpenConflictDocument, 
OpenAndRepair, 

DocumentDirection, NoEncodingDialog) 


参数 FileName 为 要 打开 的 Word 文档 名 〈 可 包含 路 径 ) ， 其 余 参 数 都 可 省 略 。 
在 Excel 中 打开 Word 文档 的 VBA 代码 如 下 : 
Sub 打开 Word 文档 () 


Dim sFName As String, strFilt As String, strTitle Rs String 
Dim docApp As Object 


strFilt = "Word 文 档 (*.doc;*.docx;*.docm) ,*.doc;*.docx;*.docm," 
strTitle = "打开 Word 文档 " 


SFName = Application.GetOpenFilename _ 
(filefilter:=strFilt, _ 
Title:=strTitle) 

If sFName = "False" Then Exit Sub 


Set docApp = CreateObject ("Word.Application") ' 实 例 化 Word 对 象 变量 


docApp .Documents .Open sFName "打开 Word 文档 
docApp.Visible = True “显示 Word 应 用 程序 
Set docApp = Nothing ' 释 放 对 象 变 量 

End Sub 


以 上 代码 首先 让 用 户 选 择 要 打开 的 Word 文档 ， 接 着 实例 化 Word 对 象 变量 ， 再 调用 
Word 对 象 模型 中 Documents 集合 的 Open 方法 打开 文档 。 

执行 以 上 过 程 , 将 显示 如 图 22-7 所 示 的 对 话 框 。 在 对 话 框 中 列 出 了 扩展 名 为 .doc、.docx 
和 .docm 的 Word 文档 。 
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22-7 【打开 Word 文档 】 对 话 框 
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在 如 图 22-7 所 示 的 对 话 框 中 选择 文件 “Word 对 象 模型 .doc”， 单 击 【 打 开 】 按 钮 即 
可 启动 Word 程序 打开 选中 的 文档 ， 如 图 22-8 所 示 。 


Word 风 案 妆 型 doc [ 尝 客 过 - Microscft Word Ci 


es! -国画 | ES 岛 人 A 

局 车 交 省- Ea EI Ea < 

Ai Se 
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22.2 控制 Word 程序 . 


Word 是 一 个 非常 只 及 的 文字 处 再 软件 ,很 多 资料 者 是 使 用 Werd 格式 保存 的 . 在 Excel 
中 可 打开 Word 文 特 、 从 Werd 文档 中 正职 弯 科 ， 还 可 通过 Excel 工作 表 中 的 数据 创建 生成 
Word 文科 ，* 


"2221 了解 Word 对象 模型 。 


要 在 Excsl 中 控制 Word， 需 要 对 Word 的 对 家 代 型 有 有 一 富 的 了 解 ，~ 
在 Word 中 提 作 和 改变 的 每 一 个 东西 闻 是 一 个 对 象 ， 这 些 对 得 的 相互 关系 组 成 了 Word 
中 的 对 多 模型， 如 图 22-5 所 示 .~ 


| 
EE TIE ES 


图 22-8 打开 的 Word 文档 


22.2.3 ”获取 Word 文档 中 的 数据 


在 实际 应 用 中 ， 有 时 可 能 要 从 已 有 Word 文档 中 获取 数据 ， 并 填充 到 Excel 工作 表 中 。 
要 从 Word 文档 中 读 取 数据 ， 可 通过 Paragraph 对 象 的 Range 属性 , 返回 段落 中 包含 的 文档 
部 分 。 

使 用 以 下 代码 可 以 获取 Word 文档 中 的 数据 : 


Sub 获取 Word 的 数据 () 
Dim sFName As String, strFilt As String, strTitle As String 
Dim docApp As Word.Application, pg As Word.Paragraph 
Dim i As Long, strl As String 


strFilt = "Word 文 档 (*.doc;*.docx;*.docm) ,*.doc;*.docx;*.docm," 
strTitle = "打开 Word 文 档 " 
sFName = Application.GetOpenFilename _ 
(filefilter:=strFilt, _ 
Title:=strTitle) 
IE sFName = "False" Then Exit Sub 


Set docApp = CreateObject ("Word.Application") “实例 化 Word 对 象 变量 
docApp .Documents .Open sFName "打开 Word 文档 
:和 
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With docApp.ActiveDocument 
For Each pg In .Paragraphs "处 理 Word 中 的 每 一 个 段落 
strl = pg.Range .Text "获取 段落 中 的 文本 


SR 
RctiveSheet.Cells(i，1) = strl 


Next 
End With 
docApp .Quit ' 退 出 Word 文档 
Set docApp = Nothing ' 释 放 对 象 变量 
End Sub 


以 上 代码 首先 让 用 户 选择 要 打开 的 Word 文档 , 接着 使 用 Open 方法 打开 文档 , 然后 通 
过 Paragraph 对 象 的 Range 属性 获取 段落 文本 ， 再 将 其 赋值 给 Excel 的 单元 格 。 


外 注意 : 以 上 代码 没有 设置 docApp 的 Visible 属性 为 True， 在 程序 运行 过 程 中 将 看 不 到 
Word 应 用 程序 的 窗口 ， 结 束 程序 前 一 定 要 使 用 Word 对 象 的 Quit 方法 退出 隐藏 
的 Word 应 用 程序 ， 和 否则 该 隐藏 程序 将 一 直 在 内 存 中 。 


执行 以 上 代码 ， 将 首先 显示 【打开 Word 文档 】 对 话 框 ， 选 择 要 获取 数据 的 Word 文 
档 “Word 对 象 模型 .doc”, 单 击 【 打 开 】 按 钮 , 即 可 将 该 文档 中 的 文本 填 入 到 工作 表 Sheet2 
中 ， 如 图 22-9 所 示 ， 并 且 各 个 段落 的 文字 会 填 入 Excel 工作 表 的 每 一 行 中 。 


22. 2 控制 gor' 

人 很 多 资料 都 是 使 用 Yord 格 式 保存 由 
22. 2.1 了 和 解 Yord 对 象 横 i 

要 在 Excel 中 控制 Word， 需 要 对 ¥ord 的 对 象 模型 有 一 定 的 了 和 解 


i i i 这 些 对 多 的 相互 关系 


22- 6 Word 对象 模型 

在 Yord 中 ， 文 档 、 对 话 框 、 文 本 框 、 图 形 、 图 表 甚 至 Yord 本 身 都 是 对 象 ,， 
10 下面 简 单 介 绍 几 个 常 用 对 象 : 
11 1. Applicatio! 
12_Application 对 象 代表 ¥ord 应 用 程序 。Application 对 象 包含 可 返回 最 高 
13 2. Bookmark 对 象 
14 Booknark 对 象 代表 文档 、 EE et 

lL "ee 


图 22-9 获取 的 Word 文档 数据 


22.2.4 批量 创建 Word 文档 


Excel 的 工作 表 可 以 保存 成 干 上 万 条 数据 , 通过 VBA 可 使 用 这 些 数据 创建 格式 相同 而 
数据 不 同 的 Word 文档 。 下 面 以 示例 演示 用 Excel 工作 表 数 据 创 建 Word 文档 的 方法 。 

汽车 修理 厂 对 维修 出 厂 的 车 辆 需 打 印 《 汽 车 维修 竣工 出 厂 合格 证 》, 其 格式 如 图 22-10 
所 示 。 在 该 合格 证 中 ， 将 车 辆 维修 的 数据 填 入 打印 即 可 。 

为 了 提高 效率 ， 可 将 各 维修 车 辆 的 数据 输入 到 Excel 工作 表 中 保存 ， 如 图 22-11 所 示 。 
利用 该 工作 表 保 存 的 数据 可 批量 生成 Word 文档 ， 再 分 别 打印 即 可 。 


Excel VBA 开发 技术 大 全 


半 车 维修 竣工 出 厂 合 格 证 


托 修 方 ， 天 津 分 公司 

车 牌号 码 : 津 z88888 

节 型 : 宝马 

发 动机 型 号 ;宝马 V6 

接盘 (车身) 号 : LFV2811J073 
维修 类 别 。 大 修 


维修 合同 编号 : 8238824 
接 夺 人 : 王 平 
质量 检验 员 ， 张 质 检 


进 厂 日 期 ， 2008 年 2 月 2 日 
竣工 日 期 2008 年 2 月 8 日 
出 厂 日 期 ， 2008 年 2 月 3 日 
维修 专用 发 票 编号 ，335567 


etl net 下 村 


图 22-10 合格 证 图 22-11 Excel 工作 表 数 据 


要 完成 以 上 任务 ， 可 制作 出 一 个 合格 证 模板 ， 在 模板 中 插入 多 个 书签 ， 然 后 使 用 VBA 
程序 读 取 Excel 工作 表 中 的 数据 ， 并 分 别 填充 到 对 应 的 书签 中 。 

在 VBA 代码 中 使 用 Selection 对 象 的 多 个 方法 来 完成 该 工作 ， 下 面 简单 介绍 这 些 方法 
的 作用 : 

(1) GoTo 方法 。 

使 用 GoTo 方法 可 将 插入 点 移 至 紧 
其 语法 格式 如 下 : 


表达 式 .GoTo (What, Which, Count, Name) 


各 参数 的 含义 如 下 所 述 。 


:指定 项 之 前 的 字符 位 置 , 并 返回 一 个 Range 对 象 ， 


口 What: 范围 或 所 选 内 容 移动 到 的 项 目的 种 类 。 可 设置 为 如 表 22-1 所 示 的 常量 之 一 。 
口 Which: 范围 或 所 选 内 容 要 移动 到 的 项 目 。 可 设置 为 如 表 22-2 所 示 的 常量 之 一 。 
口 Count: 文档 中 的 项 数 。 默 认 值 为 1。 只 有 正 值 有 效 。 
口 Name: 如 果 What 参数 为 wdGoToBookmark、wdGoToComment、wdGoToField 或 
wdGoToObject， 则 此 参数 指定 一 个 名 称 。 
表 22-1 移动 类 型 
名 称 名 称 值 描 述 
wdGoToBookmark wdGoToLine -个 线段 
wdGoToComment wdGoToObject 对 象 
wdGoToEndnote wdGoToPage 页 
wdGoToEquation wdGoToPercent 12 百分比 
wdGoToField wdGoToProofreadingError Le 校对 错误 
wdGoToFootnote wdGoToSection 0 一 玫 
wdGoToGrammaticalError wdGoToSpellingError 13 拼写 错误 
wdGoToGraphic wdGoToTable 2 一 个 表格 
wdGoToHeading 
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表 22-2 移动 位 置 


名 称 描 述 
wdGoToAbsolute 所 指定 对 象 的 下 一 个 实例 
wdGoToFirst CS wdGoToPrevious 所 指定 对 象 的 上 一 个 实例 

所 指定 对 象 的 最 后 一 
wdGoToLast 


个 实例 wdGoToRelative 相对 于 当前 位 置 的 位 置 


(2) TypeText 方法 。 

使 用 Selection 对 象 的 TypeText 方法 可 插入 指定 的 文本 。 

如 果 ReplaceSelection 属性 为 True， 则 表示 用 指定 文本 替换 选 定 内 容 。 如 果 Replace 
Selection 属性 为 False， 则 可 在 选 定 内容 之 前 插入 指定 的 文本 。 

完成 批量 生成 《汽车 维修 竣工 出 厂 合格 证 》Weord 文档 的 具体 步骤 如 下 : 

(1) 在 Word 2007 中 录入 “汽车 维修 竣工 出 厂 合格 证 ”， 并 进行 相应 的 版 式 设置 ， 如 
图 22-12 所 示 。 


图 22-12 制作 Word 模板 


(2) 将 光标 定位 在 “ 托 修 方 ，” 后 面 ， 在 【插入 】 选 项 卡 的 【链接 】 组 中 ， 单 击 【 书 
签 】 按 钮 ， 如 图 22-13 所 示 。 


[a) M9-0)* 汽车 雄 相 识 工 出 厂 辣 格 让 dot [ 苦 容 楼 式 ] - Microsoft Word EPE 

开山 | 短 入 | 布局 。 引用 。 邮件 。 市 网 。 视 回 。 开发 工 具 。 加 台大 加 

加 到 机 -| 四 形状 Eb Mra 本 -| 开 人 -| ，。 

De 转 回 CC E EN- 加 NF3- ; : ? 

an | | MN ne 站- FR- 者 -| 加 闫 3 7 

.| 括 加 忆捷 。 页 慎 和 页 时 | 六 二 WE | 
图 22-13 插入 书签 


(3) 在 打开 的 【书签 】 对 话 框 中 输入 书签 名 “ 托 修 方 ”， 然 后 单 击 【添加 】 按 钮 ， 光 
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标 处 将 添加 一 个 书签 ， 如 图 22-14 左 图 所 示 。 
(4) 用 同样 的 方法 ， 在 “车 牌号 码 : ”等 数据 项 右 侧 分 别 插入 书签 ， 得 到 如 图 22-14 
右 图 所 示 的 【书签 】 对 话 框 。 


图 22-14 【书签 】 对 话 框 


(5) 将 制作 好 的 文档 保存 为 “汽车 维修 竣工 出 厂 合 格 证 .dot” 模 板 文件 。 
(6) 在 Excel 中 打开 保存 合格 证 相关 资料 的 工作 簿 ， 按 Alt+F11 切换 到 VBE 环境 。 
(7) 在 模块 中 编写 “生成 合格 证 ” 子 过 程 ， 具 体 代 码 如 下 : 
sub 生成 合格 证 () 
Dim i As Integer, r As Integer 


上 = Sheets ("合格 证 ") . [A65536] .End (xlUp) .Row 


Por To ' 处 理 每 一 行 数据 
IE Not CreateWord(i) Then Exit For ' 调 用 createWord 函数 生成 合格 证 
Next 
End Sub 


以 上 代码 首先 从 工作 表 “ 合 格 证 ”中 获取 数据 行 数 ， 然 后 循环 调用 CreateWord 函数 生 
成 指定 行 的 合格 证 文档 。 
(8) 在 模块 中 编写 子 过 程 CreateWord， 用 来 生成 Word 文档 。 


Function CreateWord(ByVal r Rs Long) Rs Boolean  ' 创 建 Word 文 档 
Dim myWord As Word.Application, myDoc As Word.Document 
Dim strl As String, dTemp As Date, sCarID Rs String 
Set myWord = New Word.Application 
sCarID = Worksheets ("合格 证 ") .cells(r，2) 
With myWord 
Set myDoc = .Documents.Add(Template:=ThisWorkbook.Path & _ 
"\ 汽 车 维修 竣工 出 厂 合格 证 1.dot"，vVisible:=True) 
"根据 模板 创建 Wora 文档 
With .Selection 
.Goto What:=wdGoToBookmark，Name:=" 托 修 方 " ' 查 找 书 签 
.TypeText Text :=Worksheets ("合格 证 ") .Cells(r, 1) 
"在 书签 处 输入 文字 
.Goto What :=wdGoToBookmark，Name :=" 车 牌号 码 " 
-TypeText Text:=sCarID 
.Goto What :=wdGoToBookmark，Name :=" 车 型 " 
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.TypeText Text:=Worksheets(" 合 格 证 ") .Cells(z，3) 
.Goto What :=wdGoToBookmark，Name:=" 发 动机 型 号 " 
.TypeText Text:=Worksheets(" 合 格 证 ") .Cells(r, 4) 
.Goto What:=wdGoToBookmark，Name:=" 底 盘 号 " 
.TypeText Text:=Worksheets ("合格 证 ") .Cells(r, 5) 
.Goto What :=wdGoToBookmark，Name:=" 维 修 类 别 " 
.TypeText Text:=Worksheets ("合格 证 ") .Cells(r, 6) 
.Goto What:=wdGoToBookmark，Name:=" 维 修 合同 编号 " 
.TypeText Text:=Worksheets ("合格 证 ") .Cells(r, 7) 
.Goto What:=wdGoToBookmark，Name:=" 接 车 人 " 
.TypeText Text:=Worksheets ("合格 证 ") .Cells(r,，8) 
.Goto What :=wdGoToBookmark，Name:=" 质 量 检验 员 " 
.TypeText Text :=Worksheets (" 合 格 证 ") .Cells(r,， 9) 
dTemp = Worksheets (" 合 格 证 ") .Cells(r，10) 
.Goto What:=wdGoToBookmark，Name:=" 进 厂 日 期 年 " 
.TypeText Text:=DatePart ("yyyy", dTemp) 
.Goto What :=wdGoToBookmark，Name:=" 进 厂 日 期 月 " 
.TypeText Text:=DatePart("m", dTemp) 
.Goto What :=wdGoToBookmark，Name:=" 进 厂 日 期 日 " 
.TypeText Text:=DatePart("d", dTemp) 
dTemp = Worksheets ("合格 证 ") .Cells (r，11) 
.Goto What:=wdGoToBookmark，Name :=" 竣 工 日 期 年 " 
.TypeText Text :=DatePart ("yyyy", dTemp) 
.Goto What :=wdGoToBookmark，Name:=" 竣 工 日 期 月 " 
.TypeText Text:=DatePart("m", dTemp) 
.Goto What:=wdGoToBookmark，Name :=" 竣 工 日 期 日 " 
.TypeText Text:=DatePart("d", dTemp) 
dTemp = Worksheets ("合格 证 ") .Cells(r，12) 
.Goto What :=wdGoToBookmark，Name:=" 出 厂 日 期 年 " 
.TypeText Text:=DatePart ("yyyy", dTemp) 
.Goto What :=wdGoToBookmark，Name:=" 出 厂 日 期 月 " 
.TypeText Text:=DatePart("m", dTemp) 
.Goto What:=wdGoToBookmark，Name:=" 出 厂 日 期 日 " 
.TypeText Text:=DatePart("d", dTemp) 
.Goto What :=wdGoToBookmark，Name:=" 维 修 专用 发 票 编号 " 
.TypeText Text:=Worksheets(" 合 格 证 ") .Cells(z，13) 
End With 
myDoc.SaveAs ThisWorkbook.Path & "\" & sCarID & ".doc", wdFormat 
Document 
myDoc.Close 
Set myDoc = Nothing ' 释 放 对 象 引用 
End With 
Set myWord = Nothing 
strl = "车 号 : " & sCarID & " 的 合格 证 生成 完毕 ! " & _ 
"是 否 生 成 下 一 辆 车 的 合格 证 ? " 
If MsgBox (str1，vbInformation + vbYesNo，" 提 示 ") = vbYes Then 
CreateWord = True ”' 函 数 返 回 值 
Else 
CreateWord = False 
End If 
End Function 
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以 上 代码 很 长 ,但 后 面部 分 都 是 重复 同一 个 操作 。 首先 通过 模板 新 建 一 个 Word 文档 ， 
接着 使 用 Goto 方法 查找 模板 中 的 书签 , 再 将 数据 表 中 的 数据 插入 到 书签 处 , 最 后 保存 生成 


的 Word 文档 。 


执行 “生成 合格 证 ” 子 过 程 ， 即 可 循环 生成 工作 表 中 每 辆 车 的 合格 证 ， 如 图 22-10 


所 示 。 


PowerPoint 3 


22.3 ”控制 PowerPoint 程序 


要 用 于 设计 制作 广告 宣传 、 产 品 演示 的 电子 版 幻灯 片 ， 制 作 的 演示 文稿 


可 以 通过 计算 机 屏幕 或 者 投影 机 播放 。 在 Excel 中 , 使 用 VBA 可 打开 幻灯 片 、 创 建 幻灯 片 。 


22.3.1 了 解 PowerPoint 对 象 模 型 


与 操作 Word 对 象 类 似 ， 在 Excel 中 操作 PowerPoint 对 象 也 需要 通过 【引用 】 对 话 框 
来 引用 PowerPoint 对 象 模 型 ， 如 图 22-15 所 示 。 


VBAProject 
可 使 用 的 引用 (); 
Droneft Datlock 12.0 Ohisct | 


Microsoft Project 12.0 Object Libr: 
Microsoft Remote Data Services 2. 


Microsoft Shell Controls And Autom: 

Microsoft Smart Tags 2.0 Type Libr' 
Type Library EF 
Nie 


dr 
Mierosoft PowerPoint 12.0 Object Library 
定位 : C:\Program Files\Microsoft Office\OEficel2\MSPPT.C 
语言 : 标准 


图 22-15 引用 PowerPoint 对 象 模型 


PowerPoint 对 象 库 中 的 常用 对 象 如 下 : 
1. Application 对 象 


Application 对 象 代表 整个 PowerPoint 应 用 程序 。 使 用 PowerPoint 对 象 的 Application 
属性 可 返回 Application 对 象 。 


2. Presentation 对 象 


Presentation 对 象 代表 一 个 PowerPoint 演示 文稿 。Presentation 对 象 属于 Presentations 
集合 中 的 成 员 。Presentations 集合 中 包含 所 有 的 Presentation 对 象 , 它们 分 别 代 表 PowerPoint 
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中 所 有 打开 的 演示 文稿 。 
使 用 Presentations(index) 可 返回 一 个 Presentation 对 象 , 其 中 , index 表示 演示 文稿 的 名 
称 或 索引 号 。 演 示 文 稿 的 名 称 就 是 其 文件 名 ， 是 否 带 文件 扩展 名 均 可 ， 但 不 包含 路 径 。 


3. Slide 对 象 


Slide 对 象 代 表 一 个 幻灯 片 。Slides 集合 包含 演示 文稿 中 的 所 有 Slide 对 象 。 

使 用 Slides(index) (其 中 index 为 幻灯 片 名 称 或 索引 号 ) 或 Slides.FindBySlideID (index) 
(其 中 index 为 幻灯 片 标识 符 ) 返回 单个 Slide 对 象 。 

通过 Slide 对 象 的 属性 和 方法 可 控制 单 张 幻灯 片 。 


4. Slides 集 合 


Slides 集合 是 指定 演示 文稿 中 所 有 Slide 对 象 的 集合 。 使 用 Slides 属性 返回 Slides 集合 。 
使 用 Add 方法 创建 新 幻灯 片 并 添加 到 集合 。 


22.3.2 ”打开 演示 文稿 


与 打开 Word 文档 类 似 ， 在 Excel 中 打开 PowerPoint 文档 的 操作 比较 简单 。 使 用 
Presentations 集合 对 象 的 Open 方法 即 可 打开 指定 的 演示 文稿 ， 并 且 返 回 一 个 Presentation 
对 象 ， 该 对 象 代表 已 打开 的 演示 文稿 ， 具 体 的 语法 格式 如 下 : 

表达 式 .open (FileName, Readonly, Untitled, WithWindow, OpenConflictDocument) 


参数 FileName 为 要 打开 的 文件 名 ， 其 余 参 数 都 可 省 略 。 
下 面 的 代码 使 用 Presentations 集合 的 Open 方法 打开 演示 文稿 。 


sub 打开 演示 文稿 () 
Dim sFName As String, strFilt As String, strTitle As String 
Dim pptApp Rs PowerPoint .Application ' 声 明 PPT 应 用 程序 对 象 
Dim pptPrs As PowerPoint.Presentation ' 声 明 演 示 文稿 对 象 


strFilt = "PowerPoint 文件 (*.ppt),*.ppt" 
strTitle = "打开 演示 文稿 " 


SFName = Application.GetOpenFilename _ 
(filefilter:=strFilt, _ 
Title:=strTitle) 

IE sFName = "False" Then Exit Sub 


Set pptApp = New PowerPoint.Application ' 实 例 化 PowerPoint 应 用 程序 
pptApp.Visible = True 
Set pptPrs = pptApp.Presentations.Open(sFName) ' 打 开演 示 文 稿 


Set pptPrs = Nothing 
Set pptApp = Nothing 
End Sub 
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以 上 代码 首先 让 用 户 选择 PowerPoint 文件 ， 再 使 用 Presentations 对 象 的 Open 方法 打 
开演 示 文 稿 。 
执行 以 上 过 程 ， 将 首先 显示 如 图 22-16 所 示 的 【打开 演示 文稿 】 对 话 框 。 


六 Two 


图 22-16 【打开 演示 文稿 】 对 话 框 


在 对 话 框 中 选择 PowerPoint2007 简介 .ppt， 单 击 【 打 开 】 按 钮 即 可 打开 PowerPoint 演 
示 文 稿 ， 如 图 22-17 所 示 。 


人 @ | -Eee 5 下 
| 间 全 re 汪 轩 蝇 
了 00- A Ca 


| 


22-17 打开 的 演示 文稿 


22.3.3 ”创建 演示 文稿 


在 Excel 中 通过 VBA 创建 PowerPoint 演示 文稿 ， 可 按 以 下 顺序 进行 : 
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(1) 使 用 Presentations 对 象 的 Add 方法 创建 一 个 演示 文稿 。 
(2) 使 用 Slides 对 象 的 Add 方法 向 演示 文稿 中 插入 一 个 幻灯 片 。 
(3) 向 新 插入 的 幻灯 片 中 添加 文字 、 图 片 等 内 容 。 
例如 ， 以 下 代码 创建 一 个 演示 文稿 ， 并 在 其 中 添加 一 张 幻灯 片 ， 然 后 保存 该 演示 文稿 。 
With Presentations .Rdd 
.Slides.Rdd Index:=1, Layout:=ppLayoutTitle 


.SaveAs "Sample" 
End With 


以 下 代码 将 完整 地 演示 通过 工作 表 “ 合 格 证 ”中 的 数据 创建 演示 文稿 的 方法 。 


Sub 创建 演示 文稿 () 
Dim pptApPp As PowerPoint .Application, pptPrs As PowerPoint .Presentation 
Dim wsl As Worksheet , i As Long, j As Integer 
Dim strl Rs String, strName As String , sFName Rs String, strFilt Rs String 
Dim strTitle As String, strInit As String 


strFilt = "PowerPoint 文件 (*.ppt),*.ppt" 
strTitle = "保存 PowerPoint 幻灯 片 " 
strInit = "Excel 创建 PPT.ppt" 


Do "要 求 用 户 必须 输入 文件 名 
SFName = Application.GetSaveAsFilename (InitialFileName:=strInit, _ 
filefilter:=strFilt, Title:=strTitle) 
Loop While sFName = "False" Or sFName = "" 


Set wsl = ActiveWorkbook.Worksheets ("合格 证 ") 


Set pptApp = New PowerPoint.Application ' 实 例 化 PPT 应 用 程序 
pptApp.Visible = True “显示 PPT 程序 
Set pptPrs = pptApp.Presentations.Add ' 增 加 演示 文稿 


With pptPrs 
For i = 1 To wsl.Range("A65536") .End (xlUp) .Row 


strName = wsl.Cells(i + 2, 2) "获取 车 牌号 
SErT mm 汉王 
For j=3 To 13 ' 生 成 字符 串 


strl1 = strl & wsl.Cells(2, j) & ": " & wsl.Cells(i + 2, j) 
IE j Mod 2 = 0 Then 
strl = strl & vbCrLf & vbCrLf 
Else 
Stri = Str1i & , ge 
End If 
Next 


With .slides.Add(Index:=i, Layout:=ppLayoutText) .Shapes 


' 添 加 一 个 幻灯 片 
.Title.TextFrame.TextRange = strName & " 出 厂 合格 证 " 
"添加 标题 
-Range (2) .TextFrame .TextRange=strl1 ' 添 加 正文 


End With 
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Next 
-SaveRs sFName "保存 演示 文稿 
End With 
Set wsl = Nothing 
Set pptPrs = Nothing 
Set pptApp = Nothing 
End Sub 


以 上 代码 首先 让 用 户 输入 保存 PowerPoint 的 文件 名 ， 接 着 从 工作 表 “ 合 格 证 ”中 获取 


相关 数据 ， 再 使 用 Slides 集合 中 的 Add 方法 添加 一 张 幻灯 片 ， 这 样 循环 处 理 将 每 辆 车 的 信 
息 生 成 一 张 幻灯 片 ， 最 后 保存 生成 的 幻灯 片 。 如 图 22-18 所 示 。 


京 Y12345 出 
， 车 型 : 丰田 。 发 动机 型 号 : 丰田 v8 


。 展 抢 (车身) 号 : 3ZMP0031822 。 维修 类 别 : 小 修 
。 维修 合同 编号 ，8238323 。 接 车 人 : 李 秀 

， 质量 检验 员 ， 张 质 检 。 进 厂 日 期 2008-02-01 
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图 22-18 ”创建 演示 文稿 


22.4 控制 Outlook 程序 


使 用 Outlook 对 象 模型 提供 的 对 象 进行 交互 时 ，Excel 可 以 方便 地 控制 这 些 Outlook 应 
用 程序 。 本 节 介 绍 用 Excel 控制 Outlook 发 送 邮件 、 读 取 Outlook 中 的 邮件 及 附件 等 方法 。 


22.4.1 了 解 Outlook 对 象 模型 


Outlook 是 Office 办 公 套 件 的 一 个 组 件 ， 是 基于 Microsoft Exchange 的 消息 系统 。 若 将 
Outlook 安装 到 一 台 没 有 其 他 任何 消息 组 件 的 计算 机 中 , 则 安装 程序 会 自动 安装 基于 MAPI 
的 Microsoft Exchange 消息 系统 。 

与 任何 一 种 消息 系统 一 样 ，Microsoft Exchange 使 用 一 个 层次 化 的 文件 夹 (Folder) 集 
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合 来 存储 数据 。 文 件 夹 可 以 包含 子 文件 夹 ( 如 收 件 箱 、 发 件 箱 等 ) 和 条 目 (Item) 〈 如 邮 
件 消息 、 约 会 、 联 系 人 和 任务 等 ) 。 

在 Outlook 对 象 模型 中 ，Application 对 象 包含 NameSpace 对 象 ; NameSpace 对 象 包含 
给 定数 据 源 〈 如 MAPI 消息 库 ) 中 所 有 文件 夹 ， 即 Folder 对 象 集合 ，Folder 对 象 包含 该 文 
件 夹 中 所 有 条 目 对 象 ， 每 个 条 目 对 象 包含 用 于 对 其 进行 控制 的 可 编程 对 象 。 

在 Excel 中 要 使 用 Outlook 对 象 模型 中 的 对 象 ， 需 在 VBE 工程 中 单 击 主 菜单 【工具 】| 
【引用 】 命 令 ， 打 开 如 图 22-19 所 示 的 对 话 框 ， 选 中 Microsoft Outlook 12.0 Object libraary 
复 选 框 ， 将 Outlook 对 象 库 添加 到 当前 工程 中 。 


引用 - YBAProject 


Ol DB Saris Conp on 


Tosoft PowerPoint 12.0 Objec 
Micro¥d -一 一 Er, 
Microsoft Renote Data Services 2.7 
Microsoft Renote Data Services 
Microsoft Rende; 

_ Mierosoft Seript Control 1.0 


Microsoft Scriptlet Libr' 


Mierosoft Outlook 12.0 Object Library 一 一 


定位 : Ci\Progran Files\Microsoft Office\OEficel2\MSOUTL 
语言 : 标准 


图 22-19 引用 Outlook 对 象 模型 
下 面 简单 介绍 Outlook 中 的 常用 对 象 : 
1. Application 对 象 
Application 对 象 表示 Outlook 应 用 程序 ， 它 是 Outlook 对 象 模型 中 最 高 级 的 对 象 。 此 
对 象 中 最 重要 的 成 员 包括 下 面 几 个 。 
口 CreateItem 方法 : 该 方法 创建 并 返回 新 的 Outlook 项 目 。 项 目 包括 电子 邮件 、 约会 、 


联系 人 、 任 务 、 日 记 条 目 、 便 签 以 及 投递 的 项 目 和 文档 。 
口 Explorers 属性 : 返回 Explorers 集合 对 象 ， 该 对 象 包含 表示 所 有 已 打开 浏览 器 的 


Explorer 对 象 。 
口 Inspectors 属性 : 该 属性 可 用 来 访问 显示 单个 项 〈 如 电子 邮件 或 会 议 要 求 ) 内 容 的 
窗口 。 


2. Explorer 对 象 


Explorer 对 象 表示 显示 包含 项 (如 电子 邮件 、 任 务 或 约会 ) 的 文件 夹 内 容 的 窗口 。 其 
包括 可 用 来 修改 窗口 的 方法 和 属性 ， 以 及 窗口 更 改 时 所 引发 的 事件 。 


3. Inspector 对 象 
Inspector 对 象 表示 一 个 显示 单个 项 〈 如 电子 邮件 、 任 务 或 约会 ) 的 窗口 。Inspector 对 
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象 类 包括 可 用 来 修改 窗口 的 方法 和 属性 ， 以 及 窗口 更 改 时 所 引发 的 事件 。 
4. Folder 对 象 


Folder 对 象 代 表 Outlook 文件 夹 。 

Folder 对 象 可 包含 其 他 Folder 对 象 以 及 Outlook 项目。 使 用 NameSpace 对 象 或 另 一 个 
Folder 对 象 的 Folders 属性 可 以 返回 NameSpace 中 或 某 个 文件 夹 下 面 的 文件 夹 集合 。 可 以 
首先 从 项 级 文件 夹 开始 《如 收 件 箱 ) ， 然 后 结合 使 用 Folder.Folders 属性 〈 该 属性 会 返回 层 
次 结构 中 Folder 对 象 下 面 的 文件 夹 集合 ) 和 Folders.Item 方法 (该 方法 会 返回 Folders 集合 
中 的 某 个 文件 夹 ) 导航 嵌 套 文件 夹 。 

使 用 Folders.Add 方法 可 以 将 文件 夹 添加 到 Folder 对 象 中 。 Add 方法 有 一 个 可 选 参数 ， 
用 于 指定 在 该 文件 夹 中 存储 的 项 目 类 型 。 默 认 情况 下 ， 在 不 同文 件 夹 中 创建 的 文件 夹 会 继 
承 其 父 文件 夹 的 类 型 。 


5. Mailltem 对 象 


MailItem 对 象 表示 收 件 箱 文件 夹 中 的 邮件 。 使 用 CreateItem 方法 可 创建 表示 新 邮件 的 
MailItem 对 象 。 使 用 Items (index) 可 从 收 件 箱 文件 夹 返回 单个 MailItem 对 象 ， 其 中 index 
是 邮件 的 索引 号 或 用 于 匹配 邮件 默认 属性 的 值 。 

Mailltem 对 象 的 属性 非常 多 ， 常 用 对 象 的 属性 含义 如 下 面 所 述 。 

口 UnRead: 如 果 尚 未 打开 (阅读) Outlook 项 目 ， 则 该 值 为 True。 

口 SenderName: Outlook 项 目的 发 件 人 的 显示 名 称 。 

SenderEmailAddress: Outlook 项 目的 发 件 人 电子 邮件 地 址 。 
Subject: Outlook 项 目的 主题 。 


[mm 


6. Taskltem 


TaskItem 对 象 表示 “任务 ”文件 夹 中 的 任务 要 在 指定 时 间 内 执行 的 分 配 的 、 代 理 的 
或 自愿 接受 的 任务 〉。 


22.4.2 用 Outlook 发 送 邮件 


通过 Outlook 对 象 提供 的 服务 ， 在 Excel 中 编写 代码 可 发 送 邮件 。 例 如 ， 在 如 图 22-20 
所 示 的 工作 表 中 输入 邮件 的 相关 内 容 ， 单 击 【 发 送 】 按 钮 ， 即 可 将 邮件 内 容 发 送 到 输入 的 
电子 邮箱 中 去 。 

如 果 邮 件 中 需要 添加 附件 ， 单 击 【 附 件 】 按 钮 ， 在 打开 的 对 话 框 中 选择 添加 的 文件 即 
可 ， 如 图 22-21 所 示 。 

可 按 以 下 步骤 完成 邮件 发 送 代码 的 编写 : 

(1) 参照 图 22-20 所 示 工 作 表 设置 邮件 编写 界面 。 

(2) 按 快 捷 键 AltrtF11 进入 VBE， 并 添加 对 Outlook 对 象 模型 的 引用 。 

(3) 编写 发 送 邮件 的 VBA 代码 如 下 : 
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辆 入 制 outlook 本 六 X 傍 容 模 击 


B 
1 发 送 邮 件 
2 | 收 件 人 地 址 : [rzg9138163. com 
3 邮件 主题 ， 膏 询 

| 在 Excel 中 发 送 邮 件 有 哪儿 

| 种 方法 ? 请 详细 告知 。 谢 

邮件 内 容 : | 澳 ! 


5 附件 ， 附件 


人 


图 22-20 发 送 邮 件 图 22-21 【选择 附件 】 对 话 框 


sub 发 送 邮件 () 
Dim strMail Rs String，SstrSubject As String 
Dim strBody As String, strAtt As String 


With ActiveSheet 


strMail = .Range("B2") " 收 件 人 地 址 
strSubject = .Range("B3") ' 邮 件 主题 
strBody = .Range("B4") ' 邮 件 内 容 
strAtt = .Range("B5") ' 附 件 

End With 


SendEmail strMail, strSubject, strBody, strAtt 
MsgBox "发 送 邮 件 完毕 ! "，vbInformation + vboKonly,， "提示 " 
End Sub 


以 上 代码 从 工作 表 中 获取 收 件 人 地 址 、 邮 件 主 题 、 邮 件 内 容 和 附件 ， 最 后 调用 
SendEmail 子 过 程 发 送 邮件 。 
(4) 编写 发 送 邮件 的 子 过 程 SendEmail 子 过 程 ， 具 体 代 码 如 下 : 


Function SendEmail (ByVal sMail As String, ByVal sSubject As String, 
ByVal sBody As String, sAtt As String) 
Dim olApp As Object 
Dim olNameSpace As Object 
Dim olFolder As Object 
Dim olMail As Object 
Set olApp = CreateObject ("Outlook.Application") 
Set olNameSpace = olApp.GetNamespace ("MAPI") 


Set olFolder = olNameSpace.GetDefaultFolder (6) 
Set olMail = olApp.CreateItem(0) 
With olMail 


.subject = sSubject ' 邮 件 主题 
.Recipients.Adqd sMail ' 收 件 人 地 址 
.Body = sBody ' 邮 件 内 容 
.Attachments.Add sAtt ' 邮 件 附 件 
-Send 
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End With 
End Function 


以 上 代码 首先 创建 Outlook 对 象 ， 再 设置 该 对 象 各 项 参数 ， 最 后 使 用 Send 方法 将 邮件 
发 送 到 目的 地 。 
(5) 在 发 送 邮件 时 ， 还 可 为 邮件 添加 附件 ， 代 码 如 下 : 
Sub 添加 附件 () 
Dim strl As String 
strl = Application.GetOpenFilename (Title:=" 选 择 附件 ") 
If strl = "False" Or strl = "" Then Exit sub 


ActiveSheet .Range ("B5") = strl 
End Sub 


添加 附件 的 代码 很 简单 ， 显 示 一 个 打开 文件 对 话 框 ， 将 用 户 选择 的 文件 名 显示 在 工作 
表 对 应 的 单元 格 即 可 。 


22.4.3 ”获取 Outlook 保存 的 邮件 


使 用 Outlook 程序 可 从 网 络 中 接收 邮件 ， 将 邮件 接收 到 本 地 计算 机 后 ， 不 联网 也 可 查 
看 邮件 内 容 。 

要 查看 本 地 计算 机 中 的 邮件 ,一般 也 需要 打开 Outlook 程序 。 在 Excel 中 引用 Outlook 
对 象 模型 后 ， 也 可 不 打开 Outlook 程序 就 从 Outlook 中 将 邮件 读 取出 来 。 

在 Outlook 中 ， 使 用 NameSpace 对 象 的 GetDefaultFolder 方法 可 返回 Folder 对 象 ， 表 
示 当 前 配置 文件 所 需 类 型 的 默认 文件 夹 。 该 方法 的 语法 格式 如 下 : 

表达 式 .GetDefaultFolder (FolderType) 

参数 FolderType 用 一 个 常量 表示 要 返回 的 默认 文件 夹 类 型 。 常 用 的 常量 有 以 下 几 种 。 

口 olFolderDrafts: 草稿 文件 夹 。 

口 olFolderInbox: 收 件 箱 文件 夹 。 

口 olFolderJournal: 日 记 文件 夹 。 

口 olFolderOutbox: 发 件 箱 文 件 夹 。 

口 olFolderSentMail: 已 发 送 邮件 文件 夹 。 

如 果 要 获取 Outlook 中 的 邮件 ， 需 设置 默认 文件 夹 为 olFolderInbox 〈 收 件 箱 ) 。 

下 面 的 VBA 代码 将 Outlook“ 收 件 箱 ” 中 的 内 容 导 入 Excel 工作 表 ， 让 用 户 不 打开 
Outlook 程序 也 能 阅读 邮件 内 容 。 

Sub 导入 邮件 () 

On Error Resume Next 


Dim olApp As New Outlook.Application, olNameSpace As Outlook.Namespace 
Dim olMailItem As Outlook.MailItem, olFolder As Outlook.Folder 


Set olNameSpace = olApp.GetNamespace ("MAPI") 
Set olFolder = olNameSpace.GetDefaultFolder (olFolderInbox) 
' 收 件 箱 
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For i = 1 To olFolder.Items.Count 
Set olMailItem = olFolder.Items (i) “' 获 取 一 个 邮件 项 目 
With olMailItem 
Activesheet .Cells(i + 2，1) = IIf(.UnRead, "未 读 "，" 已 读 ") 


' 状 态 
ActiveSheet.Cells(i + 2, 2) = .SenderName & "(" & .SenderEmail 
Address & ")" 
' 发 件 人 
ActiveSheet.Cells(i + 2, 3) = .Subject 
' 主 题 
End With 
Next 
End sub 
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文件 是 计算 机 程序 设计 中 的 一 个 重要 概念 。 所 谓 文 件 ， 是 指 保 存在 计算 机 磁盘 中 的 数 
据 的 集合 。 操作 系统 对 数据 的 管理 是 以 文件 为 单位 进行 的 。VBA 为 处 理 文件 提供 了 很 多 的 
命令 ， 本 章 将 详细 介绍 VBA 处 理 文件 的 方法 。 


23.1 常用 文件 操作 语句 


VBA 提供 了 很 多 语句 进行 文件 操作 , 这 是 传统 的 操作 文件 的 语句 。 这些 文件 操作 的 语 
旬 可 分 为 3 类 ， 分 别 为 文件 管理 、 文 件 创建 、 文 件 读 写 。 


23.1.1 文件 管理 语句 


文件 管理 语句 主要 用 来 对 已 有 文件 进行 查找 、 复 制 、 重 命名 和 删除 等 操作 。 
1. 查找 文件 一 一 Dir 函 数 


Dir 函数 返回 一 个 文件 名 或 文件 夹 名 称 ， 它 必须 与 指定 的 模式 或 文件 属性 、 磁 盘 卷 标 
相 匹 配 。 其 语法 格式 如 下 : 
Dir[(pathname[, attributes])] 


该 函数 的 两 个 参数 都 可 省 略 ， 各 参数 的 含义 如 下 所 述 。 

口 pathname: 用 来 指定 查找 的 内 容 ， 可 能 包含 文件 夹 或 驱动 器 。 如 果 没 有 找到 
pathname， 则 会 返回 零 长 度 字 符 串 〈"") 。 

口 attributes: 用 来 指定 文件 属性 , 将 返回 指定 属性 的 文件 或 文件 夹 。 如 果 省 略 此 参数 ， 
则 会 返回 匹配 pathname 但 不 包含 属性 的 文件 。 

attributes 参数 可 设 为 下 面 的 几 种 常量 。 

口 vbNormal: 指定 没有 属性 的 文件 ; 

口 vbReadOnly: 指定 无 属性 的 只 读 文 件 ; 

口 vbHidden: 指定 无 属性 的 隐藏 文件 ; 

口 

口 

口 


vbSystem: 指定 无 属性 的 系统 文件 ; 
vbVolume: 指定 卷 标 文件 ; 
vbDirectory: 指定 无 属性 文件 及 其 路 径 和 文件 夹 。 
Dir 会 返回 匹配 pathname 的 第 一 个 文件 名 。 若 想得到 其 他 匹配 pathname 的 文件 名 ， 
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可 再 一 次 调用 Dir， 且 不 需 使 用 参数 。 如 果 已 没有 合乎 条 件 的 文件 ， 则 Dir 会 返回 一 个 零 长 
度 字符 串 ("") 。 一 旦 返回 值 为 零 长 度 字符 串 , 并 需 再 次 调用 Dir 时 ,就 必须 指定 pathname， 
否则 会 产生 错误 。 
县 提 示 : 由 于 文件 名 并 不 会 以 特别 的 次 序 来 返回 ， 所 以 可 以 将 文件 名 存储 在 一 个 数组 中 ， 
然后 再 对 这 个 数组 排序 。 

例如 ， 以 下 代码 将 在 C:\Windows 文件 夹 中 查找 扩展 名 为 .ini 的 文件 ， 如 果 该 文件 夹 中 
有 超过 一 个 *.ini 文件 存在 ， 函 数 将 返回 第 一 个 按 条 件 找到 的 文件 名 。 

MyFile = Dir("C:\WINDOWS\*.ini") 


2. 重 命名 一 一 Name 语 句 
使 用 Name 语句 重新 命名 一 个 文件 或 文件 夹 。 该 语句 的 语法 格式 如 下 : 


Name oldpathname As newpathname 


Name 语句 的 语法 包含 下 面 两 部 分 的 内 容 。 
口 oldpathname: 指定 已 存在 的 文件 名 和 位 置 ， 可 以 包含 文件 夹 或 驱动 器 。 
口 newpathname: 指定 新 的 文件 名 和 位 置 ， 可 以 包含 文件 夹 或 驱动 器 。 而 由 
newpathname 所 指定 的 文件 名 不 能 存在 。 
Name 语句 重新 命名 文件 ， 并 将 其 移动 到 一 个 不 同 的 文件 夹 中 。Name 可 在 不 同 驱动 器 
之 间 移 动 文件 。 但 当 newpathname 和 oldpathname 都 在 相同 的 驱动 器 中 时 ， 只 能 重新 命名 
已 经 存在 的 文件 夹 。 


名 注意 : 在 一 个 已 打开 的 文件 上 使 用 Name， 将 会 产生 错误 。 所 以 必须 在 改变 名 称 之 前 ， 
先 关闭 打开 的 文件 。Name 参数 不 能 包括 多 字符 (* ) 和 单字 符 (? ) 的 通配符 。 


3. 删除 文件 一 一 Kill 语 句 
使 用 Kill 语句 可 从 磁盘 中 删除 文件 ， 其 语法 格式 如 下 : 
Kill pathname 


参数 pathname 是 用 来 指定 一 个 文件 名 的 字符 串 表达 式 。pathname 可 以 包含 文件 夹 或 
驱动 器 。 

Kill 支持 多 字符 (*) 和 单字 符 〈?) 的 通配符 来 指定 多 重文 件 。 例 如 ， 下 列 语句 删除 
当前 文件 夹 内 的 所 有 TEXT 文件 : 


Kill "*#.TXT" 

外 注意 : 如 果 使 用 Kill 来 删除 一 个 已 打开 的 文件 ， 则 会 产生 错误 。 
4. 删除 文件 夹 一 一 RmDir 语 句 
使 用 RmDir 语句 可 删除 一 个 文件 夹 ， 其 语法 格式 如 下 : 
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RmDir path 


参数 path 是 一 个 字符 串 表达 式 ， 用 来 指定 要 删除 的 目录 或 文件 夹 。path 可 以 包含 驱动 
器 。 如 果 没 有 指定 驱动 器 ， 则 RmDir 会 在 当前 驱动 器 上 删除 目录 或 文件 夹 。 


全 注意 : 如 果 想 要 使 用 RmDir 来 删除 一 个 伟 有 文件 的 文件 夹 ， 则 会 发 生 错误 。 在 试图 删除 
文件 夹 之 前 ， 可 以 先 使 用 Kill 语句 来 删除 所 有 文件 。 


5. 复制 文件 
FileCopy 语句 用 来 进行 文件 的 复制 操作 ， 该 语句 的 语法 格式 如 下 : 


FileCopy source, destination 


FileCopy 语句 的 语法 含有 以 下 这 些 命 名 参数 。 
口 source: 用 来 表示 要 被 复制 的 文件 名 。 其 可 以 包含 文件 夹 或 驱动 器 。 
口 destination: 用 来 指定 要 复制 的 目标 文件 名 。 其 可 以 包含 文件 夹 或 驱动 器 。 


全 注意 : 如 果 想 要 对 一 个 已 打开 的 文件 使 用 FileCopy 语句 ， 则 会 产生 错误 。 
6. 操作 文件 夹 的 语句 


在 Windows 操作 系统 中 ， 有 一 个 当前 文件 夹 的 概念 。 在 VBA 中 对 文件 进行 操作 时 ， 
如 果 未 指定 路 径 , 则 都 是 指 操作 当前 文件 夹 中 的 文件 。 下面 几 种 是 常用 的 操作 文件 夹 的 语句 。 

口 ChDir: 改变 当前 文件 夹 。 

口 ChDrive: 改变 磁盘 。 

口 MkDir: 新 建文 件 夹 。 

口 RmDir: 删除 文件 夹 。 

口 CurDir: 返回 当前 路 径 。 


23.1.2 创建 文件 语句 


使 用 VBA 语句 可 直接 创建 文本 文件 ， 下 面 简单 介绍 创建 文件 需要 用 到 的 语句 。 

1. 可 用 文件 号 一 一 FreeFile 函 数 

使 用 VBA 传统 语句 操作 文件 时 ， 首 先 必须 打开 文件 。 在 使 用 Open 语句 打开 文件 时 ， 
必须 为 文件 指定 一 个 文件 号 。 利 用 该 文件 号 才 可 以 从 文件 中 读 取 数据 或 向 文件 中 写 入 数据 。 

为 了 得 到 一 个 有 效 的 文件 号 ， 可 使 用 FreeFile 函数 ， 该 函数 返回 一 个 整 型 值 ， 代 表 下 
一 个 可 供 Open 语句 使 用 的 文件 号 。 

该 函数 的 语法 格式 如 下 : 

FreeFile[ (rangenumber)] 

参数 rangenumber 可 省 略 ， 它 指定 一 个 范围 ， 以 便 返 回 该 范围 之 内 的 下 一 个 可 用 文件 
号 。 指 定 0 (默认 值 ) 则 返回 一 个 介 于 1 一 255 之 间 的 文件 号 。 指定 1 则 返回 一 个 介 于 256 一 
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511 之 间 的 文件 号 。 


2 


打开 文件 一 一 Open 语 句 


对 文件 做 任何 WO (输入 /输出 ) 操作 之 前 都 必须 先 打开 文件 。Open 语句 分 配 一 个 缓冲 


区 供 文件 进行 TO 之 用 ， 并 决定 缓冲 区 所 使 用 的 访问 方式 。 


使 用 Open 语句 打开 文件 ， 其 语法 格式 如 下 : 


Open pathname For mode [Access access] [lock] As [#]filenumber [Len= 
reclength] 


Open 语句 的 语法 包含 下 面 几 部 分 内 容 。 


口 
口 


口 
口 


口 


口 


pathname: 指定 文件 名 ， 该 文件 名 可 能 还 包括 目录 、 文 件 夹 及 驱动 器 。 

mode: 指定 文件 方式 ， 可 设置 为 Append、Binary、Input、Onutput、 或 Random 方 

式 。 如 果 未 指定 方式 ， 则 以 Random 访问 方式 打开 文件 。 

Access: 说 明 打 开 的 文件 可 以 进行 的 操作 ， 有 Read、Write、 或 Read Write 操作 。 

lock: 说 明 限 定 于 其 他 进程 打开 的 文件 的 操作 ,有 Shared、Lock Read、Lock Write、 

和 Lock Read Write 操作 。 

filenumber: 一 个 有 效 的 文件 号 ， 范 围 在 1 一 511 之 间 。 使 用 FreeFile 函数 可 得 到 下 
-个 可 用 的 文件 号 。 

reclength: 小 于 或 等 于 32 767 ( 字 节 ) 的 一 个 数 。 对 于 用 随机 访问 方式 打开 的 文件 ， 

该 值 就 是 记录 长 度 。 对 于 顺序 文件 ， 该 值 就 是 缓冲 字符 数 。 


如 果 pathname 指定 的 文件 不 存在 ， 在 用 Append、Binary、Output、 或 Random 方式 打 
开 文 件 时 ， 可 以 建立 该 文件 。 


全 技巧 : 在 Binary、Input 和 Random 方式 下 可 以 用 不 同 的 文件 号 打开 同一 个 文件 ， 而 不 必 


3 


先 将 该 文件 关闭 。 在 Append 和 Output 方式 下 ， 如 果 要 用 不 同 的 文件 号 打开 同一 
个 文件 ， 则 必须 在 打开 文件 之 前 先 关闭 该 文件 。 


关闭 文件 一 一 Close 语 句 


在 文件 使 用 结束 后 ， 必 须 使 用 Close 关闭 文件 ， 释 放 文 件 号 。 其 语法 格式 如 下 : 

Close [filenumberlist] 

参数 flenumberlist 为 一 个 或 多 个 文件 号 ， 其 中 fenumber 为 任何 有 效 的 文件 号 。 若 省 
咯 filenumberlist， 则 将 关闭 Open 语句 打开 的 所 有 活动 文件 。 

当 关 闭 Output 或 Append 打开 的 文件 时 ， 将 属于 此 文件 的 最 终 输出 缓冲 区 写 入 操作 系 


统 缓冲 


区 。 所 有 与 该 文件 相关 联 的 缓冲 区 空间 都 被 释放 。 


在 执行 Close 语句 后 ， 文 件 与 其 文件 号 之 间 的 关联 将 终结 。 


23.1.3 ”向 文件 中 写 入 数据 


使 用 Open 语句 打开 或 创建 一 个 文件 后 , 就 可 以 使 用 返回 的 文件 号 向 文件 中 写 入 数据 。 
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1. Print # 语 句 
使 用 Print # 语 句 可 将 格式 化 显示 的 数据 写 入 顺序 文件 中 。 该 语句 的 语法 格式 如 下 : 


Print #filenumber, [outputlist] 

Print # 语 句 的 语法 包含 下 面 几 部 分 的 内 容 。 

口 filenumber: 为 使 用 Open 语句 打开 文件 时 获取 的 文件 号 。 

口 outputlist: 为 要 输入 到 文件 的 表达 式 或 表达 式 列 表 。 

输出 表达 式 outputlist 可 设置 为 以 下 内 容 : 

[{spc(n) | Tab[(n)]}] [expression] [charpos] 

口 spc(n): 用 来 在 输出 数据 中 插入 空白 字符 ， 而 n 指 的 是 要 插入 的 空白 字符 数 。 

口 Tab(n): 用 来 将 插入 点 定位 在 某 一 绝对 列 号 上 ， 这 里 “n” 是 列 号 。 使 用 无 参数 的 
Tab 将 插入 点 定位 在 下 一 个 打印 区 的 起 始 或 位 置 。 

口 expression: 要 打印 的 数值 表达 式 或 字符 串 表 达 式 。 

口 charpos: 指定 下 一 个 字符 的 插入 点 。 使 用 分 号 将 插入 点 定位 在 上 一 个 显示 字符 之 
后 。 用 Tab(m) 将 插入 点 定位 在 某 一 绝对 的 列 号 上 ， 用 无 参数 的 Tab 将 插入 点 定位 
在 下 一 个 打印 区 的 起 始 处 。 如 果 省 略 charpos， 则 在 下 一 行 打 印 下 一 个 字符 。 

2. Write # 语 句 


使 用 Write # 语 句 可 将 变量 中 的 数据 写 入 文件 中 。 其 语法 格式 如 下 : 

Write #filenumber, [outputlist] 

Wirite # 语句 的 语法 包含 下 面 几 部 分 的 内 容 。 

口 filenumber: 表示 需要 写 入 数据 的 文件 的 文件 号 。 

口 outputlist: 要 写 入 文件 的 数值 表达 式 或 字符 串 表 达 式 ， 用 一 个 或 多 个 去 号 将 这 些 表 

达 式 分 界 。 

如 果 省 略 outputlist， 并 在 filenumber 之 后 加 上 一 个 逗号 ， 则 会 将 一 个 空白 行 打印 到 文 

件 中 。 多 个 表达 式 之 间 可 用 空白 、 分 号 或 逗号 隔 开 。 空 白 和 分 号 等 效 。 


23.1.4 ”从 文件 中 读 出 数据 

使 用 Open 语句 打开 文件 后 ， 可 通过 VBA 相关 语句 从 文件 中 读 出 数据 ， 并 赋值 给 变量 
进行 处 理 。 

1.Input# 语 句 


使 用 Input # 语 句 从 已 打开 的 顺序 文件 中 读 出 数据 并 将 数据 指定 给 变量 。 该 语句 的 语法 
格式 如 下 : 


Input #filenumber, varlist 
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该 语句 的 语法 包括 以 下 几 部 分 的 内 容 。 

口 filenumber: 使 用 Open 语句 打开 的 文件 号 。 

口 varlist: 用 去 号 分界 的 变量 列表 ， 将 文件 中 读 出 的 值 分 配给 这 些 变量 ; 这些 变量 不 

可 能 是 一 个 数组 或 对 象 变量 。 

文件 中 数据 项 目的 顺序 必须 与 varlist 中 变量 的 顺序 相同 ， 而 且 与 相同 数据 类 型 的 变量 
匹配 。 如 果 变 量 为 数值 类 型 ， 而 数据 不 是 数值 类 型 ， 则 指定 变量 的 值 为 零 。 

在 输入 数据 项 目 时 ， 如 果 已 到 达 文件 结尾 ， 则 会 终止 输入 ， 并 产生 一 个 错误 。 

2.EOF 函 数 


使 用 Open 语句 打开 文件 后 ， 文 件 的 当前 位 置 位 于 文件 首部 ， 使 用 Input # 语 句 读 取 文 
件 的 部 分 数据 后 , 文件 的 当前 位 置 自动 向 后 移动 , 下 次 使 用 Input # 语 句 时 可 读 取 后 续 的 数据 。 

为 了 避免 因 试图 在 文件 结尾 处 进行 输入 而 产生 的 错误 , 可 使 用 EOF 函数 判断 当前 位 置 
是 否 已 到 了 文件 的 结尾 。EOF 函数 的 语法 格式 如 下 : 

EOF (filenumber) 

其 中 ， 参 数 filenumber 为 一 个 文件 号 。 

3. Line Input # 语 句 


使 用 Line Input # 语 句 从 已 打开 的 顺序 文件 中 读 出 一 行 并 将 它 分 配给 String 变量 。 该 语 
名 的 语法 格式 如 下 : 

Line Input #filenumber, varname 

Line Inpnut # 语 名 的 语法 包括 以 下 几 部 分 的 内 容 。 

口 filenumber: 使 用 Open 语句 打开 的 文件 号 。 

口 varmame: 保存 文件 值 的 变量 名 。 

Line Input # 语 名 一 次 只 从 文件 中 读 出 一 个 字符 ， 直 到 遇 到 回 车 符 《〈Chr(13)) 或 回 车 换 
行 符 《〈Chr(13) + Chr(10)) 为 止 。 回 车 换行 符 将 被 跳 过 ， 而 不 会 被 附加 到 字符 串 上 。 


23.2 文件 对 象 模型 


文件 对 象 模型 FSO 的 全 称 是 File System Object， 该 模型 提供 了 一 个 基于 对 象 的 工具 来 
处 理 文件 夹 和 文件 。 通 过 采用 面向 对 象 编程 的 语法 〈 使 用 objectmethod 这 种 方式 ) ， 将 一 
系列 文件 和 文件 夹 的 操作 通过 调用 对 象 本 身 的 属性 和 方法 来 实现 。 


23.2.1 文件 对 象 模型 简介 


FSO 对 象 模型 不 仅 可 以 像 使 用 传统 文件 操作 语句 那样 实现 文件 的 创建 、 改 变 、 移 动 和 
删除 ， 而 且 可 以 检测 是 否 存在 指定 的 文件 夹 ， 以 及 文件 夹 位 于 磁盘 上 的 什么 位 置 。FSO 对 
象 模型 还 可 以 获取 关于 文件 和 文件 夹 的 信息 ， 例 如 ， 名 称 、 创 建 日 期 或 最 近 修改 日 期 等 以 
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及 当前 系统 中 使 用 的 驱动 器 的 信息 。 
FSO 对 象 模 型 包含 在 Scripting 类 型 库 (Scrrun.dl) 中 ， 它 同时 包含 了 FileSystemObject、 
Drive、Folder、File 和 TextStream 等 5 个 对 象 。 
口 FileSystemObject 对 象 是 FSO 对 象 模型 中 最 主要 的 对 象 , 它 提供 了 一 套 完 整 的 可 用 
于 创建 、 删 除 文件 和 文件 夹 ; 收集 驱动 器 、 文 件 夹 、 文 件 相 关 信 息 的 方法 。 
口 Drive 对 象 用 来 收集 驱动 器 的 信息 ， 如 可 用 磁盘 空间 或 驱动 器 的 类 型 等 。 
口 Folder 对 象 用 于 创建 、 删除 或 移动 文件 夹 , 同时 可 以 进行 向 系统 查询 文件 夹 的 路 径 
等 操作 。 
口 File 对 象 的 基本 操作 和 Folder 大 致 相同 ， 所 不 同 的 是 Files 的 操作 主要 是 针对 磁盘 
上 的 文件 进行 的 。 
口 TextStream 对 象 则 是 用 来 完成 对 文件 的 读 写 等 操作 。 


外 注意 : FSO 对 象 模型 提供 的 方法 是 宛 余 的 ，FileSystemObject 对 象 的 方法 是 直接 作用 于 
其 余 对 象 ， 所 以 FileSystemObject 中 的 很 多 方法 与 其 他 4 种 对 象 的 方法 有 重复 ， 
读者 可 根据 实际 情况 或 上 下 文 环境 来 选择 使 用 某 个 对 象 提供 的 方法 。 


23.2.2 引用 FSO 对 象 


在 VBA 中 要 使 用 FSO 模型 中 的 对 象 ， 需 要 先 将 Scripting 类 型 库 加 入 工程 中 ， 具 体 方 
法 为 : 

(1) 在 VBE 中 单 击 主 菜单 【工具 】|【 引 用】 命令 , 打开 【引用 】 对 话 框 。 

(2) 在 【引用 】 对 话 框 中 找到 Microsoft Scripting Runtime 选项 ， 单 击 选中 ， 之 后 单 击 
【确定 】 按 钮 ， 如 图 23-1 所 示 。 


了 用 - YBAProject 


23-1 引用 FSO 对 象 模型 
通过 以 上 步骤 即 可 将 Scripting 类 型 库 加 入 到 当前 工程 中 。 即 可 在 VBA 程序 中 创建 
FileSystemObject 对 象 ， 并 引用 该 对 象 库 中 的 对 象 对 文件 进行 操作 。 
例如 ， 可 使 用 以 下 语句 声明 FSO 对 象 变量 。 
Dim fso As New Scripting.FileSystemObject 
以 上 声明 语句 使 用 了 New 关键 字 , 在 第 一 次 引用 该 变量 时 将 新 建 该 对 象 的 实例 ,因此 
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不 必 使 用 Set 语句 来 给 该 对 象 引用 赋值 。 若 不 使 用 New 关键 字 ， 则 需 使 用 以 下 两 条 语句 完 
成 上 面 的 功能 : 
Dim fso As Scripting.FileSystemobject 
Set fso = New Scripting.FileSystemObject 
全 提示 : 将 FSO 对 象 库 添 加 到 工程 中 以 后 ， 即 可 使 用 相关 对 象 提供 的 属性 和 方法 操作 驱 
动 器 、 文 件 和 文件 夹 。 具 体内 容 将 在 本 章 后 续 的 实例 中 进行 介绍 。 


23.3 ”获得 文件 信息 
在 处 理 文件 时 ,可 通过 传统 的 VBA 语句 或 FSO 对 象 模型 获取 磁盘 、 文 件 的 相关 信息 。 
23.3.1 获取 磁盘 信息 
在 FSO 对 象 模型 中 ， 通 过 Drive 对 象 提 供 对 磁盘 驱动 器 或 网 络 共享 的 属性 的 访问 。 


Drive 对 象 没 有 方法 ， 其 应 用 都 是 通过 属性 表现 出 来 的 ， 该 对 象 的 各 属性 分 别 如 下 面 


口 AvailableSpace: 返回 在 指定 的 驱动 器 或 网 络 共享 上 的 用 户 可 用 的 空间 容量 。 

口 DriveLetter: 返回 某 个 指定 本 地 驱动 器 或 网 络 驱动 器 的 字母 ， 该 属性 为 只 读 。 

口 DriveType: 返回 指定 驱动 器 的 磁盘 类 型 。 

口 FileSystem: 返回 指定 驱动 器 使 用 的 文件 系统 类 型 。 

口 FreeSpace: 返回 指定 驱动 器 上 或 共享 驱动 器 可 用 的 磁盘 空间 ， 该 属性 为 只 读 。 

口 IsReady: 确定 指定 的 驱动 器 是 否 准 备 好 。 

口 Path: 返回 指定 文件 、 文 件 夹 、 或 驱动 器 的 路 径 。 

口 RootFolder: 返回 一 个 Folder 对 象 ， 该 对 象 表 示 一 个 指定 驱动 器 的 根 文件 夹 。 其 
为 只 读 属性 。 

口 SerialNumber: 返回 用 于 唯一 标识 磁盘 卷 标的 十 进 制 序列 号 。 

口 ShareName: 返回 指定 驱动 器 的 网 络 共 享 名 。 

口 TotalSize: 以 字 节 为 单位 ， 返 回 驱 动 器 或 网 络 共享 的 总 空间 大 小 。 

口 VolumeName: 设置 或 返回 指定 驱动 器 的 卷 标 名 。 


使 用 以 下 代码 可 获取 磁盘 信息 ， 并 将 显示 到 工作 表 中 : 
Sub 获取 磁盘 信息 () 


Dim fso As New Scripting.FileSystemObject, oDrive As Scripting.Drive 
Dim i As Integer, sType Rs String, sh Rs Worksheet 


Set sh = Worksheets ("磁盘 信息 ") 
sh.Cells.Clear 

主 一 -1 

For Each oDrive In fso.Drives 
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本 
sh.Ccells(i，1) = oDrive.DriveLetter & " 盘 信 息 : " 
sh.Cells(i, 1) .Font.Bold = True 
=+1 
With oDrive 
Select Case .DriveType 
Case 0: sType = "不 明 " 
Case 1: sType = "可 移动 " 
Case 2: sType = "硬盘 " 
Case 3: sType = "网 络 驱动 器 " 
Case 4: sType = "CD-ROM" 
Case 5: sType = "RAM 驱动 器 " 
End Select 
sh.Cells (i，1) = "驱动 器 类 型 " & sType 
i 
sh.Cells (i，1) = "驱动 器 是 否 可 用 : " & IIf(.IsReady, "可 用 "，" 不 可 用 ") 
证 和 
IE .IsReady Then 
sh.Cells(i，1) = "驱动 器 容量 : " & Round (.Totalsize / 1024 / 1024， 
2) & "MB" 
了 
sh.Cells (i, 1) = "驱动 器 可 用 空间 : " & Round(.RAvailablespace / 1024 / 1024， 
2) & "MB" 
FE 
sh.Cells (i，1) = "驱动 器 剩余 空间 : " & Round(.Freespace / 1024 / 1024， 
2) & "MB" 
i=i+1 
sh.Cells (i，1) = "驱动 器 文件 系统 : " & .FileSystem 
FT 
sh.Cells (i，1) = "驱动 器 的 Volume 名 称 : " & .VolumeName 
End If 
End With 
Next 
sh.Columns (1) .AutoFit 
Set oDrive = Nothing 
Set fso = Nothing 
End sub 


以 上 代码 从 Drives 集合 分 别 获取 计算 中 的 每 一 个 磁盘 ， 再 通过 Drive 对 象 获取 每 个 磁 
盘 的 属性 ， 并 显示 在 工作 表 中 。 运 行 的 结果 如 图 23-2 所 示 。 


SR HEE 


图 23-2 ”获取 磁盘 信息 
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23.3.2 ”查看 文件 信息 


要 查看 文件 信息 ， 可 以 使 用 传统 VBA 语句 和 FSO 对 象 模型 两 种 方式 。 
1. 使 用 传统 VBA 语 句 查 看 文件 信息 


使 用 VBA 提供 的 下 面 几 种 函数 可 获取 文件 的 属性 。 
口 FileLen 函数 
该 函数 返回 一 个 代表 文件 长 度 的 长 整 型 值 ， 单 位 为 字 节 ， 其 语法 格式 如 下 : 


FileLen (Pathname) 


其 中 ， 参 数 pathname 是 用 来 指定 一 个 文件 名 的 字符 串 表 达 式 。pathname 可 以 包含 文 
件 夹 或 驱动 器 。 

当 调用 FileLen 函数 时 ， 如 果 所 指定 的 文件 已 经 打开 ， 则 返回 的 值 是 该 文件 在 打开 前 
的 大 小 。 若 要 取得 一 个 打开 文件 的 长 度 大 小 ， 可 使 用 LOF 函数 。 

口 GetAttr 函数 

该 函数 返回 一 个 文件 或 文件 夹 的 属性 ， 其 语法 格式 如 下 : 


GetAttr (pathname) 


pathname 参数 是 用 来 指定 一 个 文件 名 的 字符 串 表 达 式 。pathname 可 以 包含 文件 夹 或 
驱动 器 。 

该 函数 的 返回 值 可 能 是 下 面 各 数值 中 任意 数值 之 和 。 
vbNormal: 值 为 0， 表示 常规 文件 ; 
vbReadOnly: 值 为 1， 表 示 只 读 文件 ; 
vbHidden: 值 为 2， 表 示 隐 藏 文件 ; 
vbSystem: 值 为 4， 表 示 系 统 文件 ; 
vbDirectory: 值 为 16， 表 示 为 文件 夹 ; 
vbArchive: 值 为 32， 表 示 上 次 备份 以 后 ， 文 件 已 经 改变 ; 

若 要 判断 是 否 设 置 了 某 个 属性 ， 可 在 GetAttr 函数 与 想 要 得 知 的 属性 值 之 间 使 用 And 
运算 符 与 逐 位 比较 。 如 果 所 得 的 结果 不 为 零 ， 则 表示 设置 了 这 个 属性 值 。 例 如 ， 在 下 面 的 
And 表达 式 中 ， 如 果 档 案 (Archive) 属性 没有 设置 ， 则 返回 值 为 0: 


Result = GetAttr (FName) Rnd vbArchive 


如 果 文 件 的 档案 属性 已 设置 ， 则 返回 非 零 的 数值 。 

口 FileDateTime 函数 

该 函数 返回 一 个 日 期 值 (Date) ， 此 为 一 个 文件 被 创建 或 最 后 修改 后 的 日 期 和 时 间 ， 
其 语法 格式 如 下 : 


FileDateTime (pathname) 


其 中 , 参数 pathname 是 用 来 指定 一 个 文件 名 的 字符 串 表达 式 , 其 可 以 包含 文件 夹 或 驱 
动 器 。 


Vvvvyvyv 
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使 用 以 下 代码 可 显示 指定 文件 的 属性 。 
Sub 查看 文件 属性 () 


Dim sFileName As String, sType As String 
Dim i As Integer, iType As Integer 
sFileName = Application.GetOpenFilename (，，" 选 择 文 件 ") 


If sFileName = "False" Then Exit Sub ! 用 户 选 择 “ 取 消 ” 则 退出 程序 
With Worksheets ("文件 属性 ") 
-Cells.Clear ' 清 除 工 作 表 内 容 


Se a i 
.Cells(1, 2) = Mid(sFileName, InSstrRev(sFileName, "\") + 1) 
' 取 文件 名 
EeelIe[25 0) = "文件 大 小 3" 
.Cells(2, 2) = FileLen(sFileName) & "Byte" 
:Cells (3，1) = "文件 类 型 : " 
iType = GetAttr (sFileName) 
If iType And vbNormal = 0 Then 
sType = "常规 文件 " 
ElseIf iType And vbReadonly Then 
sType = "只 读 文 件 " 
BlseIf iType And vbHidden Then 
sType = "隐藏 文件 " 
ElseIf iType And vbSystem Then 
sType = "系统 文件 " 
ElseIf iType And vbArchive Then 
sType = "备份 文件 " 
ElseIf iType And vbDirectory Then 
sType = "文件 夹 " 
End If 
.Cells(3, 2) = sType 
.Cells (4，1) = "最 后 修改 时 间 : " 
.Cells(4, 2) = FileDateTime (sFileName) 
‘Columns ("A:B") .AutoFit 
End With 
End sub 


执行 以 上 代码 ， 首 先 将 显示 如 图 23-3 所 示 对 话 框 ， 在 该 对 话 框 中 选择 一 个 文件 后 ， 单 
击 【 打 开 】 命令 , 即 可 在 工作 表 “ 文 件 属性 ”中 显示 选择 文件 的 相关 属性 ， 如 图 23-4 所 示 。 


峡 革职 文 件 信息 xs = 
4 A B 
文件 各 : 长 取 文件 信息 . x1s 
文件 大 小 : 49152Bytc 
文件 类 型 : 窜 规 文件 
最 后 修改 时 间 : 2008-5-9 16:45 


Eri 
HU 二 


omanarot 


局 
ET 


MW] 文件 晤 性 Sheet ua 


图 23-3 【选择 文件 】 对 话 框 图 23-4 文件 属性 
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使 用 FSO 对 象 模型 查看 文件 属性 


在 FSO 对 象 模型 中 ，File 对 象 提供 了 对 文件 属性 的 访问 。 可 以 通过 GetFile 方法 从 
FileSystemObject 对 象 中 得 到 一 个 File 对 象 引 用 。File 对 象 的 属性 如 下 所 述 。 


口 


DoOOoOOOOOOODO 


Attributes: 返回 文件 的 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 : Normal (0) 、 
ReadOnly (1) 、Hidden (2) 、System (4) 、Volume (9) 、Directory (16) 、 
Archive (32) 。 

DateCreated: 返回 该 文件 夹 的 创建 日 期 和 时 间 。 

DateLastAccessed: 返回 最 后 一 次 访问 该 文件 的 日 期 和 时 间 。 

DateLastModified: 返回 最 后 一 次 修改 该 文件 的 日 期 和 时 间 。 

Drive: 返回 该 文件 所 在 的 驱动 器 的 Drive 对 象 。 

Name: 设 定 或 返回 文件 的 名 字 。 

ParentFolder: 返回 该 文件 的 父 文件 夹 的 Folder 对 象 。 

Path: 返回 文件 的 绝对 路 径 ， 可 使 用 长 文件 名 。 

ShortName: 返回 DOS 风格 的 8.3 形式 的 文件 名 。 

ShortPath: 返回 DOS 风格 的 8.3 形式 的 文件 绝对 路 径 。 

Size: 返回 该 文件 的 大 小 〈 字 节 ) 。 

Type: 如 果 可 能 ， 返 回 一 个 文件 类 型 的 说 明 字 符 串 〈 例 如 : Text Document 表示 .txt 
文件 ) 。 


使 用 FSO 对 象 模型 查看 文件 属性 的 VBA 代码 如 下 : 
Sub 用 Fso 显示 文件 属性 () 


Dim fso As New FileSystemObject, oFile As File 

Dim sType As String，strl As String, sFileName As String 

sFileName = Application.GetOpenFilename (，，" 选 择 文件 ") 

If sFileName = "False" Then Exit Sub ' 用 户 选 择 “ 取 消 ” 则 退出 程序 

Set oFile = fso.GetFile(sFileName) 

With oFile 
If (.Attributes And Normal) = Normal Then sType = sType & "普通 " 
If (.Attributes And Readonly) = Readonly Then sType = sType & "只 读 " 
If (.Attributes And Hidden) = Hidden Then sType = sType & "隐藏 " 
If (.Attributes And System) = System Then sType = sType & "系统 " 
If (.Attributes And Directory) = Directory Then sType = sType & 
Ca 
If (.Attributes And Archive) = Archive Then sType = sType & "存档 " 

End With 

With Worksheets ("文件 属性 ") 
-Range ("Al:B8") .ClearContents 
em 


.Cells(1, 2) oFile.Name 


-Cells (2，1) = "短文 件 名 : " 
.Cells(2, 2) = oFile.ShortName 
CeLll8 (3 7)" 江 件 路 径 v 
.Cells(3, 2) = oFile.Path 
-Cells(4，1) = "文件 类 型 : " 
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-Cells(4，2) 
-Cells(5，1) 
-Cells(5，2) 
.Cells(6，1) 
.Cells(6, 2) 
.Cells(7, 1) 
:Cells(7, 2) 
.Cells(8, 1) 
:Cells(8, 2) 
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sType 

人 件 天 小 3 

Round (oFile.Size / 1024, 2) & "KB" 
"所 在 驱动 器 : " 

oFile.Drive 

“所 在 文件 夹 漠 > 

oFile.ParentFolder 

"创建 时 间 : " 

oFile.DateCreated 


-Columns ("A:B") .AutoFit 


End With 


Set oFile = Nothing 
Set fso = Nothing 


End sub 


23.4 文件 管理 


在 Excel 中 ,编写 VBA 代码 可 方便 地 复制 、 删 除 文件 ， 为 文件 改名 ， 分 离 出 文件 的 名 


称 和 扩展 名 等 操作 。 


23.4.1 文件 是 否 存在 


在 对 文件 操作 之 前 ， 最 好 使 用 代码 判断 指定 的 文件 是 否 存在 。 使 用 Dir 函数 可 完成 这 
种 判断 。 例 如 ， 以 下 函数 可 判断 文件 是 否 存在 : 


Function FileExists(fname) As Boolean 
FileExists = Dir(fname) <> "" 


End Function 


函数 的 参数 为 要 判断 的 文件 名 ， 当 fname 参数 指定 的 文件 存在 ， 函 数 返回 True， 和 否则 


返回 False。 


以 下 代码 调用 FileExists 函数 判断 输入 的 文件 名 是 否 存在 : 


Sub 判断 文件 () 


Dim sFileName Rs String 
sFileName = Application.InputBox (prompt :=" 请 输入 文件 名 称 : "，_ 
Default :=ThisWorkbook .FullName，Title:=" 输 入 文件 名 称 "，Type:=2) 
IE sFileName = "False" Then Exit Sub "用 户 选择 "取消 " 则 退出 程序 
IE sFileName = "False" Then Exit Sub "用 户 选择 "取消 " 则 退出 程序 
IE FileExists(sFileName) Then 
MsgBox "文件 " & sFileName & " 存在 ! " 


Else 


MsgBox "文件 " & sFileName & " 不 存在 ! " 


End If 
End Sub 
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如 果 不 使 用 自 定义 的 函数 ， 也 可 使 用 FSO 对 象 的 FileExists 方法 判断 文件 是 否 存在 。 
如 果 使 用 FSO 对 象 模型 的 方法 来 改写 以 上 代码 ， 具 体 代码 为 : 
Sub FSO 判断 文件 () 


Dim fso As New FileSystemObject, sFileName As String 
sFileName = Application.InputBox (prompt :=" 请 输入 文件 名 称 : "，_ 
Default :=ThisWorkbook .FullName，Title:=" 输 入 文件 名 称 "，Type:=2) 
If sFileName = "False" Then Exit Sub ' 用 户 选 择 " 取 消 " 则 退出 程序 
IE fso.FileExists(sFileName) Then 
MsgBox "文件 " & sFileName & " 存在 ! " 
Else 


MsgBox "文件 " & sFileName & " 不 存在 ! " 
End If 
Set fso = Nothing 
End Sub 


23.4.2 ”复制 文件 


使 用 FileCopy 语 句 可 完成 文件 的 复制 操作 。 同 时 ,FSO 对 象 也 提供 了 一 个 名 为 FileCopy 
的 方法 ， 可 用 来 进行 文件 的 复制 操作 。 


1. 用 VB 语句 复制 文件 


使 用 FileCopy 语句 复制 文件 时 ， 需 要 确定 源 文件 和 目标 文件 。 如 果 使 用 InputBox 对 
话 框 让 用 户 输入 ， 则 用 户 需要 记 住 源 文件 的 位 置 ， 如 果 输 入 错误 的 路 径 ， 将 使 复制 操作 失 
败 。 下 面 的 代码 使 用 Application 对 象 的 GetOpenFilename 方法 显示 【打开 】 对 话 框 ， 以 方 
便 用 户 在 不 同 的 文件 夹 中 选择 源 文 件 。 同 样 ， 使 用 GetSaveAsFilename 方法 ， 可 让 用 户 输 
入 保存 文件 的 名 称 。 有 具体 代码 如 下 : 

Sub 复制 文件 () 


Dim SourceFile Rs String, DestinationFile Rs String 
On Error GoTo Errl 
SourceFile = Application.GetOpenFilename (，，" 选 择 源 文件 ") 
IE SourceFile = "False" Then Exit Sub  ' 用 户 选择 "取消 " 则 退出 程序 
DestinationFile = Application.GetSaveAsFilename (，，，" 输 入 目标 文件 名 ") 
If DestinationFile = "False" Then Exit Sub 
FileCopy SourceFile, DestinationFile 
MsgBox "复制 成 功 ! " 
Exit Sub 
Errl: 
If Err.Number <> 0 Then 
MsgBox "无 法 复制 该 文件 ! " 
End If 
End Sub 


以 上 代码 中 ， 使 用 了 错误 捕捉 语句 ， 在 复制 文件 过 程 中 出 现 不 可 预测 的 错误 时 ， 将 显 
示 出 错 提示 信息 。 
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2. 用 FSO 对 象 的 方法 复制 文件 


使 用 FSO 对 象 模型 中 的 CopyFile 方法 也 能 完成 文件 的 复制 操作 。 该 方法 可 将 一 个 或 
多 个 文件 从 某 位 置 复制 到 另 一 位 置 ， 其 语法 格式 如 下 : 


object .CopyFile source, destination[,overwritefiles] 


各 参数 的 含义 如 下 面 所 述 。 

口 source: 指定 源 文件 , 如 果 要 复制 的 是 一 个 或 多 个 文件 时 , 文件 名 中 可 以 有 通配符 。 

口 destination: 目标 位 置 ， 表 示 从 source 复制 文件 到 该 位 置 。 

口 overwritefiles: 设置 是 否 覆 盖 现 有 文件 。 如 果 是 True， 则 覆盖 文件 ， 如 果 是 False， 
则 不 覆盖 现 有 文件 .默认 值 是 True。 要 注意 ,无 论 overwrite 设置 为 何 值 ,只 要 设置 destination 
为 只 读 属 性 ，CopyFile 操作 就 无 法 完成 。 

在 source 参数 的 路 径 的 最 后 一 个 组 成 部 分 中 ， 可 使 用 通配符 。 例 如 ， 可 以 使 用 : 


fso.CopyFile "D:\DOC\*.doc", "E:\BAK\" 


如 果 source 包含 通配符 或 destination 以 路 径 分 隅 符 〈\) 结束 ， 则 假定 destination 是 现 
有 文件 来， 复制 匹配 文件 到 该 文件 夹 。 否 则 ， 假 定 destination 为 要 创建 的 文件 。 在 任 一 种 
情况 下 ， 复 制 单个 文件 时 ， 会 出 现 以 下 3 种 情况 。 
口 如 果 destination 不 存在 ， 则 复制 source。 
口 如 果 destination 是 已 经 存在 的 文件 ， 当 overwrite 为 False 时 会 出 现 错误 。 否则 , 复 
制 source 覆盖 现 有 文件 。 
口 如 果 destination 是 文件 夹 ， 则 将 源 文件 复制 到 该 文件 夹 中 。 


外 提示 : 如 果 source 使 用 通配符 ,但 并 没有 相 匹 配 的 文件 时 ， 则 会 出 现 错 误 。CopyFile 方 
法 将 在 遇 到 出 现 的 第 一 个 错误 时 停止 。 该 方法 不 会 撤销 错误 发 生前 所 作 的 任何 
更 改 。 


以 下 代码 使 用 FSO 对 象 的 FileCopy 方法 完成 文件 的 复制 操作 。 


Sub FSO 复制 文件 () 
Dim fso As New Scripting.FileSystemObject 
Dim SourceFile As String, DestinationFile As String 
On Error GoTo errl 
SourceFile = Application.InputBox (prompt :=" 请 输入 当前 文件 夹 中 需要 复制 文件 
的 名 称 : " & Ds 
vbCrLf & "〔 可 使 用 通配符 ):"，Title:=" 输 入 文件 名 "，Type:=2) 
If SourceFile = "Fase" Or SourceFile = "" Then Exit Sub 
If SourceFile = "Fase" Or SourceFile = "" Then Exit Sub 
DestinationFile = Application.InputBox( _ 
prompt :=" 请 输入 目标 文件 或 文件 夹 ( 以 “\、” 结 尾 ) 的 名 称 : "，_ 
Title:=" 目 标 文件 "，Type:=2) 
IE DestinationFile = "False" Or DestinationFile = "" Then Exit Sub 
SourceFile = ThisWorkbook.Path & "\" & SourceFile ' 工 作 簿 当前 位 置 
fso.CopyFile SourceFile, DestinationFile, True ' 复 制 操作 
MsgBox "复制 成 功 ! " 
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err1: 
Set fso = Nothing 
If Err.Number <> 0 Then 
MsgBox "复制 操作 未 完成 ! " 
End If 
End Sub 


以 上 代码 首先 让 用 户 输 入 源 文件 名 (可 用 通配符 表示 多 个 文件 ) ,再 输入 新 文件 名 (或 
目标 文件 夹 ) ， 最 后 调用 CopyFile 方法 完成 文件 的 复制 。 


23.4.3 ”分 离 文 件 名 和 扩展 名 


使 用 Application 对 象 的 GetOpenFilename 方法 和 GetSaveAsFilename 方法 ， 可 得 到 一 
个 表示 文件 位 置 和 名 称 的 字符 串 ， 在 很 多 情况 下 ， 都 需要 将 文件 路 径 、 名 称 、 扩 展 名 分 离 
出 来 。 

使 用 VBA 的 字符 串 处 理 函 数 可 表示 对 文件 名 的 这 3 部 分 进行 分 离 ， 具 体 代码 如 下 : 


Function SplitFilename (ByVal sFilename As String) As Variant 
Dim aRet (1 To 3) Rs String 
Dim i As Integer 
i = InstrRev(sFilename, "\") 
aRet (1) = Left(sFilename, i) 
sFilename = Mid(sFilename, i + 1) 
i = InstrRev(sFilename, ".") 
aRet (2) = Left(sFilename, i - 1) 
aRet (3) = Mid(sFilename, i + 1) 
SplitFilename = aRet 

End Function 


以 上 函数 将 文件 名 全 路 径 名 称 作为 参数 ， 对 其 进行 分 离 后 返回 到 一 个 数组 中 。 调 用 该 
函数 的 程序 需 使 用 一 个 数组 或 Variant 变量 来 接收 返回 值 。 例 如 ， 以 下 代码 可 调用 
SplitFilename 函数 ， 得 到 分 离 的 文件 名 。 

Sub 分 离 文件 名 () 

Dim sFilename Rs String, aRet Rs Variant 
sFilename = Application.GetopenFilename(，，" 选 择 源 文件 ") 
IE sFilename = "False" Then Exit sub "用 户 选择 "取消 " 则 退出 程序 
aRet = SplitFilename(sFilename) 
MsgBox "路 径 : " & aRet(1) & vbNewLine & _ 
"文件 名 : " & aRet (2) & vbNewLine & _ 
"扩展 名 : " & aRet (3) 
End Sub 


使 用 FSO 对 象 模型 提供 的 方法 ,可 快捷 地 处 理 文件 名 , 使 用 下 列 方法 即 得 到 文件 名 指 
定 部 分 的 内 容 。 
口 GetParentFolderName 方法 : 该 方法 根据 指定 路 径 中 的 最 后 成 分 返回 包含 其 父 文 件 
夹 名 称 的 字符 串 。 
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口 GetBaseName 方法 : 该 方法 返回 文件 的 基本 名 (不 带 扩展 名 )， 或 者 提供 的 路 径 说 
明 中 的 文件 夹 。 

口 GetExtensionName 方法 : 使 用 该 方法 获取 路 径 最 后 一 个 组 成 部 分 的 扩展 名 。 

下 面 的 代码 使 用 FSO 对 象 的 以 上 方法 来 显示 分 离 的 文件 名 信息 。 

Sub FSO 分 离 文件 名 () 


Dim fso As New FileSystemObject, sFileName As String 
Dim strl As String 


sFileName = Application.GetOpenFilename(，，" 选 择 源 文件 ") 
If sFileName = "False" Then Exit Sub 
MsgBox "路 径 : " & fso.GetParentFolderName (sFileName) & vbNewLine & _ 
"文件 名 : " & fso.GetBaseName (sFileName) & vbNewLine & _ 
"扩展 名 : " & fso.GetExtensionName (sFileName) 
Set fso = Nothing 
End Sub 


23.5 ”处理 文 件 夹 


很 多 情况 下 ， 在 VBA 中 操作 文件 夹 与 操作 文件 的 方法 类 似 。 例 如 ， 复 制 、 删 除 文件 
夹 等 操作 。 同 样 ， 对 文件 夹 的 处 理 也 可 采用 两 种 方式 : 传统 VBA 语句 和 使 用 FSO 对 象 模 
型 的 方法 。 本 节 介 绍 常用 的 文件 夹 操作 方法 。 


23.5.1 ”创建 文件 夹 


在 VBA 中 可 使 用 MkDir 语句 创建 一 个 新 的 文件 夹 。MkDir 语句 的 语法 格式 如 下 : 

MkDir path 

其 中 ， 参 数 path 不 能 省 略 ， 用 来 指定 所 要 创建 的 文件 夹 的 字符 串 。path 可 以 包含 驱动 
器 。 如 果 没 有 指定 驱动 器 ， 则 MkDir 会 在 当前 驱动 器 上 创建 新 的 文件 夹 。 

使 用 FSO 对 象 模型 中 的 CreateFolder 方法 也 可 创建 文件 夹 ， 该 方法 的 语法 格式 如 下 : 

object.CreateFolder (foldername) 


其 中 ， 参 数 foldername 为 指明 要 创建 的 文件 夹 。 
全 提示 : 如 果 指 定 的 文件 夹 已 经 存在 ， 则 会 出 现 错 误 。 


以 下 代码 提示 用 户 输入 新 建文 件 夹 名 称 ， 然 后 调用 FSO 对 象 的 CreateFolder 方法 创建 
一 个 文件 夹 。 
Sub 新 建文 件 夹 () 


Dim fso Rs New FileSystemObject 
Dim sFolder As String 
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sFolder = Application.InputBox (prompt :=" 请 输入 新 建文 件 夹 的 名 称 : "， 
Title:=" 输 入 文件 夹 名 称 "，Type:=2) 
If sFolder = "False" Or sFolder = "" Then Exit Sub 
sFolder = ThisWorkbook.Path & "\" & sFolder 
IE fso.FolderExists(sFolder) Then 
MsgBox "文件 夹 “" & sFolder & "” 已 经 存在 ! " 
Else 
fso.CreateFolder (sFolder)  ' 创 建文 件 夹 
MsgBox "文件 夹 “" & sFolder & "” 创 建 完成 ! " 
End If 
Set fso = Nothing 
End Sub 


以 上 代码 首先 让 用 户 输入 新 建 的 文件 夹 名 称 ， 接 着 判断 该 文件 夹 是 否 存 在 ， 若 不 存在 
则 使 用 CreateFolder 方法 创建 文件 夹 。 


23.5.2 ” 列 出 文件 夹 中 的 文件 


在 Windows 的 命令 模式 下 ,输入 命令 Dir， 可 显示 当前 文件 夹 中 的 文件 名 称 。 在 VBA 
中 ， 也 可 列 出 当前 文件 夹 (或 指定 文件 夹 ) 中 包含 的 文件 名 。 

使 用 CurDir 函数 可 返回 指定 磁盘 的 当前 的 路 径 。 其 语法 格式 如 下 : 

CurDir[ (drive)] 

参数 drive 是 一 个 字符 串 表 达 式 ， 它 指定 一 个 存在 的 驱动 器 。 如 果 没 有 指定 驱动 器 ， 
或 drive 是 零 长 度 字符 串 《"") ， 则 CurDir 会 返回 当前 驱动 器 的 路 径 。 

Dir 函数 可 返回 指定 路 径 下 ， 与 指定 的 模式 或 文件 属性 、 磁 盘 卷 标 相 匹配 的 一 个 字符 
串 。 首 先 在 程序 中 执行 以 下 语句 返回 指定 路 径 中 的 正常 文件 : 

Dir(sPath, 0) 

接着 循环 执行 无 参数 的 Dir 语句 : 

Dir(sPath, 0) 


即 可 获取 指定 文件 夹 下 的 所 有 文件 名 。 
以 下 代码 使 用 Dir 函数 列 出 指定 文件 夹 中 的 文件 : 


sub 列 出 文件 夹 的 文件 () 

Dim sPath As String, sFileName As String, i As Long 

sPath = Application.InputBox (prompt :=" 请 输入 文件 夹 的 全 路 径 名 称 : "，_ 
Default :=CurDir，Title:=" 输 入 文件 夹 "，Type:=2) 

If sPath = "False" Then sPath = CurDir 

sPath = sPath & "\" 

With Sheet1 
-Columns (1) .Clear 
.Cells(1，1) ="“" & sPath & "” 文 件 夹 中 的 文件 如 下 : " 
-Cells(1，1) .Font.Bold = True 
sFileName = Dir(sPath，0) 
主 = 工 
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Do While Len(sFileName) > 0 
.Cells(i + 1, 1) = sPath & sFileName 
sFileName = Dir() 
Lm 
Loop 
End With 
End Sub 


以 上 代码 首先 让 用 户 输 入 文件 夹 名 称 ( 默 认为 工作 短 所 在 文件 夹 ) ， 接 着 使 用 Dir 函 
数 获取 指定 文件 夹 中 的 第 一 个 文件 ， 再 使 用 循环 逐个 取出 指定 文件 夹 下 的 文件 名 填充 到 工 
作 表 中 。 


23.5.3 ” 列 出 文件 夹 名 称 


上 节 的 代码 使 用 Dir 函数 列 出 指定 文件 夹 中 的 文件 ， 若 在 Dir 函数 中 可 将 参数 设置 为 
以 下 形式 : 
Dir(sPath, 16) 
这 样 就 可 列 出 指定 文件 夹 中 包含 的 子 文件 夹 名 称 。 
要 想 获 得 子 文件 夹 更 详细 的 信息 , 可 使 用 FSO 对 象 提供 的 Folder 对 象 来 进行 操作 。 使 
用 GetFolder 方法 ， 根 据 指定 路 径 中 的 文件 夹 返 回 相应 的 Folder 对 象 。 
再 使 用 Folder 对 象 的 SubFolders 属性 ， 得 到 指定 文件 夹 中 所 有 子 文件 夹 (包括 隐藏 文 
件 夹 和 系统 文件 夹 ) 组 成 的 Folders 集合 。 对 该 集合 进行 循环 处 理 ， 即 可 得 到 所 有 文件 夹 
的 名 称 、 大 小 等 信息 。 
例如 ， 以 下 代码 可 列 出 D 盘 的 文件 夹 信息 : 
Sub D 盘 文件 夹 () 
Dim fso As New Scripting.FileSystemObject 
Dim sFolder As Folder, i As Integer 
On Error Resume Next 
mn 
With Worksheets("D 盘 ") 
For Each sFolder In fso.GetFolder("D:\").SubFolders 
.Cells(i, 1) = sFolder.Name 
.Cells(i, 2) = Round(sFolder.Size / 1024, 2) & "KB" 
.Cells(i, 3) = sFolder.ShortName 
> 
Next 
End With 


Set fso = Nothing 
End Sub 


23.5.4 删除 所 有 空 文件 夹 


随 着 磁盘 空间 的 越 变 越 大 ， 磁 盘 中 的 文件 夹 也 越 来 越 多 。 如 果 要 从 成 干 上 万 个 文件 夹 
中 查找 空 文件 夹 ， 并 将 其 删除 ， 将 是 一 个 非常 繁重 的 工作 (有 可 能 不 是 手工 可 以 完成 的 任 
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务 ) 。 这 时 ， 借 助 VBA 代码 ， 通 过 一 定 的 算法 可 快速 完成 该 任务 。 
例如 ， 下 面 的 代码 要 求 用 户 输入 一 个 文件 夹 名 称 ， 并 删除 该 文件 夹 及 其 子 文件 夹 中 所 
有 的 空 文件 夹 。 


Sub 删除 空 文件 夹 () 
Dim strPath Rs String 
strPath = Application.InputBox (prompt :=" 请 输入 文件 夹 名 称 : "，_ 
Title:=" 输 入 文件 夹 名 称 "，Default :=ThisWorkbook.Path, Type:=2) 
IE strPath = "Fase" Or strPath = "" Then Exit Sub 
Call DelEmtyDir (strPath) 
End Sub 


上 面 的 代码 调用 DelEmptyDir 子 过程 ， 用 来 删除 指定 路 径 下 的 空 文件 夹 。 该 子 过 程 的 
代码 通过 递归 调用 的 方法 来 遍历 指定 路 径 下 的 所 有 子 文件 夹 ， 并 使 用 文件 夹 对 象 Folder 的 
Size 属性 判断 文件 夹 是 否 为 宝 ， 如 果 Size 属性 返回 的 值 为 0， 则 表示 该 文件 夹 为 室 ， 调 用 
Folder 的 Delete 方法 将 其 删除 ， 具 体 代码 如 下 : 


Sub DelEmtyDir(ByVal strPath Rs String) 
Dim fso As New FileSystemObject 
Dim strDirName As String, LastDir As String 
Dim strFld Rs String, fld Rs Folder 
IE strPath = "Fase" Or strPath = "" Then Exit Sub 
IE Right (strPath, 1) <> "\" Then strPath = strPath & "\" 
strDirName = Dir(strPath，vbDirectory) ' 取 得 子 文件 夹 


Do While strDirName <> "" 
"指定 文件 夹 下 有 子 文件 夹 
If strDirName <>"." Rnd strDirName <>".."Then ' 判 断 是 否 为 子 文件 夹 
IE (GetAttr(strPath & strDirName) And vbDirectory) = vbDirectory 


Then 
LastDir = strDirName 
Set fld = fso.GetFolder (strPath & strDirName) 
If fld.size = 0 Then "文件 夹 大 小 为 0, 表示 为 空 
fld.Delete ' 删 除 该 文件 夹 
"取得 上 级 文件 夹 的 名 称 字符 串 
strFld = Left (strPath & strDirName, InstrRev(strPath$ & 
strDirName, "\") - 1) 
Call DelEmtyDir (strF1d) ' 递 归 调 用 本 过 程 删除 上 级 文件 夹 
Else "文件 夹 不 为 空 
Call DelEmtyDir (strPath & strDirName) 
"递归 调用 本 过 程 删除 下 级 子 文 件 夹 
End If 
strDirName = Dir(strPath, vbDirectory) ' 处 理 下 一 个 子 文件 夹 


Do Until strDirName = LastDir Or strDirName = "" 
strDirName = Dir 


Loop 
IE strDirName = "" Then Exit Do ' 如 果 没 有 子 文件 夹 , 则 退出 该 过 程 
End If 
End If 
strDirName = Dir ' 处 理 下 一 个 子 文件 夹 


Loop 
Bs 


Excel VBA 开发 技术 大 全 


Set fso = Nothing 
End Sub 
以 上 代码 使 用 了 递归 调用 的 方法 来 遍历 指定 路 径 下 的 所 有 子 文件 夹 。 在 递归 调用 时 ， 
必须 要 有 明确 条 件 能 退出 该 子 过 程 ， 以 上 代码 中 通过 下 面 的 条 件 来 退出 子 过 程 。 


IE strDirName = "" Then Exit Do 


23.6 ”处 理 文本 文件 


文本 文件 是 指 以 ASCII 码 方式 〈 也 称 文本 方式 ) 存储 的 文件 。 在 文本 文件 中 只 能 存储 
英文 、 数 字 、 汉 字 等 信息 ， 不 能 存储 声音 、 动 画 、 图 像 、 视 频 等 信息 。 


23.6.1 创建 文本 文件 


使 用 VB 的 语句 可 创建 文本 文件 ,也 可 使 用 FSO 对 象 模型 中 的 相关 方法 创建 文本 文件 。 
1. 使 用 VB 语句 创建 文本 文件 


使 用 VB 语句 操作 文件 的 一 般 步 又 如 下 : 
(1) 使 用 Open 语句 打开 文件 〈 使 用 指定 的 模式 打开 文件 ， 即 可 创建 文件 ) 。 
(2) 对 文件 进行 读 写 操作 。 
(3) 操作 完毕 后 ， 关 闭 文件 。 
以 下 代码 演示 创建 文件 、 写 入 数据 、 关 闭 文件 的 处 理 过 程 : 
Sub 创建 文本 文件 () 
Dim sFName As String, iFNumber As Integer, r Rs Long 
sFName = Application.InputBox (prompt :=" 请 输入 文本 文件 的 名 称 : "，_ 
Title:=" 输 入 文件 名 称 "，Type:=2) 
IE sFName = "False" Or SFName = "" Then Exit Sub 
sFName = ThisWorkbook.Path & "\" & sFName & ".txt" 


iFNumber = FreeFile "获取 可 用 文件 号 
Open sFName For Output As #iFNumber ' 用 Output 方式 打开 文件 
Write #iFNumber，" 新 建文 本 文件 " ' 向 文件 中 写 入 数据 
Close #iFNumber ' 关 闭 文件 

End Sub 


2. 使 用 FSO 对 象 模型 的 方法 创建 文本 文件 

更 方便 的 方法 是 使 用 FSO 对 象 模 型 来 创建 文本 文件 ， 常 用 的 方法 有 以 下 3 种 : 

(1) 使 用 FileSystemObject 对 象 的 CreateTextFile 方法 。 可 以 使 用 以 下 代码 创建 一 个 空 
的 文本 文件 : 

Dim fso As New FileSystemObject, fill As File 
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Set fil 1= fso.CreateTextFile (ThisWorkbook.Path & "NEest1.txtn， 


True) 


(2) 使 用 FileSystemObject 对 象 的 OpenTextFile 方法 ， 并 设置 ForWriting 标志 ， 有 具体 


代码 如 下 : 


Dim fso As New FileSystemObject, tsl As New TextStream 
Set tsl = fso.OpenTextFile(“c:\testfile.txt", ForWriting) 


(3) 使 用 File 对 象 的 OpenAsTextStream 方法 ， 并 设置 ForWriting 标志 ， 具 体 代 码 如 下 : 


Dim fso Rs New FileSsystemObject, fill As File, ts As TextStream 


Set fill = fso.GetFile("C:\Test.txt") 
Set ts = fill.OpenAsTextSstream(ForWriting) 


以 下 代码 使 用 FileSystemObject 对 象 的 CreateTextFile 方法 ,创建 一 个 文本 文件 ， 并 向 


文件 中 写 入 一 个 测试 数据 。 
Sub FSO 创建 文本 文件 () 
Dim fso As New PileSystemobJject 


Dim oStream As TextStream 
Dim sFName As String 


sFName = Application.InputBox (prompt :=" 请 输入 文本 文件 的 名 称 : "， 


Title:=" 输 入 文件 名 称 "，Type:=2) 
If sFName = "False" Or sFName = "" Then Exit Sub 
sFName = ThisWorkbook.Path & "\" & sFName & ".txt" 
' 创 建文 本 流 对 象 


Set oStream = fso.CreateTextFile(Filename:=sFName, OverWrite:=True) 


oStream.WriteLine "新 建文 本 文件 " ' 向 文本 流 对 象 中 写 入 数据 
osStream.Close ' 关 闭 文本 流 对 象 
Set oStream = Nothing 
Set fso = Nothing 
End sub 


以 上 代码 首先 让 用 户 输入 文件 名 ， 接 着 用 CreateTextFile 方法 创建 一 个 TextStream 文 


本 流 对 象 ， 并 使 用 文本 流 对 象 的 WriteLine 方法 向 文件 中 写 入 数据 。 


23.6.2 ”工作 表 保 存 为 文本 文件 


使 用 Workbook 对 象 的 SaveAs 方法 ， 可 以 将 工作 表 的 内 容 另 存 为 文本 文件 。 例如， 下 


面 的 代码 将 工作 表 Sheetl 中 的 数据 保存 为 文本 文件 : 
Sub 工作 表 保存 为 文本 文件 () 


Dim sFName As String 

sFName = Application.InputBox(prompt:=" 请 输入 文本 文件 的 名 称 : "， 
Title:=" 输 入 文件 名 称 "，Type:=2) 

IE sFName = "False" Or SFName = "" Then Exit Sub 

SEName = ThisWorkbook.Path & "\" & SFName & ".txt" 

On Error Resume Next 

IE Len(Dir(sFName, vbDirectory)) > 0 Then 


If MsgBox ("该 文件 已 经 存在 ,是否 删除 ? ", vbQuestion + vbYesNo) = vbYes Then 
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Kill sFName "删除 已 有 的 同名 文件 


Else 
Exit Sub 

End If 
End If 
On Error GoTo 0 
Set ws1 = Worksheets ("Sheet1") 
ActiveWorkbook.SaveAs Filename:=sFName, FileFormat:=xlCSV 
MsgBox "保存 成 功 ! " 
ActiveWorkbook.Close SaveChanges:=False 

End Sub 


以 上 代码 首先 让 用 户 输入 需要 保存 的 文本 文件 名 称 ， 接 着 检查 该 文件 是 否 已 经 存在 。 
如 果 文 件 存 在 ， 则 提示 用 户 是 否 删除 。 最 后 使 用 SaveAs 方法 将 当前 工作 短 另 存 为 文本 文 
件 格式 的 文件 。 


23.6.3 ”添加 数据 到 文本 文件 


在 FSO 对 象 模型 中 , 打开 文件 后 就 可 向 文件 中 添加 数据 ,打开 文件 的 方法 有 以 下 两 种 。 
口 OpenTextFile 方法 : 该 方法 为 FileSystemObject 对 象 提供 的 方法 ， 用 来 打开 指定 的 
文件 并 返回 一 个 TextStream 对 象 ， 可 以 通过 这 个 对 象 对 文件 进行 读 、 写 或 追加 。 

口 OpenAsTextStream 方法 : 该 方法 是 File 对 象 提供 的 ， 用 于 打开 指定 的 文件 并 返回 
-个 TextStream 对 象 ， 可 以 通过 这 个 对 象 对 文件 进行 读 、 写 或 追加 。 

使 用 以 上 两 种 方法 打开 文件 后 ， 都 将 返回 一 个 TextStream 对 象 ， 使 用 该 对 象 的 方法 可 
向 文本 文件 中 添加 数据 ， 常 用 的 方法 有 以 下 几 种 。 
口 Write 方法 : 将 给 定 的 字符 串 写 入 到 一 个 TextStream 文件 中 ， 不 换行 。 
口 _ WriteLine 方法 : 向 TextStream 文件 中 写 入 给 定 的 字符 串 和 一 个 换行 符 。 
口 WriteBlankLines 方法 : 将 指定 数量 的 换行 符 写 入 到 一 个 TextStream 文件 中 。 
例如 ， 以 下 代码 向 己 有 文本 文件 添加 数据 : 
Sub 添加 数据 到 文本 文件 () 
Dim fso As New FileSystemObject 
Dim oStream As TextStream 
Dim sFName As String 


sFName = Application.GetOpenFilename (" 文 本 文件 (* .上 txt) ,*.txt, 所 有 文件 
(Ca ,本 中 my， 
天 机 六 本 文 作 吨 
IE sFName = "False" Then Exit Sub 
"打开 文件 为 文本 流 对 象 


Set oStream = fso.OpenTextEile (Filename:=sFName, IOMode:=ForAppending) 


With oStream ' 追 加 数据 
.WriteLine "追加 测试 数据 第 1 行 ! " 
-WriteLine "追加 测试 数据 第 2 行 ! " 
-WriteLine "追加 测试 数据 第 3 行 ! " 

End With 
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oStream.Close ”' 关 闭 文本 流 对 和 象 
Set oStream = Nothing 
Set fso = Nothing 

End Sub 


以 上 代码 首先 让 用 户 选择 要 添加 数据 的 文本 文件 名 称 ， 以 数据 追加 方式 
(ForAppending) 打开 该 文件 ， 并 将 其 引用 赋值 给 一 个 文本 流 对 象 ， 然 后 使 用 WriteLine 方 
法 向 文件 中 追加 数据 ， 最 后 关闭 文本 流 对 象 ， 完 成 数据 的 追加 操作 。 


23.6.4 读 取 文本 文件 中 的 数据 


与 写 入 数据 相对 应 的 ， 就 是 从 文本 文件 中 读 取 数据 。 同 样 ， 可 使 用 传统 的 VBA 语句 
从 文本 文件 中 获取 数据 ， 也 可 使 用 FSO 对 象 模型 提供 的 方法 来 获取 数据 。 


1. 使 用 VBA 语 句 获取 文件 中 的 数据 


可 使 用 Input # 语 句 、Line Input # 语 句 等 从 打开 的 文件 中 读 取 数据 。 在 从 文件 读 取 数 据 
之 前 ， 先 要 使 用 Open 语句 打开 文件 ， 这 时 需 使 用 Input 模式 打开 文件 。 
例如 ， 下 面 的 代码 从 文本 文件 中 读 取 数据 ， 并 填写 到 当前 工作 表 中 : 
Sub 读 取 文本 文件 数据 () 
Dim strl As String, sFName Rs String, iFNumber As Integer, r Rs Long 
sFName = Application.GetOpenFilename ("文本 文件 (*.txt),*.txt, 所 有 文件 
[Gd 本。 本 昌 ， 
D0 "打开 实 本 文件 
IE sFName = "False" Then Exit Sub 
iFNumber = FreeFile ' 获 取 可 用 文件 号 
Open sFName For Input As #iFNumber ' 用 Input 方式 打开 文件 
ActiveSheet .Cells.Clear 
r=2 
Do 
Line Input #iFNumber, strl 
ActiveSheet.Cells(r, 1) = strl 
天 
Loop Until EOF (iFNumber) 
Close #iFNumber ' 关 闭 文件 
End Sub 


使 用 Line Input #i 语 句 ， 一 次 可 从 指定 的 文件 中 读 取 一 行 数据 。 以 上 代码 通过 循环 ， 反 
复 从 文本 文件 中 读 取 数 据 , 直到 文件 结束 为 止 。 使 用 函数 EOF 可 检查 是 否 已 经 到 文件 结尾 。 

2. 使 用 FSO 对 象 模型 的 方法 获取 文件 数据 

使 用 FSO 对 象 模型 中 的 OpenTextFile 方法 或 OpenAsTextStream 方法 打开 文本 文件 时 ， 
设置 IOMode 参数 为 ForReading 模式 ， 这 时 打开 的 TextStream 对 象 只 能 读 取 数据 。 


TextStream 对 象 提供 了 以 下 几 个 方法 读 取 数 据 。 
口 Read 方法 : 从 TextStream 文件 中 读 取 指定 数量 的 字符 , 并 返回 由 此 得 到 的 字符 串 。 
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口 ReadLine 方法 : 从 TextStream 文件 中 读 取 一 整 行 〈 一 直到 换行 符 ， 但 不 包括 换行 
符 ) ， 并 返回 由 此 得 到 的 字符 串 。 

口 ReadAll 方法 : 读 取 TextStream 文件 的 全 部 内 容 并 返回 由 此 得 到 的 字符 串 。 

以 下 代码 使 用 ReadLine 方法 从 文本 文件 中 逐 行 读 取 数 据 。 


Sub PSO 读 文件 数据 () 
Dim fso As New FileSystemObject, oStream Rs TextStream 


Dim sFName As String, strl Rs String, r Rs Long 


sFName = Application.GetOpenFilename ("文本 文件 (*.txt),*.txt, 所 有 文件 
和 

Te 
If sFName = "False" Then Exit Sub 

"打开 文件 创建 文本 流 对 象 

Set osteam = fso.OpenTextFile (Filename:=sFName, IOMode:=ForReading) 
ActiveSheet .Cells.Clear 
r=2 
Do 

strl = oStream.ReadLine 

ActiveSheet.Cells(r, 1) = strl 
Loop Until ostream.AtEndOofstream 
oStream.Close ' 关 闭 文件 
osteam.Close ' 关 闭 文件 
Set oStream = Nothing 
Set fso = Nothing 

End Sub 


以 上 代码 使 用 TextStream 对 象 的 AtEndOfStream 属性 判断 文件 是 否 已 到 结尾 。 如 果 文 
件 指针 位 于 TextStream 文件 末 ， 该 属性 返回 Tme; 否则 返回 False。 
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ADO (ActiveX Data Objects) 是 微软 最 新 的 数据 访问 技术 。 它 被 设计 用 来 提供 通用 数 
据 访问 。 使 用 ADO 可 访问 各 种 数据 库 中 的 数据 ， 还 可 访问 Excel 工作 短 、 文 本 文件 等 文件 
中 的 数据 。 


24.1 SQL 结构 查询 概述 


结构 化 查询 语言 SQL (Structured Query Language) 是 目前 各 种 关系 数据 库 系 统 广泛 采 
用 的 标准 语言 ，ADO 对 象 通过 SQL 语言 来 操作 数据 库 中 的 数据 。 


24.1.1 结构 化 查询 简介 


SQL 语言 称 为 “结构 化 查询 语言 ”， 具 有 4 部 分 功能 ， 即 查询 、 操 纵 、 定 义 和 控 制 。 
这 4 大 功能 使 SQL 语言 成 为 通用 的 、 功 能 强大 的 关系 数据 库 语言 。 

SQL 语言 的 功能 强大 ， 但 其 语法 却 很 简单 。 完 成 核心 功能 一 共用 了 8 个 命令 ， 各 命令 
及 功能 如 下 所 述 。 

口 SELECT: 用 于 检索 数据 ， 这 是 使 用 得 最 多 的 一 个 命令 ; 
INSERT: 用 于 增加 数据 到 数据 库 ; 
UPDATE: 用 于 从 数据 库 中 修改 现存 的 数据 ; 
DELETE: 用 于 从 数据 库 中 删除 数据 ; 
CREATE: 用 于 创建 用 户 和 数据 库 等 ; 
DROP: 用 于 删除 表 及 索引 ; 
GRANT: 用 于 对 用 户 进行 授权 ; 
REVOKE: 用 于 收回 用 户 的 授权 。 

在 Excel 中 使 用 数据 库 时 ， 主 要 使 用 检索 数据 、 插 入 数据 、 更 新 数据 、 删 除数 据 等 功 
能 ， 下 面 将 简单 介绍 这 些 功 能 。 在 使 用 SQL 语句 操作 数据 库 之 前 ， 应 知道 操作 的 数据 库 及 
表 结 构 。 本 节 使 用 的 数据 库 为 “人 事 管理 库 ”， 其 中 包含 表 Emp〔 保 存 员工 基本 数据 〉， 
该 表 有 9 列 数据 ， 如 表 24-1 所 示 。 


口 
口 
口 
口 
口 
口 


口 


表 24-1 表 Emp 的 列 


身份 证 号 


EmpID 
EmpName EmpTelephone | 电话 EmpEmail 一 
EmpSex 加 EmpAddress 地 址 EmpMemo 
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24.1.2 ”查询 语句 SELECT 


SQL 语言 的 核心 是 数据 库 查询 语句 SELECT， 该 语句 的 功能 非常 强大 ， 语 法 格式 中 的 
关键 字 很 多 ,下面 列 出 最 常用 的 一 些 关键 字 。 更 详细 的 语法 描述 可 参考 数据 库 方 面 的 书籍 。 

SELECT [DISTINCT] columnl , column2 ，... 

FROM tablenamel , tablename2 ，..-. 


[WHERE... ] 
[ORDER BY...[ASC | DESC] ] 


该 语句 的 功能 是 : 从 FROM 子 句 中 给 出 的 表 中 查询 数据 , 符合 WHERE 子 句 中 设置 条 
件 的 记录 将 被 筛选 出 来 , 被 选 出 的 数据 只 包含 SELECT 子 句 后 面 设置 的 列 , 并 且 按 ORDER 
BY 子 句 中 设置 的 列 进行 排序 。 关 键 字 ASC 为 默认 值 ， 表 示 查 询 得 到 的 数据 按 升 序 排列 ， 
车 使 用 DESC， 则 表示 按 降序 排列 。 

最 简单 的 查询 语句 如 下 : 

SELECT * 

FROM Emp 


以 上 SQL 语句 从 名 为 Emp 的 表 中 返回 所 有 列 和 所 有 记录 〈 即 查看 整个 表 的 数据 ) 。 
使 用 星 号 〈* ) 表示 从 表 Emp 中 检索 数据 时 包含 所 有 的 列 。 

以 下 语句 将 从 表 Emp 中 返回 编号 、 姓 名 、 性 别 3 列 的 数据 ,并且 返回 的 数据 要 满足 年 
龄 大 于 等 于 50 这 个 条 件 〈 即 查找 年 龄 50 以 上 人 员 的 姓名 和 性 别 ) 。 

SELECT EmpID , EmpName , EmpSex 

FROM Emp 

WHERE EmpAge>=50 

查询 身份 证 编号 前 3 位 数 为 “101” 人 员 的 语句 如 下 : 

SELECT * 

FROM Emp 

WHERE EmpIDCard LIKE '101*'; 

查询 年 龄 小 于 30 岁 的 人 员 ， 并 按 姓 名 排序 的 语句 如 下 : 

SELECT * 

FROM Emp 

WHERE EmpAge<30 

ORDER BY EmpName 

为 了 增强 查询 功能 ，SQL 语言 提供 了 一 些 内 置 函 数 来 方便 用 户 查 询 ， 这 些 函 数 称 为 库 
函数 ， 常 用 的 库 函 数 有 以 下 几 种 。 

口 COUNT: 对 一 列 中 的 值 计 算 个 数 ; 

口 COUNT(*): 统计 满足 条 件 的 记录 数 ; 

口 SUM: 求 某 一 列 值 的 总 和 “〔 列 必须 为 数值 型 〉; 

口 AVG: 求 某 一 列 值 的 平均 值 ; 
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口 MAX: 求 某 一 列 中 的 最 大 值 ; 
口 MIN: 求 某 一 列 中 的 最 小 值 。 
查询 性 别 为 “ 男 ” 人 员 的 数量 ， 可 用 以 下 语句 : 
SELECT COUNT (*) 


FROM Emp 
WHERE EmpSex= " 男 " 


24.1.3 插入 语句 INSERT 


使 用 INSERT 语句 ， 可 向 数据 表 中 增加 记录 ， 该 语句 的 格式 如 下 : 


INSERT INTO target [(field1i[, field2[, ...]])] 
VALUES (valuel[, value2[, ...]] 


向 Emp 中 增加 一 个 人 员 资 料 的 语句 如 下 : 


INSERT INTO Emp (EmpId , EmpName , EmpSex , EmpAge , EmpTelephone , EmpAddress, 
EmpIDCard , EmpEmail , EmpMemo) 

VALUES('2008028',' 吴杰 '，'， 男 ',25,'8010888'，' 建 设 路 12 号 '， 
'423123234123456787'，, 'jueewe@163.com', '') 


以 上 语句 向 Emp 表 的 每 一 列 中 都 增加 了 数据 , 对 于 这 种 方式 插入 数据 ,可 省 略 表 名 右 
侧 的 列表 名 称 ， 简 写 为 以 下 样式 : 


INSERT INTO Emp 
VALUES('2008028',， 吴杰 '， ， 男 25,'8010888'， '! 建设 路 12 号 '， 
'423123234123456787', 'jueewe@163.com', ''); 


在 以 上 语句 中 ， 各 列 的 值 必须 按 表 中 列 的 顺序 给 出 。 
24.1.4 修改 语句 UPDATE 


修改 语句 也 称 为 更 新 语句 ， 可 修改 表 中 满足 条 件 记录 的 对 应 列 的 值 ， 其 格式 如 下 : 


UPDATE tablename 
SET columnl=newvaluel , column2=newvalue2 ，... 
WHERE criteria; 


修改 编号 为 2008028 人 员 的 年 龄 为 30， 可 使 用 以 下 语句 : 
UPDATE Emp 


SET EmpAge=30 
WHERE EmpID='2008028' 


24.1.5 ”删除 语句 DELETE 


删除 语句 用 来 删除 表 中 满足 指定 条 件 的 记录 ， 其 格式 如 下 : 


.485 


Excel VBA 开发 技术 大 全 


DELETE FROM tablename 
WHERE criteria 


DELETE 语句 删除 指定 表 中 满足 条 件 的 记录 。 

例如 ， 删 除 表 Emp 中 年 龄 大 于 60 的 记录 ， 其 语句 如 下 : 
DELETE FROM Emp 

WHERE EmpAge>60 


名 注意 : 如 果 省 略 WHERE 子 句 ， 则 将 指定 表 中 的 所 有 记录 都 删除 ! 


24.2 ADO 对 象 模型 


ADO (ActiveX Data Objects) 是 微软 最 新 的 数据 访问 技术 。 其 主要 优点 是 易于 使 用 、 
高 速度 、 低 内 存 支 出 和 占用 磁盘 空间 较 少 。 


24.2.1 ADO 对 象 模型 


在 VBA 中 使 用 ADO 对 象 ， 必 须 先 为 前 工程 引 MOB 


可 使 用 的 引用 (A) 


用 ADO 的 对 象 库 ， 可 单 击 主 菜单 【工具 ] | 引用 】 
命令 ,打开 [引用 J] 对话 框 ,在 列表 框 中 找到 Microsoft 
ActiveX Data Objects 2.8 Library 选项 并 选中 ， 如 
图 24-1 所 示 。 

ADO 对 象 模型 定义 了 一 个 可 编程 的 分 层 对 象 
集合 , 主要 由 三 个 对 象 成 员 (Connection、Command 
和 Recordset) 和 集合 对 象 Errors、Parameters 及 Fields 


等 组 成 ， 如 图 24-2 所 示 。 国 244 -同和 DO 济 猴 
Connection Connection 
Errors Hl Error | i 
Command 
i | Ce] 
Field 


Recordset 
| Fl Hi Field | Properties | | Property 


24-2 ADO 对 象 模型 
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24.2.2” Connection 对 象 


Connection 对 象 表示 数据 源 的 连接 ， 通 过 该 对 象 可 生成 ADO 层次 中 的 其 他 对 象 ， 其 
返回 值 是 一 个 Recordset 对 象 。 

Connection 对 象 提 供 属 性 和 方法 对 连接 进行 控制 。 

1. 设置 连接 字符 串 

ConnectionString 属性 是 Connection 对 象 最 常用 的 属性 , 设置 用 于 建立 连接 数据 源 的 信 
息 。 通 过 传递 包含 一 系列 由 分 号 分 隔 的 argument = value 语句 的 详细 连接 字符 串 可 指定 数 
据 源 。 连 接 到 不 同 的 数据 库 时 其 连接 字符 串 也 不 同 。 

以 下 连接 字符 串 连接 到 名 为 “人 事 管 理 .mdb” 的 Access 数据 库 : 


Connection.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data 


Source= 人 事 管理 .mab" 
也 可 使 用 以 下 字符 串 连 接 : 


Connection.Connectionstring="Driver={Microsoft Access Driver (*.mdb)}; 
Dbq= 人 事 管理 .mdb; Uid=Admin;Pwd=;" 


2. 打开 连接 


给 Connection 对 象 设置 好 各 种 属性 后 ， 还 需要 使 用 Open 方法 来 打开 数据 源 的 连接 ， 
该 方法 的 语法 格式 如 下 : 
connection.Open Connectionstring, UserID, Password, Options 


该 方法 可 接收 以 下 4 个 参数 ， 这 些 参数 都 可 省 略 。 
口 ConnectionString: 包含 连接 信息 的 字符 串 ， 若 在 ConnectionString 属性 中 已 设置 了 
连接 字符 串 ， 就 不 需要 在 此 处 重新 设置 了 。 
口 UserID: 建立 连接 时 所 使 用 的 用 户 名 。 
口 Password: 建立 连接 时 所 使 用 的 密码 。 
口 Options: 设置 该 方法 是 同步 打开 连接 还 是 异步 打开 连接 。 可 设置 为 常量 
adConnectUnspecified (同步 ) 和 adAsyncConnect (异步 打开 连接 ) 。 
在 对 打开 的 Connection 的 操作 结束 后 ， 可 使 用 Close 方法 释放 所 有 关联 的 系统 资源 。 
关闭 对 象 并 非 将 它 从 内 存 中 删除 ， 可 以 更 改 它 的 属性 设置 并 在 以 后 再 次 使 用 Open 方法 打 
开 它 。 要 将 对 象 完全 从 内 存 中 删除 ， 可 将 对 象 变量 设置 为 Nothing。 


3. 执行 SQL 语句 


使 用 Connection 对 象 的 Execute 方法 可 执行 指定 的 查询 、SQL 语句 、 存 储 过 程 或 特定 
提供 者 的 文本 等 内 容 。 其 语法 格式 如 下 : 


Set recordset = connection.Execute (CommandText, RecordsAffected, Options) 
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Execute 方法 执行 后 , 将 结构 返回 到 一 个 Recordset 对 象 中 , 方便 用 户 处 理 返回 的 数据 。 
Execute 方法 使 用 下 面 的 3 个 参数 。 

口 CommandText: 包含 要 执行 的 SQL 语句 、 表 名 、 存 储 过 程 或 特定 提供 者 的 文本 。 
口 RecordsAffected: 提供 者 向 其 返回 操作 所 影响 的 记录 数目 ， 该 参数 可 省 略 。 

口 Options: 指示 提供 者 应 如 何 计算 CommandText 参数 ， 可 设置 为 如 表 24-2 所 示 的 


常量 。 
表 24-2 Options 常 量 

常 量 说 ”了 明 
AdCmdText 指示 提供 者 应 按 命令 的 文本 定义 计算 CommandText 
AdCmdTable 指示 ADO 应 生成 SQL 查询 ， 以 便 从 CommandText 命名 的 表 中 返回 所 有 行 
AdCmdTableDirect 指示 提供 者 应 从 CommandText 命名 的 表 中 返回 所 有 行 
AdCmdTable 指示 提供 者 应 按 表 名 计算 CommandText 
AdCmdStoredProc 指示 提供 者 应 按 存储 过 程 计 算 CommandText 
AdCmdUnknown 指示 CommandText 参数 中 的 命令 类 型 未 知 
adAsyncExecute 指示 命令 应 该 异步 执行 
adAsyncFetch 指示 对 在 CacheSize 属性 指定 的 初始 数量 之 后 的 剩余 行使 用 异步 提取 


全 注意 : 使 用 Connection 对 象 的 Execute 方法 ， 返 回 的 Recordset 对 象 始终 为 只 读 、 仅 向 
前 的 游标 。 如 需要 具有 更 多 功能 的 Recordset 对 象 ， 应 首先 创建 具有 所 需 属 性 设 
置 的 Recordset 对 象 ， 然 后 使 用 Recordset 对 象 的 Open 方法 执行 查询 并 返回 所 需 
的 游标 类 型 。 


24.2.3 ”Recordset 对 象 


Recordset 对 象 表示 的 是 来 自 基 本 表 或 命令 执行 结果 的 记录 全 集 。 该 对 象 所 指 的 当前 记 
录 均 为 集合 内 的 单个 记录 。 可 使 用 该 对 象 操作 来 自 提供 者 的 数据 。 使 用 ADO 时 ， 通 过 该 
对 象 几乎 可 对 所 有 数据 进行 操作 。 所 有 Recordset 对 象 均 使 用 记录 ( 行 ) 和 字段 ( 列 ) 进行 
任何 时 候 ，Recordset 对 象 所 指 的 当前 记录 均 为 集合 内 的 单个 记录 。 


1. 获取 记录 集 

有 两 种 方式 可 获得 记录 集 ， 一 种 是 用 Connection 对 象 的 Execute 方法 ， 另 一 种 是 使 用 
Recordset 对 象 的 Open 方法 ， 其 语法 格式 如 下 : 

recordset .Open Source, ActiveConnection, CursorType, LockType, Options 


各 参数 的 含义 如 下 所 述 。 

口 Source: 为 变量 名 、SQL 语句 、 表 名 、 存 储 过 程 调 用 等 。 

口 ActiveConnection: 为 连接 数据 库 的 连接 字符 串 。 

口 CursorType: 确定 提供 者 打开 Recordset 时 应 该 使 用 的 游标 类 型 。 
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口 LockType: 确定 提供 者 打开 Recordset 时 应 该 使 用 的 锁定 (并 发 ) 类 型 。 
口 Options: 用 于 指示 提供 者 如 何 计算 Source 参数 (如 果 它 代表 的 不 是 Command 对 
象 ) ， 或 从 以 前 保存 Recordset 的 文件 中 恢复 Recordset。 


2. 增加 记录 
如 果 需 要 向 记录 集中 新 增 记录 ， 可 以 使 用 AddNew 方法 。 其 语法 格式 为 : 


recordset .AddNew FieldList, Values 

两 个 参数 的 含义 如 下 所 述 。 

口 FielqdList: 设置 新 记录 中 字段 的 单个 、 一 组 字段 名 称 或 序列 位 置 。 

口 Values: 为 新 记录 中 字段 的 单个 或 一 组 值 。 如 果 Fields 是 数组 ， 那 么 Values 也 必 
须 是 有 相同 成 员 数 的 数组 ， 否 则 将 发 生 错误 。 字 段 名 称 的 次 序 必 须 与 每 个 数组 中 
的 字段 值 的 次 序 相 匹配 。 

如 果 在 编辑 当前 记录 或 添加 新 记录 时 调用 AddNew 方法 ，ADO 将 调用 Update 方法 保 

存 原 有 记录 的 更 改 再 创建 新 记录 。 


3. 删除 记录 
如 果 要 删除 当前 记录 或 记录 组 ， 可 使 用 Delete 方法 。 其 语法 格式 为 : 
recordset .Delete AffectRecords 


参数 AffectRecords 确定 Delete 方法 所 影响 的 记录 数目 。 该 值 有 两 种 可 能 : 一 是 
adAffectCurrent， 表 示 仅 删除 当前 记录 ， 为 默认 值 ， 另 一 个 是 adAffectGroup， 表 示 删 除 满 
足 当 前 Filter 属性 设置 的 记录 。 使 用 该 选项 须 将 Filter 属性 设置 为 有 效 的 值 。 


4. 更 新 记录 

如 果 已 经 对 当前 记录 集 进 行 了 修改 或 添加 了 新 的 记录 ， 则 需要 更 新 〈 保 存 ) ， 可 以 使 
用 Update 方法 更 新 记录 集 。CancelUpdate 方法 为 取消 修改 。 

5. 访问 特定 字段 的 数据 


在 Recordset 对 象 中 有 一 个 集合 对 象 Fields， 其 中 包含 了 各 字段 的 名 称 和 数据 。 通 过 如 
下 语法 格式 可 以 访问 特定 字段 的 值 : 

recordset .Fields (index) [.Value | Name] 

参数 index 是 变 体型 ， 可 以 是 要 访问 的 字段 名 或 字段 在 记录 集中 的 顺序 号 。Value 和 
Name 是 字段 的 属性 ， 分 别 表 示 字 段 的 值 和 字段 的 名 称 。 默 认为 Value。 

6. 移动 记录 集 指 针 

记录 集 对 象 有 4 个 方法 用 来 移动 记录 指针 , 它们 是 MoveFirst、MovePrevious、MoveNext 


和 MoveLast， 分 别 可 以 移动 到 第 一 条 记录 、 上 一 条 记录 、 下 一 条 记录 和 最 后 一 条 记录 。 其 
语法 格式 为 : 
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Recordset .MoveFirst 


如 果 需 要 大 跨度 的 移动 记录 指针 ， 则 需 使 用 Move 方法 , 它 可 直接 移动 到 指定 的 记录 。 
其 语法 格式 为 : 
Recordset.Move n [,s] 


其 中 ，n 是 个 数值 表达 式 ， 表 示 相 对 当前 记录 移动 多 少 条 记录 ， 如 果 为 正 数 则 向 表 的 
后 方 移动 ， 如 果 为 负数 则 向 表 前 方 移动 。s 是 可 选项 ， 指 明 移 动 的 起 始 位 置 ， 该 参数 可 取 3 
个 值 ，adBookmarkCurrent 是 默认 值 ， 表 示 从 当前 记录 开始 : adBookmarkFirst 表示 从 第 一 
条 记录 开始 ; adBookmarkLast 表示 从 最 后 一 条 记录 开始 。 


7. 取得 记录 集 的 总 记录 数 
Recordset 的 属性 RecordCount 返回 Recordset 对 象 中 记录 的 当前 数目 。 
8. 记录 集 的 项 和 底 


在 移动 记录 指针 时 , 如 果 到 记录 集 的 顶部 时 还 执行 MovePrevious 方法 , 就 会 发 生 错误 。 
同样 ， 到 记录 集 的 尾部 时 使 用 MoveNext 方法 也 会 出 错 。 所 以 在 使 用 移动 方法 之 前 ， 一 般 
都 要 先 判 断 当前 记录 的 位 置 ， 可 用 BOF 和 EOF 两 个 属性 来 判断 。 

口 BOF: 指示 当前 记录 位 置 位 于 Recordset 对 象 的 第 一 个 记录 之 前 。 

口 EOF: 指示 当前 记录 位 置 位 于 Recordset 对 象 的 最 后 一 个 记录 之 后 。 

如 果 当 前 记录 位 于 第 一 个 记录 之 前 ，BOF 属性 将 返回 True; 如 果 当 前 记录 为 第 一 个 记 
录 或 位 于 其 后 ， 则 将 返回 False。 

如 果 当 前 记录 位 于 Recordset 对 象 的 最 后 一 个 记录 之 后 ，EOF 属性 将 返回 True;， 如 果 
当前 记录 为 Recordset 对 象 的 最 后 一 个 记录 或 位 于 其 前 ， 则 将 返回 False。 


24.2.4 其 他 ADO 常用 对 象 


前 面 介 绍 了 Connection 对 象 、Recordset 对 象 的 常用 属性 和 方法 。ADO 对 象 模型 还 提 
供 多 个 对 象 ， 下 面 列 出 这 些 对 象 的 作用 。 

口 Command 对 象 : 该 对 象 定义 了 将 对 数据 源 执行 的 命令 。 使 用 Command 对 象 可 查 
询 数据 库 并 返回 Recordset 对 象 中 的 记录 ， 以 便 执行 大 量 操 作 或 处 理 数据 库 结构 。 

口 Ermror 对 象 : 访问 数据 源 时 所 返回 的 错误 信息 。 每 个 错误 出 现时 ， 一 个 或 多 个 Error 
对 象 将 被 放 到 Connection 对 象 的 Errors 集合 中 。 当 另 一 个 ADO 操作 产生 错误 时 ， 
Errors 集合 将 被 清空 ， 并 在 其 中 放 入 新 的 Error 对 象 集 。 

口 Parameter 对 象 : 与 命令 对 象 有 关 的 参数 。 

口 Field 对 象 : 该 对 象 表示 Recordset 对 象 中 的 一 个 数据 列 (注意 不 是 一 行 ), Recordset 
对 象 含有 由 Field 对 象 组 成 的 Fields 集合 , 每 个 Field 对 象 对 应 于 Recordset 中 的 一 
列 。 使 用 Field 对 象 的 Value 属性 可 设置 或 返回 当前 记录 的 数据 。 
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24.2.5 ”使 用 ADO 访问 数据 库 的 步骤 


使 用 ADO 对 象 编程 访问 数据 库 ， 一 般 按 以 下 步骤 编写 代码 。 

(1) 使 用 Connection 对 象 连接 到 数据 源 ; 

(2) 使 用 Recordset 对 象 的 打开 记录 集 方法 获得 记录 集 对 象 (也 可 使 用 Command 对 象 
执行 SQL 语句 获得 记录 集 对 象 ) ; 

(3) 在 程序 中 访问 记录 集中 的 数据 〈 添 加 、 更 新 、 删 除 等 操作 ) ， 

(4) 使 用 Connection 对 象 中 断 连 接 。 

例如 : 执行 以 下 代码 ， 在 “人 事 管理 ”数据 库 的 表 Emp 中 进行 查询 ， 将 EmpID 列 为 
2008028 人 员 的 资料 显示 到 工作 表 中 。 

sub 员工 资料 () 

Dim cnn As New Connection, rst As Recordset, fld As Field 


Dim strSql Rs String, i As Long, strConn Rs String 
strSql = "SELECT * FROM Emp WHERE EmpID='2008028'" 


strConn = "Provider=Microsoft .Jet .OLEDB.4.0;Data Source='" 
strConn = strConn & ActiveWorkbook.Path & "\ 人 事 管理 .mdb'" 
cnn.Connectionstring = strConn ' 设 置 连接 字符 串 
cnn.Open ' 打 开 连 接 
Set rst = cnn.Execute (strSql) ! 执 行 sQL 语句 生成 Recordset 
With Worksheets ("sheet1") 
i=1 
For Each fld In rst.Fields ' 输 出 表 头 
‘Cells(1, i) = fld.Name ' 每 列 为 一 个 字段 名 
i=i+1 
Next 
j=1 
Do While Not rst.EOF ' 循 环 处 理 记录 集中 的 记录 本 
i=1 
a 


For Each fld In rst.Fields 1 循环 处 理 各 字段 
-Cells(j，i) = fld.Value ' 显 示 字 段 的 值 
= 主 +1 

Next 

rst.MoveNext ' 下 一 记录 

Loop 
End With 
Set rst = Nothing 
Set cnn = Nothing 
End Sub 


24.3 访问 Excel 工作 簿 的 数据 
因为 Excel 具有 易 用 性 、 通 用 性 和 庞大 的 用 户 群 ， 所 以 在 一 些小 的 应 用 程序 中 ， 可 以 


将 Excel 作为 后 台数 据 库 ， 用 来 保存 用 户 的 数据 。 本 节 实 例 演 示 用 ADO 方式 访问 Excel 数 
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据 库 的 方法 。 
24.3.1 查询 工作 表 中 的 数据 


使 用 ADO 方式 访问 Excel 工作 钴 ， 就 是 将 Excel 工作 短 作 为 一 个 数据 库 ， 工 作 短 中 每 
个 工作 表 为 一 个 数据 表 ， 工 作 表 中 的 一 列 数据 为 一 个 字段 。 
用 ADO 访问 Excel 工作 短 ， 需 使 用 类 似 下 面 的 连接 字符 串 : 


"Provider=Microsoft .Jet .OLEDB.4.0; Extended Properties=Excel 8.0; _ 
Data Source= 工 作 簿 名 称 " 


其 中 Extended Properties 设置 访问 工作 敌 的 版 本 号 。 

例如 ， 在 当前 工作 敌 的 工作 表 “ 员 工 ” 中 ,保存 着 员工 资料 。 在 工作 表 Sheet2 的 单元 
格 B2 中 输入 姓名 ， 单 击 右 侧 的 【查询 】 按 钮 ， 即 可 使 用 ADO 方式 从 工作 表 “ 员 工 ” 中 查 
找 数据 。 在 查找 数据 时 ， 使 用 Like 关键 字 进行 模糊 查询 ( 即 输 入 姓名 中 的 某 一 个 或 几 个 字 
符 ， 即 可 查询 出 ) 。 具 体 的 代码 如 下 : 

sub 按 姓名 查询 () 


Dim cnn Rs New Connection, rs Rs New Recordset 
Dim strsql Rs String, strl Rs String 
On Error Resume Next 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ 
& "Extended Properties=Excel 8.0;" _ 
& "Data Source=" & ThisWorkbook.FullName 
strl = Worksheets ("sheet2") .Range ("B2") 
strSsql = "Select * FROM [员工 $] Where 姓名 like '%" & strl & "%'" 
rs.Open strsql, cnn, adOopenstatic 
With Worksheets ("sheet2") 
.Range ("A4:I1100") .ClearContents 
.Range ("A4") .CopyFromRecordset rs 
End With 
rs.Close 
cnn.Close 
Set rs = Nothing 
Set cnn = Nothing 
End Sub 


以 上 代码 首先 创建 数据 库 连 接 , 再 根据 用 户 输入 的 字符 组 成 一 个 SQL 语句 , 用 该 SQL 
语句 打开 记录 集 ， 最 后 使 用 CopyFromRecordset 方法 将 记录 集中 的 数据 复制 到 工作 表 中 。 

使 用 CopyFromRecordset 方法 可 将 Recordset 对 象 中 的 内 容 复制 到 工作 表 , 从 指定 区 域 
的 左上 角 开 始 。 该 方法 的 语法 格式 如 下 : 

表达 式 .CopyFromRecordset (Data, MaxRows, MaxColumns) 

各 参数 的 含义 如 下 所 述 。 

口 Data: 复制 到 区 域 的 Recordset 对 象 。 

口 MaxRows: 复制 到 工作 表 上 的 最 大 记录 数 。 如 果 省 略 该 参数 ， 将 复制 Recordset 对 
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象 中 的 所 有 记录 。 
口 MaxColumns: 复制 到 工作 表 上 的 最 大 字段 数 。 如 果 省 略 该 参数 ， 将 复制 Recordset 
对 象 中 的 所 有 字段 。 


全 提示 : 复制 从 Recordset 对 象 的 当前 行 开 始 。 复 制 完成 后 ，Recordset 对 象 的 EOF 属性 为 


True。 


24.3.2 导入 其 他 工作 表 数 据 


使 用 SQL 的 INSERT 语句 可 向 表 中 添加 一 个 或 多 个 记录 。 下 面 的 代码 使 用 INSERT 语 
句 将 另 一 工作 夭 中 的 数据 添加 到 当前 工作 表 中 。 
Sub 导入 数据 () 
Dim cnn Rs New Connection 
Dim strsql As String, strl Rs String 
On Error Resume Next 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ 
& "Extended Properties=Excel 8.0;" 


"Data Source=" & ThisWorkbook.FullName 


m 


strSsql = "INSERT INTO [员工 $A:I] SELECT * FROM " 
StrSql = strSql & " [Excel 8.0;Database=" 
= strSql & ThisWorkbook.Path & "\ 使 用 ADO.xls" & ";HDR=YES] . [ 员 


cnn.Execute strsql 


cnn.Close 
Set cnn = Nothing 

End sub 

以 上 代码 首先 创建 当前 工作 簿 的 ADO 连接 ， 接 着 创建 SQL 语句 从 原 工作 禾 (此 处 为 
“使 用 ADO.xls” 文 件 ) 的 指定 工作 表 (“员工 ”工作 表 〉 中 选择 数据 ， 并 插入 到 目标 工作 
簿 中 。 

在 Excel 工作 适中 ， 每 个 工作 表 相 当 于 数据 库 中 的 表 ， 每 列 为 一 个 字段 ， 使 用 符号 $ 
分 隔 表 和 列 。 使 用 下 面 的 语句 从 工作 短 “ 使 用 ADO.xls” 的 工作 表 “ 员 工 ” 中 获取 A~I 
列 的 数据 : 

SELECT * FROM [Excel 8.0;Database= 使 用 ADO.xls;HDR=YES] . [员工 $A:I]; 

其 中 的 HDR=YES 表示 工作 表 有 表 头 〈 第 1 行为 字段 名 ) 。 

使 用 下 面 的 语句 即 可 将 指定 工作 表 中 的 数据 增加 到 当前 工作 矢 中 : 


INSERT INTO [员工 $SA:I] SELECT * FROM [Excel 8.0;Database= 使 用 
ADO.xls;HDR=YES] . [员工 $A:I]; 


全 提示 : 使 用 ADO 方式 ， 可 以 在 不 打开 工作 簿 的 情况 下 获取 工作 簿 中 的 数据 。 
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24.4 访问 Access 数据 库 


将 Excel 作为 数据 库 可 使 用 在 一 些小 型 应 用 中 ， 对 于 需要 处 理 大 量 数据 时 ， 更 多 的 还 
是 使 用 专业 的 数据 库 系统 (如 Access、SQL Server 数据 库 系 统 等 ) 。 在 很 多 情况 下 ， 用 户 
希望 从 这 些 专业 的 数据 库 系 统 中 获取 部 分 数据 ， 然 后 在 Excel 中 进行 分 析 处 理 。 

下 面 介绍 在 Excel 中 操作 Access 数据 库 的 方法 ， 包 括 从 Access 数据 库 中 导入 数据 到 
Excel、 将 Excel 工作 表 中 的 数据 添加 到 Access、 修 改 数据 、 删 除数 据 等 操作 。 

本 节 使 用 Access 系统 中 提供 的 Northwind.mdb 作为 示例 数据 库 。 


24.4.1 导入 Access 数据 


将 Access 数据 库 中 的 数据 导入 Excel 的 操作 比较 简单 ， 主 要 有 以 下 3 个 步骤 : 
(1) 首先 使 用 ADO 连接 到 数据 库 。 

(2) 根据 需要 ， 设 置 不 同 的 查询 条 件 创 建 查询 记录 集 。 

(3) 将 记录 集中 的 数据 复制 到 指定 工作 表 中 。 

(4) 关闭 数据 库 连 接 。 

以 下 代码 从 示例 数据 库 中 导入 “客户 ” 表 中 的 所 有 数据 : 

sub 获取 客户 信息 0 


Dim cnn As New Connection, rs As New Recordset 
Dim strSql Rs String, i As Long, sh As Worksheet 


On Error Resume Next 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" 


& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 


strSsql = "Select * FROM [客户 ] " "从 “客户 ” 表 中 获取 全 部 数据 
rs.Open strSql，cnn，adopenStatic "打开 记录 集 

Set sh = Worksheets.Add ' 添 加 工作 表 

sh.Name = "客户 信息 " ' 设 置 工作 表 名 称 

With sh 


For i = 0 To rs.Fields.Count - 1 "用 字段 名 作为 表 头 
.Cells(1, i + 1) = rs.Fields(i) .Name 


Next 
.Range ("A2") .CopyFromRecordset rs "复制 记录 集中 的 数据 
.Columns .AutoFit "设置 列 宽 为 自动 适应 
End With 
rs.Close 


cnn.Close 

Set rs = Nothing 

Set cnn = Nothing 
End Sub 


以 上 代码 首先 创建 Northwind 数据 库 的 连接 , 接着 创建 SQL 语句 从 数据 库 中 查询 获取 
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数据 , 最 后 将 每 个 字段 的 名 称 填 入 到 工作 表 的 第 1 行 作为 表 头 , 并 使 用 CopyFromRecordset 
方法 将 记录 集中 的 所 有 记录 填充 到 当前 工作 表 中 。 


24.4.2 ”添加 数据 到 Access 


使 用 INSERT INTO 语句 可 将 Excel 工作 表 中 的 数据 添加 到 Access 数据 库 的 指定 表 中 。 
这 时 可 使 用 VBA 代码 读 取 工 作 表 中 的 数据 ， 并 生成 一 个 INSERT INTO 语句 ， 然 后 再 调用 
Connection 对 象 的 Execute 方法 执行 该 SQL 语句 ， 即 可 完成 添加 数据 的 操作 。 

为 了 使 Excel 工作 表 中 数据 的 输入 与 数据 库 指 定 表 的 字段 保持 对 应 关系 ， 可 首先 打开 
数据 库 中 的 表 ， 获 取 字 段 名 填充 到 表 中 作为 表 头 。 如 图 24-3 所 示 ， 单 击 【 生 成 表单 】 按 钮 
即 可 将 Northwind 数据 库 中 的 “供应 商 ” 表 的 字段 填 到 A 列 中 。 该 按钮 的 VBA 代码 如 下 : 


| 国 坊 问 Access 数 关 库 ls [ 营 安 妆 式 ] 所 


x 
| A B cn LE | 几 

1 公司 名 称 

2_ 联系 人 姓名 

3 | 联系 人 职务 生成 表单 

生地 址 二 

5 市 

6 | 地 区 

7 由 丙 护 码 | 

国家 


图 24-3 ”添加 数据 到 Access 


Sub 生成 表单 () 
Dim cnn Rs New Connection, rs Rs New Recordset, fd As Field 
Dim strSql As String, i As Long 
On Error Resume Next 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ 
& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
rs.Open "select * from 供应 商 "，cnn 
With Worksheets ("供应 商 ") 
For i = 1 To rs.Fields.Count 
.Cells(i, 1) = rs.Fields (i).Name 
Next 
End With 
cnn.Close 
Set cnn = Nothing 
Set rs = Nothing 
End Sub 


外 提示: “供应 商 ” 表 中 的 第 1 个 字段 由 系统 自动 生成 ， 不 需要 用 户 输入 ， 因 此 不 显示 在 
图 24-3 所 示 的 表格 中 。 


用 户 在 图 24-3 所 示 的 表单 中 输入 各 字段 的 数据 后 ， 单 击 【 添 加 到 Access】 按 钮 ， 即 可 
将 输入 的 数据 添加 数据 库 的 “供应 商 ” 表 的 最 后 。 有 具体 的 代码 如 下 : 
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Sub 添加 供应 商 信息 () 


Dim cnn As New Connection 
Dim strsql As String, i As Long，c Rs Long 


On Error Resume Next 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ 
& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
strSql = "INSERT INTO 供应 商 (" 
With Worksheets ("供应 商 ") 


c= .Range("Al") .End (xlDown) .Row ' 数 据 行 数 
Fori=1Toc¢ ' 生 成 字段 列表 
strSql = strsql & .Cells(i, 1) & "," 
Next 
strsql = Left(strsql, Len(strsql) - 1) & ") VALUES(" 
Fori=1Toc ' 生 成 插入 的 值 列 表 
strSql = strSsql & "'" & .Cells(i, 2) & "'," 
Next 
strsql = Left(strsql, Len(strsql) - 1) & ")" 
End With 
cnn.Execute strsql "执行 soz 语句 


cnn.Close 
Set cnn = Nothing 
End Sub 
以 上 代码 通过 工作 表 中 的 数据 生成 INSERT INTO 语句 。 首 先 从 A 列 获取 “供应 商 ” 
表 的 字段 名 ， 生 成 INSERT 语句 的 部 分 信息 。 接 着 用 B 列 的 数据 生成 VALUES 部 分 的 
数据 


全 注意 : 生成 VALUES 数据 时 ， 必 须 使 用 喜 号 将 这 些 值 分 隔 ， 并 且 将 文本 字段 用 引号 ( ') 
括 起 来 。 


24.4.3 ”修改 记录 


使 用 UPDATE 语句 可 对 数据 库 中 的 记录 进行 修改 。 在 使 用 UPDATE 语句 时 ， 一 般 都 
需要 使 用 WHERE 子 句 限制 需要 修改 记录 的 范围 ， 如 果 不 使 用 WHERE 子 句 ， 则 表示 表 中 
的 相应 字段 都 将 被 修改 成 相同 的 数据 。 

例如 ， 要 修改 Northwind 数据 库 “ 客 户 ” 表 中 的 “公司 名 称 ”， 可 使 用 以 下 代码 : 

sub 修改 客户 名 称 () 


Dim cnn As New Connection, strcon As String 
Dim strSsql As String, custID As String, custName Rs String 


With Worksheets ("修改 ") 


custID = .Range("B1") "获取 客户 ID 
custName = .Range("B2") ' 获 取 公 司 名 称 
End With 
IE Trim(custID) = "" Or Trim(custName) = "" Then 
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MsgBox "请 输入 “客户 ID” 和 “公司 名 称 ” 信 息 ! "，vbcritical + vbOKOnly 
Exit Sub 
End If 


On Error Resume Next 
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _ 

& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
cnn.Open strcon ' 打 开 数 据 库 连 接 
strSql = "UPDATE 客户 SET 公司 名 称 ='" & custName & _ 

"1 WHERE 客户 ID='" & custID & "'" "修改 "客户 " 表 的 se 语句 
cnn.Execute (strsql) 1 执行 sor 命令 
cnn.Close 
Set cnn = Nothing 

End Sub 


以 上 代码 首先 检查 用 户 在 工作 表 中 输入 的 内 容 , 再 根据 工作 表 中 的 内 容 生成 UPDATE 
语句 ， 最 后 执行 该 SQL 语句 完成 数据 的 修改 操作 。 

以 上 代码 在 WHERE 子 句 中 使 用 主键 作为 条 件 ， 每 次 只 修改 一 条 记录 。 在 更 多 的 情况 
下 ， 表 中 满足 WHERE 子 句 设 置 条 件 的 记录 有 多 个 ， 这 些 记录 的 数据 都 将 被 修改 。 例 如 ， 
以 下 代码 将 地 区 为 东北 的 客户 名 称 前 面 加 上 记录 对 应 的 地 区 名 称 : 

UPDATE 客户 SET 公司 名 称 =' (' + 地 区 +') '+ 公 司 名 称 where 地 区 =' 东北 ' 


24.4.4 删除 记录 


使 用 SQL 的 DELETE 语句 来 删除 数据 表 中 的 记录 。 与 UPDATE 语句 类 似 ， 在 定义 
DELETE 语句 时 ， 如 果 不 指 定 WHERE 子 句 ， 将 删除 表 中 所 有 记录 。 这 是 相当 危险 的 一 个 
操作 。 

还 可 以 用 Execute 方法 和 DROP 语句 从 数据 库 中 删除 整个 表 。 不 过 ， 如 果 用 这 种 方法 
删除 表 ， 将 会 失去 表 的 结构 。 不 同 的 是 当 使 用 DELETE 删除 表 时 ， 只 有 数据 会 被 删除 ， 表 
的 结构 以 及 表 的 所 有 属性 仍然 保留 ， 例 如 字段 属性 及 索引 。 

例如 ， 以 下 代码 可 删除 满足 指定 条 件 的 记录 : 

sub 删除 记录 () 


Dim cnn Rs New Connection 

Dim strcon As String，strSql Rs String，custID As String 
custID = Worksheets (" 修 改 ") .Range ("B1") 

IE Trim(custID) = "" Then 

MsgBox "请 输入 “客户 ID” 信 息 ! "，vbcritical + vboKonly 

Exit Sub 
End If 
On Error Resume Next 
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _ 

& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
cnn.Open strcon ' 打 开 数 据 库 连接 
strSql = "DELETE FROM 客户 WHERE 客户 ID='"&custID & "'" ' 删 除 Soz 语句 
cnn.Execute (strsql) 
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IE Err <> 0 Then "显示 错误 信息 
MsgBox Err.Description 
End If 
cnn.Close 
Set cnn = Nothing 
End Sub 
以 上 代码 从 修改 工作 表 的 “B1” 单 元 格 获取 要 删除 的 客户 ID， 再 使 用 DELETE 语句 
删除 该 条 记录 。 
如 果 将 SQL 语句 定义 为 如 下 : 
strSql = "DELETE FROM 客户 " 


执行 该 SQL 语句 将 删除 “客户 ” 表 中 的 全 部 记录 。 
24.4.5 创建 Access 数据 库 
在 VBA 中 可 以 通过 编程 的 方式 创建 一 个 新 的 Access 数据 库 。 要 使 用 ADO 创建 数据 


库 ， 除 了 要 引用 对 象 库 Microsoft ActiveX Data Objects 2.8 Library 之 外 ， 还 需要 引用 另 一 个 
对 象 库 Microsoft ADO Ext 2.8 For DDL Security， 如 图 24-4 所 示 。 


引用 -YBAProject 


可 使 用 的 引用 (A) 


3.6 Object Library 
Access Conponents I 


Mierosoft ADO Ext. 2.8 for DDL and Security 
定位 :Ci\Progr wm Files\Common Files\Systen\ado\nsador 可 
语言 标准 


24-4 引用 ADO Ext 对 象 库 


在 工程 中 引用 Microsoft ADO Ext 2.8 For DDL Security 对 象 库 后 ， 即 可 使 用 ADOX. 
Catalog 对 象 来 创建 Access 数据 库 。 
以 下 代码 可 在 Excel 中 创建 新 的 Access 数据 库 。 
sub 创建 数据 库 () 
Dim cat Rs New ADOX.Catalog, rsl As New Recordset 


Dim conn As New Connection, strl As String, strsql As String 
Dim sDBName As String 


sDBName = Application.GetSaveAsFilename ("新 建 数 据 库 "，_ 
"Access 数据 库 (*.mdb) ,*.mdb"，1，" 输 入 数据 库 名 称 ") 
If sDBName = "False" Then Exit Sub 
strl = "Provider=Microsoft .Jet.OLEDB.4.0;Data Source=" & sDBName 
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strSql = "Create Table test (学 号 Char (10) ,姓名 char (10) ,性 别 char (2)," & 


"出 生日 期 Date, 联系 电话 Char (20) ,地 址 char (40))" 


cat.Create strl ' 创 建 数据 库 
conn.OpPen strl ' 打 开 新 建 的 数据 库 
conn.Execute strsql ' 创 建新 表 

With sl 


.Open "test"，conn，adopenKeyset，adLockPessimistic ' 创 建 记 录 集 
-AddNew “添加 记录 
-Fields ("学 号 ") = "Y0001" "为 各 字段 赋值 
-Fields ("姓名 ") = " 张 新 " 
-Fields ("性 别 ") = " 男 " 
-Fields ("出 生日 期 ") = #1/1/1988# 
-Fields ("联系 电话 ") = "3311778" 
-Fields ("地 址 ") = "建华 埠 58 号 " 
.Update 
End With 
rsl.Close 
conn.Close 
Set conn = Nothing 


End Sub 


以 上 代码 首先 使 用 ADOX.Catalog 对 象 创建 一 个 Access 数据 库 , 再 使 用 Create 语句 在 
新 建 数据 库 中 创建 一 个 表 ， 最 后 向 表 中 添加 一 个 测试 数据 。 


24.4.6 ” 列 出 所 有 表 名 


ADOX 对 象 库 中 提供 了 多 个 对 象 , 在 24.2.5 节 中 节 使 用 了 Catalog 对 象 创建 新 的 数据 。 
使 用 Table 对 象 可 检索 数据 库 中 包含 的 表 名 及 其 他 属性 。 Table 对 象 表示 数据 库 表 , 包括 列 、 
索引 和 关键 字 。 可 使 用 Table 对 象 的 以 下 属性 和 集合 。 


OOOOOOODO 


Name 属性 : 表示 数据 表 的 名 称 。 

Type 属性 : 表示 数据 表 的 类 型 。 

Columns 集合 : 访问 表 的 数据 库 列 。 

Indexes 集合 : 访问 表 的 索引 。 

Keys 集合 : 访问 表 的 关键 字 。 

了 ParentCatalog 属性 : 指定 拥有 表 的 Catalog。 
DateCreated 和 DateModified 属性 : 返回 日 期 信息 。 
Properties 集合 : 访问 特定 提供 者 的 表 属 性 。 


使 用 以 下 代码 可 显示 Northwind 数据 库 中 的 表 名 称 : 
Sub 显示 表 名 () 


Dim cat Rs New ADOX.Catalog , strcon As String, r Rs Long 
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _ 

& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
cat.ActiveConnection = strcon 


r=3 ' 工 作 表 中 显示 数据 的 行 


.499 


Excel VBA 开发 技术 大 全 


With Worksheets (" 表 名 ") 
-Columns (1) .Clear 
Colla(2, 1) = nO " 
.Cells(2，1) .Font.Bold = True "加 粗 字 体 
For i = 0 To cat.Tables.Count -1 ' 列 出 表 名 称 
IE cat.Tables (i) .Type = "TABLE" Then ' 类 型 为 “TABLE” 就 是 表 
-Cells(r，1) = cat.Tables (i) .Name ' 表 名 称 
这 二 
End If 
Next 
End With 
Set cat.ActiveConnection = Nothing 
End Sub 


24.4.7 ” 表 的 字段 信息 


Recordset 对 象 含 有 由 Field 对 象 组 成 的 Fields 集合 。 每 个 Field 对 象 对 应 于 Recordset 
中 的 一 列 《〈 字 段 ) 。 使 用 Field 对 象 的 Value 属性 可 设置 或 返回 当前 记录 的 数据 。 而 使 用 
Fields 对 象 的 属性 还 可 获取 字段 的 名 称 、 类 型 等 信息 。 

Field 对 象 的 常用 集合 、 方 法 、 和 属性 分 别 如 下 所 述 。 

Name 属性 : 表示 字段 名 。 

Value 属性 : 表示 字段 中 的 数据 。 

Type 属性 : 表示 字段 类 型 

Precision 属性 :表示 数字 字段 的 精度 。 

NumericScale 属性 : 表示 数字 字段 值 的 范围 。 

DefinedSize 属性 : 表示 字段 大 小 。 

ActualSize 属性 : 表示 字段 的 值 的 实际 长 度 。 

AppendChunk 方法 : 将 数据 追加 到 大 型 文本 、 二 进 制 数据 字段 中 。 
GetChunk 方法 : 返回 大 型 文本 或 二 进 制 数据 字段 对 象 的 全 部 或 部 分 内 容 。 

表 的 字段 信息 包含 在 Fields 对 象 中 ， 通 过 VBA 代码 循环 处 理 Fields 对 象 ， 即 可 获取 
表 的 字段 信息 。 例 如 ， 以 下 代码 在 Excel 工作 表 “ 字 段 信息 ”中 列 出 了 数据 库 表 “客户 ” 
的 字段 信息 。 

Sub 表 的 字段 信息 () 

Dim cnn As New Connection, rs As New Recordset 
Dim strcon As String, strsql Rs String, r Rs Long 
On Error Resume Next 

strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _ 

& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb" 
cnn.Open strcon ' 打 开 数 据 源 连接 
Strsql = "客户 " "SQL 语句 
rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic 
With Worksheets ("字段 信息 ") 

.Cells.Clear ' 清 除 表 中 的 数据 

.Range ("Al:C1") = Array ("名 称 "，" 类 型 "，" 大 小 ") ' 填 写 表 头 数据 


OoOOOOOOO DO 


a Se 
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-Range ("Al:C1") .Font .Bold = True 


For r= 0 Tors.Fields.Count - 1 ' 将 字段 信息 填充 到 工作 表 
.Cells(r + 2, 1) = rs.Fields(r) .Name ' 字 段 名 
-Cells( + 2, 2) = zs.Fields (LI) .Type ' 字 段 类 型 
.Cells(r + 2，3) = rs.Fields(r) .Definedsize ' 字 段 大 小 

Next 

End With 

rs.Close 

cnn.Close 


Set rs = Nothing 
Set cnn = Nothing 
End Sub 


以 上 代码 将 “客户 ” 表 中 的 数据 装 入 记录 集中 ， 再 循环 处 理 Fields 集合 对 象 中 的 每 个 
Field 对 象 〈 字 段 ) ， 通 过 Field 对 象 的 属性 即 可 得 到 表 的 字段 信息 。 

使 用 Recordset 对 象 的 Open 方法 时 ， 可 直接 给 出 一 个 表 的 名 称 ， 这 样 将 在 记录 集中 返 
回 该 表 中 的 所 有 数据 ， 与 下 面 的 SELECT 语句 功能 相同 : 

SELECT * FROM 客户 
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随 着 互联 网 的 普及 ，Office 软件 对 Intemet 的 支持 也 越 来 越 强 大 。 使 用 Excel 不 但 可 以 
浏览 访问 Internet， 还 可 以 直接 将 电子 表格 发 布 为 网 页 。 


25.1 管理 超 链接 


超 链 接 是 指 从 一 个 网 页 指向 一 个 目标 的 链接 关系 ， 这 个 目标 可 以 是 另 一 个 网 页 ， 也 可 
以 是 相同 网 页 上 的 不 同位 置 ， 还 可 以 是 一 个 图 片 、 一 个 电子 邮件 地 址 、 一 个 文件 ， 甚 至 是 
一 个 应 用 程序 。 而 用 来 超 链接 的 对 象 ， 可 以 是 一 段 文本 或 者 是 一 个 图 片 。 


25.1.1 插入 超 链接 


在 Excel 操作 界面 中 ， 可 以 方便 地 向 工作 表 中 插入 超 链 接 ， 以 链接 到 指定 的 文档 、 网 
页 等 不 同 目标 。 在 Excel 中 插入 超 链 接 的 步骤 如 下 : 

(1) 在 工作 表 上 ， 单 击 选择 要 创建 超 链接 的 单元 格 〈 或 工作 表 中 的 图 像 ) 。 

(2) 在 【插入 】 选 项 卡 上 的 【链接 】 组 中 ， 单 击 【 超 链接 】 按 钮 ， 打 开 如 图 25-1 所 示 
【插入 超 链接 】 对 话 框 。 


要 昂 包 的 文字 民 )-[ 
:00 


图 25-1 【插入 超 链 接 】 对 话 框 


(3) 在 对 话 框 左边 的 【链接 到 】 选 项 中 选择 链接 目标 的 类 型 ,在 右 侧 输入 链接 的 地 址 、 
文件 名 等 信息 ， 单 击 【 确 定 】 按 钮 ， 即 可 为 选择 的 单元 格 (或 图 像 ) 插 入 超 链 接 。 


25.1.2 用 VBA 创建 超 链接 


除了 在 Excel 界面 中 手工 插入 超 链 接 , 还 可 通过 编写 VBA 代 码 向 工作 表 中 插入 超 链接 。 
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在 VBA 中 ， 使 用 Hyperlink 对 象 表 示 超 链接 ， 所 有 超 链接 组 成 Hyperlinks 集合 对 象 。 
使 用 Hyperlinks 集合 对 象 的 Add 方法 , 可 向 指定 的 区 域 或 形状 添加 超 链 接 。 其 语法 格 
式 如 下 : 


表达 式 .Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay) 


各 参数 的 含义 如 下 所 述 。 

口 Anchor: 设置 插入 超 链接 的 位 置 。 可 为 Range 或 Shape 对 象 。 

口 Address: 超 链接 的 地 址 ， 可 以 是 一 个 文件 或 网 页 地 址 。 

口 SubAddress: 超 链接 的 子 地 址 ， 该 参数 可 省 略 。 

口 ScreenTip: 当 鼠 标 指针 停留 在 超 链 接 上 时 所 显示 的 屏幕 提示 ， 该 参数 可 省 略 。 

口 TextToDisplay: 要 显示 的 超 链接 的 文本 ， 该 参数 可 省 略 。 

例如 ， 使 用 以 下 代码 ， 将 在 工作 表 的 单元 格 B1 中 添加 一 个 超 链 接 ， 设 置 超 链接 的 目 
标 为 百度 网 首页 。 


Sub 链接 到 网 页 () 
Dim rng As Range, hlk As Hyperlink 
Set rng = Worksheets("sheet1") .Range("B1") 
Set hlk = rng.Hyperlinks.Add(anchor:=rng, Address:="http://www.baidu. 
com") 
With hlk 
.Address = "http://www.baidu.com" 
.ScreenTip = "百度 " 
.TextToDisplay = "浏览 百度 网 站 " 
End With 
End Sub 


执行 以 上 代码 ， 将 在 工作 表 Sheetl 的 单元 格 Bl 中 添加 一 个 超 链接 ， 如 图 25-2 所 示 。 
单 击 该 超 链接 ， 即 可 在 正 浏览 器 中 打开 百度 网 站 。 
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图 25-2 插入 超 链接 


25.1.3 ”添加 超 链接 到 收藏 夹 


收藏 夹 是 一 个 网 页 收藏 工具 ， 可 以 将 看 到 的 网 址 收藏 起 来 ， 方 便 以 后 查看 。Hyperlink 
对 象 的 AddToFavorites 方法 可 以 将 工作 簿 或 超 链 接 的 快捷 方式 添加 到 “收藏 夹 ” 文 件 夹 中 。 

例如 ， 以 下 代码 将 工作 表 Sheetl 单元 格 B3 中 的 网 址 添加 到 收藏 夹 中 。 

Sub 添加 到 收藏 夹 () 
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Dim hlk As Hyperlink, rng Rs Range 
Set rng = Worksheets ("sheet1l") .Range("b3") 
Set hlk = rng.Hyperlinks.Add (anchor:=rng, Address:=rng.Value) 
hlk.AddToFavorites 
End Sub 


在 如 图 25-3 所 示 工 作 表 的 单元 格 B3 中 输入 网 址 ， 单 击 右 侧 的 【添加 到 收藏 夹 】 按钮 ， 
即 可 将 其 添加 到 正 的 收藏 夹 中 。 打 开 正 浏览 器 ， 在 下 拉 菜单 【收藏 】 中 可 看 到 添加 的 
网 址 。 


图 Excel 2007SIntemetxls [ 菲 窑 民 直 -x 


http://wvve. 165 con 。 沽 加 到 收藏 炎 


25.1.4 直接 打开 网 页 


使 用 Hyperlink 对 象 调用 网 页 时 ， 必 须 指定 Anchor 参数 ， 即 指定 工作 表 中 的 单元 格 或 
图 像 作为 锚 点 。 这 样 ， 工 作 表 中 将 显示 超 链接 的 文字 。 

若 要 求 在 一 定 条 件 下 打开 指定 网 页 ， 又 不 希望 在 工作 表 中 显示 超 链 接 文字 ， 则 可 使 用 
Workbook 对 象 的 FollowHyperlink 方法 。 该 方法 对 指定 超 链 接 进行 处 理 以 下 载 目标 文档 ， 
然后 将 该 文档 在 适当 的 应 用 程序 中 显示 出 来 。 该 方法 语法 格式 如 下 : 

表 达 式 .FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, 

ExtraInfo, Method, HeaderInfo) 


各 参数 的 含义 如 下 所 述 。 


口 Address: 表示 目标 文档 的 地 址 。 

口 SubAddress: 表示 目标 文档 中 的 位 置 。 默 认 值 为 空 字符 串 。 

口 NewWindow: 如 果 为 True， 则 在 新 窗口 中 显示 目标 应 用 程序 。 默 认 值 为 False。 

口 AddHistory: 未 使 用 。 保 留 供 将 来 使 用 。 

口 ExtraInfo: 指定 解析 超 链接 时 要 使 用 的 HITP 附加 信息 。 例 如 ， 可 以 指定 查询 字符 
串 等 。 

口 Method: 指定 附加 ExtraInfo 的 方法 。 可 以 是 常量 msoMethodGet 或 msoMethodPost 
之 一 


口 HeaderInfo: 指定 HITP 请 求 的 标题 信息 的 Sting。 默 认 值 为 空 字符 串 。 
例如 ， 编 写 代 码 完成 以 下 功能 ， 在 如 图 25-4 所 示 工 作 表 的 单元 格 B5 中 输入 关键 字 ， 
单 击 右 侧 的 【搜索 】 按 钮 ， 将 打开 百度 网 站 搜索 该 关键 字 ， 如 图 25-5 所 示 。 
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HTB 百 术 一 下 污 开 H 关 的 24.TOOD00 区 ,用 台 0 种 
Excel 下 载 ，Excel2003 软 件 下 载 ，Micro ”上 海龙 万 误 供 EXCEL5 
soft Excel 表 格 ，Excel 函 数 ..… 2441919 上 海龙 万 
Excel2003 教 程 下 载 ,Excel 表格 作 沉 下 载 学 以 人 
习 ,Excel 软 件 下 载 , Excel2003 示 数 公式 教程 帮 50) 控制 嘲 亡 具有 8 


助 视频 电子 书 交 笠 ,Ofice 模 报 设 计 草 作 与 使 《ww dragonwan com 
用 最 侍 学 习 型 Ofice 技 术 社区 ,全 球 领先 的 EX 


国 Excel 2007SIntermnetxls [ 藻 容 模式 ] 59I 门 户 .… 
Er B club.excelhome net/ 80K 2008-5-10 - 百度 
1 列 攻 百度 网站 | 轧 
2 
3 http: /ww 163, con Excel 教 程 
和 站 快速 合并 200 个 Excel Excel 中 充 美 冻结 第 一 
| 行 、 第 在 Excel 工 作 表单 元 格 中 引用 Excel 
应 用 技巧 之 杂 锦 用 EXCEL 服 务 器 自动 - 快速 
全 tann 人 Evai 工 全 御 ronny 44 novrEvnn 
[el Sheotl ,Shesta hooto oR 到 
图 25-4 输入 搜索 关键 字 图 25-5 搜索 
具体 的 代码 如 下 : 
Sub 搜索 () 


Dim strl As String 

strl = Worksheets ("sheet1") .Range ("BS5") .Value 

Tr Str < *" Tha 

ActiveWorkbook.FollowHyperlink Address:="http://www.baidu.com/s", _ 

Extrainfo:="wd=" & strl, _ 
Method:=msoMethodGet 

End If 

End Sub 


以 上 代码 中 ,设置 参数 Method 为 msoMethodGet， 即 将 Extrainfo 参数 中 的 内 容 添 加 到 
Address 后 面 ， 得 到 如 下 所 示 的 网 址 字符 串 〈 设 Extranfo 的 参数 为 “wd=excel”) : 


http://www.baidu.com/s?wd=excel 


在 以 上 网 址 字符 串 中 ， 问 号 (? ) 由 系统 自动 添加 ， 表 示 该 符号 后 的 字符 串 为 提交 给 
网 页 的 参数 。 有 关 网 页 参数 提交 方面 的 知识 ， 请 读者 参阅 HIML 相关 书籍。 


25.2 ”打开 Internet 上 的 工作 簿 


使 用 Excel 可 以 打开 本 地 或 远程 Web 服务 器 上 的 工作 短 ， 还 可 以 打开 HTML 格式 的 
网 页 文档 ， 也 可 以 将 工作 憩 保存 到 Web 服务 器 中 。 


25.2.1 打开 Web 上 的 工作 筹 
对 于 已 经 连接 到 Internet 的 用 户 ， 就 可 使 用 Excel 的 【打开 】 对 话 框 打开 指定 的 网 站 ， 


i 


Excel VBA 开发 技术 大 全 


或 网 站 中 保存 的 Excel 工作 敌 。 具 体 步 又 如 下 : 
(1) 单 击 【Office 按钮 】 打 开 下 拉 菜 单 。 
(2) 在 下 拉 菜 单 中 选择 【打开 】 命 令 ， 将 打开 如 图 25-6 所 示 的 【打开 】 对 话 框 。 


六 可 名 加 :AT | 
hE | 


图 25-6 【打开 】 对 话 框 
(3) 在 文件 名 文本 框 中 输入 网 站 地 址 后 ， 按 Enter 键 ， 将 出 现 图 25-7 所 示 的 对 话 框 ， 
提示 正在 连接 到 网 站 。 连 接 成 功 后 ， 将 在 Excel 窗口 中 打开 网 页 。 


Ea 正在 估 汇 连接 到 http;//wrs edloa net 


CE 


25-7 ”连接 网 络 


全 提示 : 要 将 工作 簿 保存 到 Web 服务 器 ， 在 【另存 为 】〗 对 话 框 的 【文件 名 】 文 本 框 中 输 
入 网 站 域名 和 工作 簿 名 称 即 可 。 


25.2.2 用 VBA 代码 打开 Web 上 的 工作 簿 


使 用 Workbooks 集合 对 象 的 Open 方法 ,可 打开 本 地 工作 籍 ， 也 可 打开 指定 Web 服务 
器 中 的 工作 夭 。 例 如 ， 以 下 代码 打开 保存 在 服务 器 中 的 工作 夭 http://www.test.conmy/test.xls。 


Workbooks .Open ("http://www.test.com/test.xls") 


同样 ， 要 将 工作 憩 保存 到 Web 服务 器 中 ， 可 使 用 下 面 的 语句 : 


ActiveWorkbook.SaveAs ("http://www.test.com/test.xls") 
县 提示 : 要 将 工作 短 保存 到 Web 服务 器 中 ， 必 须 在 服务 器 上 运行 FrontPage Server Extensions。 
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25.3 ”使 用 Internet 上 的 数据 


将 网 页 中 的 数据 导入 Excel 的 方法 有 很 多 种 ， 最 简单 的 方法 就 是 选 定 网 页 表格 内 容 ， 
执行 复制 操作 ， 在 Excel 中 粘贴 就 可 以 了 。 但 网 页 上 有 些 数据 是 时 常 更 新 的 ， 使 用 这 种 方 
法 ，Excel 工作 表 中 的 数据 不 会 随 网 站 一 起 更 新 。 通 过 创建 Web 查询 ， 可 从 网 页 上 更 新 


25.3.1 创建 Web 查询 
Excel 支持 创建 可 自动 更 新 的 Web 查询 。 在 Excel 中 创建 Web 查询 的 步骤 如 下 : 


(1) 在 【数据 】 选 项 卡 的 【获取 外 部 数据 】 组 中 ， 单 击 【 自 网 站 】 命 令 按钮 ， 打 开 如 
图 25-8 所 示 的 【新 建 Web 查询 】 对 话 框 。 


新 建 Web 查询 


她 直 Q): [http /fe zejrv com/ NCTE EE 


元 696.95 69975 
1383.64 1394.75 
688.91 694.44 

元 67546 6.8089 
S1994 

666.54 

8976 

120 

14997 


证 券 业 。 信托 业 。 国外 异 窒 


25-8 【新 建 Web 查询 】 对 话 框 


(2) 在 对 话 框 的 【地 址 】 下 拉 列 表 中 输入 网 站 地 址 (本 例 输入 http:/fe.zgjrw.com/) ， 
单 击 右 侧 的 【 转 到 】 按 钮 ， 将 在 对 话 框 下 方 打开 该 网 站 。 

(3) 拖 动 滚动 条 ， 在 浏览 窗口 中 找到 “人 民 币 牌价 ”。 

(4) 从 图 25-8 中 可 以 看 到 有 表格 的 地 方 其 左上 角 都 会 出 现 一 个 黄色 的 小 箭头 国 , 单 击 
该 箭头 就 可 以 使 其 变 成 小 色 国 ， 表 示 该 箭头 所 指 的 表格 将 被 导入 Excel 中 。 单 击 “ 人 民 币 
牌价 ” 左 侧 的 黑色 小 箭头 ， 将 该 部 分 表格 的 数据 导入 Excel 中 。 

(5) 全 部 选 定 后 可 以 单 击 对 话 框 右上 方 的 【保存 查询 】 按 钮 瞳 ， 将 该 Web 查询 单独 
保存 ， 这 样 可 在 以 后 其 他 工作 敌 中 重复 调用 。 

(6) 单 击 对 话 框 右 下方 的 【导入 】 按 钮 打开 【导入 数据 】 对 话 框 ， 如 图 25-9 所 示 ， 
设置 将 导入 的 数据 保存 在 当前 工作 表 中 ， 还 是 新 建 一 个 工作 表 。 
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(7) 单 击 【确定 】 按 钮 后 ， 一 个 可 根据 网 页 数据 更 新 的 表格 创建 完毕 ， 如 图 25-10 
所 示 。 


数据 的 放 轨 位 置 
口 现 有 工作 表 加 ; 
EE 


图 25-9 导入 数据 图 25-10 导入 的 数据 


25.3.2 了 解 QueryTable 对 象 


在 Excel 界面 中 ， 通 过 【新 建 Web 查询 】 对 话 框 可 创建 Web 查询 ， 也 可 使 用 VBA 代 
人 码 创建 Web 查询 。 每 一 个 Web 查询 就 是 一 个 QueryTable 对 象 。 
QueryTable 对 象 代表 一 个 利用 外 部 数据 源 (如 SQL Server、Access 数据 库 、 网 络 数据 
返回 的 数据 生成 的 工作 表 表 格 。QueryTable 对 象 是 QueryTables 集合 的 成 员 。 
1. Add 方 法 
使 用 QueryTables 集合 对 象 的 Add 方法 可 新 建 一 个 查询 表 。 其 语法 格式 如 下 : 
表达 式 .Add (Connection, Destination, Sql) 
该 方法 参数 的 含义 如 下 : 
口 Connection: 可 以 是 一 个 Web 查询 。Web 查询 字符 串 的 格式 如 下 : 
URL; http://fc.zgjrw.com/ 
口 Destination: 查询 表 目 标 区 域 〈 生 成 的 查询 表 的 放置 区 域 ) 左上 角 的 单元 格 。 目 标 
区 域 必须 位 于 QueryTables 对 象 所 在 的 工作 表 中 。 
口 Sql: 在 ODBC 数据 源 上 运行 的 SQL 查询 字符 串 。 当 使 用 的 数据 源 为 ODBC 数据 
源 时 ， 在 Web 查询 中 该 参数 省 略 。 
2. Refresh 方 法 


使 用 QueryTable 对 象 的 Refresh 方法 可 更 新 外 部 数据 区 域 (QueryTable)。 该 方法 的 语法 
格式 如 下 : 

表达 式 .Refresh (BackgroundQuery) 

参数 BackgroundQuery 如 果 为 True， 则 在 数据 库 建 立 连接 并 提交 查询 之 后 ， 将 控制 返 
回 给 过 程 。QueryTable 在 后 台 进 行 更 新 。 如 果 为 False, 则 在 所 有 数据 被 取 回 到 工作 表 之 后 ， 
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将 控制 返回 给 过 程 。 如 果 没 有 指定 该 参数 ， 则 由 BackgroundQuery 的 属性 设置 决定 查询 
模式 。 

在 Excel 建立 一 个 成 功 的 连接 之 后 ， 将 存储 完整 的 连接 字符 串 ， 这 样 ， 以 后 在 同一 编 
辑 会 话 中 调用 Refresh 方法 时 就 不 会 再 显示 提示 。 通 过 检查 Connection 属性 的 值 可 以 获得 
完整 的 连接 字符 串 。 

如 果 成 功 地 完成 或 启动 查询 ， 则 Refresh 方法 返回 True; 如 果 用 户 取消 连接 或 参数 对 
话 框 ， 该 方法 返回 False。 


25.3.3 用 VBA 创 建 Web 查询 


了 解 QueryTable 对 象 的 方法 后 ， 可 使 用 以 下 VBA 代码 创建 图 25-8 所 示 的 Web 查询 : 


Sub VBR 创建 web 查询 () 
Dim qt As QueryTable, ws As Worksheet 
Set ws = Worksheets.Add 
Set qt = ws.QueryTables.Add( _ 
Connection:="URL;http://info.stockstar.com/partner/zgjr/rmbpj. 
asp", 
Destination:=ws.Range ("A1")) 
qt.Refresh 
End Sub 


在 QueryTables 集合 对 象 的 Add 方法 中 ， 设 置 Connection 参数 时 ， 必 须 以 “URL;” 开 
头 ， 再 加 上 需要 获取 数据 的 网 址 。 


25.3.4” 带 参数 的 Web 查询 


在 25.3.3 节 的 例子 中 ， 通 过 VBA 代码 创建 的 Web 查询 获取 网 页 中 所 有 的 数据 。 在 更 
多 的 情况 下 ， 需 要 根据 用 户 输入 的 值 从 网 站 中 查询 结果 。 这 时 ， 需 要 设置 带 参数 的 Web 
参数 。 
在 网 站 设计 中 ， 向 网 页 提交 参数 有 两 种 方法 : GET 和 POST。 

口 GET 方式 通过 URL 提交 数据 ， 提 交 后 在 地 址 栏 中 的 地 址 类 似 以 下 形式 : 
http://www.baidu.com/s?wd=abc 


其 中 间 号 (? ) 后 的 字符 串 就 是 提交 的 数据 。 
口 POST 方式 在 向 网 页 提交 数据 时 ， 不 是 通过 URL 提交 数据 ， 必 须 另 外 通过 变量 提 
交 参 数 。 使 用 这 种 方式 提交 数据 时 ， 地 址 栏 中 的 地 址 看 不 出 变化 。 


1. 提交 GET 方 式 的 参数 


在 VBA 中 ,编写 带 参数 的 Web 查询 时 , 若 网 站 设计 要 求 提交 GET 方式 的 参数 ， 只 需 
要 获取 用 户 输入 的 参数 ， 然 后 将 其 附加 在 URL 地 址 后 ， 再 提交 即 可 得 到 需要 的 数据 。 
很 多 快递 公司 都 在 公司 的 网 站 上 提供 了 查询 快件 投递 情况 的 服务 。 下 面 以 申通 快递 为 
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例 ， 介 绍 设计 带 参数 Web 查询 的 方法 。 

要 设计 动态 查询 ， 首 先 应 了 解 快递 公司 提供 查询 页 面 的 URL， 然 后 输入 一 个 编号 进行 
测试 查询 ， 再 观察 正 浏览 器 地 址 栏 中 参数 的 名 称 ， 最 后 将 这 些 数据 应 用 到 VBA 程序 中 。 
具体 的 步骤 如 下 : 

(1) 打开 正 浏览 器 ， 打 开 快递 公司 网 站 主页 ， 在 左 侧 查询 框 中 输入 快件 编号 ， 如 
图 25-11 所 示 。 


治 申通 快 递 - Microsoft Internet Explorer 
文件 四 ” 编 鲁 四 ”可 看 名 收藏 内 ”工具 上 硕 助 0 


a- 旧 国 加 次 Pr 去 x 加 全 :全 回 - 国 网 把 


Te 四 > 


0 一 


L871 生灵 


首页 。 关于 我 们 公司 新 闻 网 点 直 询 客户 服务 招聘 信息 繁体 中 文 


[公司 动态 
月 快件 查询 ， [sn08-5-9] 。。。 半 北 片区 霹 送 物品 中 全 工作 村 任 制 闪 约 大 


入 要 查 洒 49 快件 寻 ， 5 2009-5-0 ] 。 北上 区 网 结 去 主 大 过 签 的 大 会 在 政党 队 

一 次 最 字 查 In 个 ， 朋 执行 限 开 RE 

enao3a60ll a 
【2008-5-7 】 这 苏 、 安 名 片区 由 结 安 全 奇 这 多 的 大安 在 
【2008-5-4 】 。。 生 事 内 箭 车 安全 工作 要 末 ( 之 二 ) 
[ 2008-5-2 ] 申通 快 加 于 刁 霹 则 务工 作 培训 交 流 会议 
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BD Internet 
图 25-11 在 正中 查询 
(2) 单 击 【 查 询 】 按 钮 ， 打 开 新 的 正 窗口 ， 在 地 址 栏 中 可 看 到 类 似 下 面 的 URL: 


http://www.sto.cn/querybill/webforml .aspx?wen=268480394601 
&Submit2=%B2%E9%D1%AF 


以 上 URL 表示 使 用 网 页 “http://www.sto.cn/querybill/webforml.aspx” 提 供 查 询 功 能 ， 
快件 单 号 保存 在 参数 “wen” 中 。 
(3) 取得 以 上 参数 后 ， 就 可 以 方便 地 设置 带 参数 的 Web 查询 ， 有 具体 代码 如 下 : 


sub 查询 快件 () 
Dim str As String, strURL As String 


str = Application.InputBox (prompt :=" 请 输入 快件 的 编号 : "，_ 
Title:=" 申 通 快件 查询 "，Type:=2) 

If str = "False" Then Exit Sub 

StrURL = "URL;http://www.sto.cn/querybill/webform]l .aspx?wen=" 

StrURL = strURL & str & "&Submit2=%E6%9F%ASSES8%SAFSA2" 

With Worksheets .Rdd ' 新 增 工 作 表 
.Name = str ' 设 置 快 件 编号 为 工作 表 名 

End With 
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With ActiveSheet .QueryTables .Add (Connection:=strURL, Destination:= 


Range ("A2")) 
-Name = "sto" 
-FieldNames = True 
-WebSelectionType = xlSpecifiedTables 
-WebFormatting = xlWebFormattingNone 
.WebTables = "1,2" 
.BackgroundQuery = True 
-Refresh 

End With 

End Sub 


' 导 入 指定 表 

' 不 导入 任何 格式 

"导入 第 一 个 和 第 二 个 表格 中 的 数据 
"查询 异步 执行 〈 在 后 台 执 行 ? 
"更 新 数据 


执行 以 上 代码 ， 弹 出 如 图 25-12 所 示 对 话 框 ， 让 用 户 输入 查询 快件 的 单 号 。 


图 25-12 输入 编号 


在 图 25-12 所 示 对 话 框 中 输入 快件 编号 ， 单 击 【 确 定 】 按 钮 进行 查询 ， 将 查询 结果 添 


加 到 新 增 的 工作 表 中 ， 如 图 25-13 所 示 。 


[加 Bel 2007 写 Imternatxls 玉 容 模式 ] 
a B 


2008-3-29 18:21 由 【北京 中 关 村 一 公司 】 【北京 


2008-3-29 18:09 at 公司 】 的 收 件 员 【 许 东 】 和 
公司 


2008-3-29 21: 人 和 可 描 员 是 【 硼 雪 梅 】 上 一 : 
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3 
生 
5 
6 
了 
2008-3-29 22:07 由 【北京 中 转 部 】 发 往 i 
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司 】 
2008-3-30 22:39 快件 已 到 达 【 四 川 成 都 公司 】 i i 


2008-4 17:35 【四 床 
13 2008-4-3 12:11 已 签收， E49 【本 人 】 


2008-4c1 12:23 由 A 公司 】 发 入 【四 川 达 州 公 
16 到 达 【 四 川 达 州 公司 】 后 各 Demy 
达州 公司 】 的 深 件 员 【 扬 茂 】 正在 派 件 


25-13 ”查询 结果 


名 注意: 在 使 用 以 上 代码 进行 查询 之 前 ， 计 算 机 应 该 能 访问 互联 网 。 


2. 提交 POST 方 式 的 参数 


与 GET 方式 提交 参数 不 同 , 使 用 POST 方式 提交 参数 时 , 在 URL 地 址 栏 看 不 到 提示 。 
这 时 ， 需 要 将 参数 通过 QueryTable 对 象 的 PostText 属性 进行 提交 。PostText 属性 返回 或 设 


置 用 于 POST 方法 的 字符 串 。 


使 用 POST 方式 提交 参数 时 ， 要 知道 网 页 中 需要 提交 参数 的 名 称 也 比较 麻烦 〈 有 一 定 
网 页 设计 经 验 的 读者 应 该 能 简单 地 查找 各 参数 名 ) 。 下 面 用 实例 介绍 操作 过 程 。 
很 多 网 站 都 提供 查询 手机 号 码 所 在 地 的 服务 ， 下 面 演示 用 VBA 设置 Web 查询 查找 手 


机 号 码 所 在 地 方法 。 


人 
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(1) 在 正 浏 览 器 中 输入 地 址 http:/www.ip138.com/， 打 开 如 图 25-14 所 示 的 网 页 。 


葬 IP 地 址 查 齐 一 手机 号 玛 查 询 归 属地 | 邮政 编码 查询 | 长 这 电话 区 号 | 身份 证 纯 到 本 --- 攻 | 后 恬 ] 
文件 四 辆 要 下 坦 看 轨 尿 若 四。 工具 四 硕 助 中 


四 外 - 加 - 国 国 候 月 入 克 wx 加 辐 : 稼 回国 网 色 
地 二 [各 Mtp f/m ip13 co BA-> ha 
TP 查 词 、 手 机 号 码 归属 班 、 旦 政 久 码 、 长 这 电话 区 配 、 身 从 证 号 码 怠 证 专 下 在线 查 词 


一 诺基亚 手机 游戏 ”一 索爱 手机 游戏 “一 诽 托 罗拉 手机 游戏 一 三 星 手机 游戏 


机 号 码 所 在 地 区 强力 查询 
Ea 


手机 号 码 ( 段 ) | ] 


欢迎 各 网 站 免费 链接 本 站 手机 号 码 查询 系统 , 获取 代码 按 此 


手机 大 全 查询 .手机 型 号 查询 , 手机 报价 查询 . 购 机 指南 
1 EL 


人 Tnenet 


图 25-14 打开 网 页 


(2) 在 正 浏览 器 中 单 击 【 查 看 】|【 源 文件 】 命 令 ， 打 开 【 记 事 本 】 窗 口 。 在 该 窗口 


中 显示 了 图 25-14 所 示 网 页 的 HTML 代码 。 


(3) 在 【记事 本 】 窗 口中 单 击 主 菜单 【编辑 】| 【查找 】 命 令 ， 查 找 字 符 串 “手机 号 码 
( 段 )” (图 25-14 所 示 查 询 手 机 文字 框 前 面 的 提示 文字 ) 。 可 在 HTML 代码 中 找到 以 下 


- 段 代码 : 


<form action="http://www.ipl38.com:8080/search.asp" method="post" 


onsubmit="return checkMobile();" target="mobilewindow" name="mobileform"> 


<input type="hidden" name="action" value="mobile"> 

<div align="center"><center><p>&nbsp;&nbsp; 手 机 号 码 ( 段 ) 

<input class="TextBoxStylen maxLength="11" name="mobile" size="15"> 
<input class="Buttonstyle" type="submit" value=" 查 询 "></p> 
</center></div> 

</form> 


其 中 标签 <form> 和 </form> 组 成 一 个 表单 。 在 <form> 标 签 中 定义 了 处 理 提交 参数 的 网 
页 为 “http://www.ip138.com:8080/search.asp”, 参数 提交 方式 为 POST。 需要 提交 两 个 参数 ， 


一 个 参数 名 为 action， 其 值 为 mobile， 该 行 HTML 代码 如 下 : 
<input type="hidden" name="action" value="mobile"> 
另 一 个 参数 为 mobile， 表 示 用 户 要 查询 的 手机 号 码 ， 该 行 HTML 代码 如 下 : 
<input class="TextBoxstyle" maxLength="11" name="mobile" size="15"> 
(4) 知道 处 理 数据 的 网 页 地 址 和 需要 提交 的 参数 后 ， 即 可 编写 如 下 VBA 代码 : 


Sub 查询 手机 所 在 地 () 
Dim str As String, strURL As String 


str = Application.InputBox (prompt :=" 请 输入 手机 号 码 : "，_ 
Title:=" 手 机 所 在 地 查询 "，Type:=2) 
If str = "False" Then Exit Sub 


"Ss 
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IE Left(str, 2) <> "13" Or Len(str) <> 11 Then 
MsgBox "请 输入 正确 的 手机 号 码 ! "，vbcritical + vbOKOonly， "提示" 
Exit Sub 
End If 
With Worksheets.Add 
-Name = str 
End With 
StrURL = "URL;http://www.ipl38.com:8080/search.asp" 
With ActiveSheet .QueryTables.Add (Connection:=strURL, Destination:= 
Range ("A2")) 
-Name = "mobile" 
-PostText = "action=mobilegmobile=" & str 


-FieldNames = True 
-RowNumbers = False 
.BackgroundQuery = True 
.Refresh 
End With 
End Sub 


名 提示: 要 使 用 POST 方式 提交 多 个 参数 ， 可 将 各 参数 与 符号 (及) 连接 起 来 ， 再 赋值 给 
PostText 属性 即 可 。 
运行 以 上 代码 ， 将 弹出 如 图 25-15 所 示 对 话 框 ， 输 入 手机 号 码 ， 单 击 【确定 】 按 钮 ， 
即 可 查 得 查询 的 结果 ， 如 图 25-16 所 示 。 


手机 所 在 地 坦 询 区 区 | 
25-15 ”输入 手机 号 码 25-16 查询 结果 


25.4 发 布 数据 到 Internet 


Excel 的 工作 短 可 以 很 方便 地 保存 为 HTML 文件 。 将 工作 秒 保 存 为 HTML 格式 后 ， 可 
以 在 网 页 浏览 器 中 查看 电子 表格 。Excel 还 能 够 将 数据 和 图 表 保 存 为 交互 式 网 页 。 


25.4.1 保存 为 网 页 


将 工作 敌 保 存 为 HTML 文件 最 简单 的 方式 是 直接 将 其 保存 为 网 页 格式 ， 有 具体 步骤 
如 下 : 


和 本 和 全 
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(1) 单 击 【Office 按钮 】 打 开 下 拉 菜 单 ， 单 击 【另存 为 】 命 令 打 开 如 图 25-17 所 示 的 
【另存 为 】 对 话 框 。 
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图 25-17 【另存 为 】 对 话 框 


(2) 在 【保存 类 型 】 下 拉 列 表 框 中 选择 “网 页 ”， 单 击 【 更 改 标题 】 按 钮 可 修改 网 页 
的 标题 。 单 击 【 保 存 】 按 钮 即 可 将 工作 秒 保 存 为 网 页 格式 。 

(3) 用 正 浏 览 器 打开 保存 的 网 页 ， 如 图 25-18 所 示 。 

在 图 25-18 所 示 网 页 中 ， 显 示 了 工作 表 中 的 数据 和 图 表 。 下 方 显示 了 3 个 工作 表 的 标 
签 ， 单 击 标签 名 可 在 各 工作 表 之 间 进 行 切换 。 

(4) 在 图 25-17 所 示 的 【另存 为 】 对 话 框 中 ， 单 击 【发 布 】 按 钮 将 打开 如 图 25-19 所 
示 的 【发 布 为 网 页 】 对 话 框 。 在 该 对 话 框 中 可 选择 要 发 布 的 工作 表 、 单 元 格 区 域 ， 单 击 【 发 
布 】 按 钮 ， 可 将 选择 的 目标 发 布 为 网 页 文件 。 


日 -四国 约 亡 屿 责 wmx 回合 - 
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文件 各 加 : [E:texeel2007 从 入 站 酝 肝 通 \ 实 例 \ 第 25 章 \ 黄 布 到 Internet | 
口 在 年 次 供 存 工作 芒 对 自动 重新 发 有 QD 


口 在 浏览 品 中 打开 已 发 布 同 页 D) 发 有 有) 


25-18 ”打开 网 页 图 25-19 【发 布 为 网 页 】 对 话 框 


25.4.2 用 VBA 代码 发 布 网 页 


在 VBA 对 象 模型 中 ，PublishObject 对 象 代表 保存 为 网 页 的 工作 竹中 的 元 素 ， 并 可 以 


= 
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根据 PublishObject 对 象 中 属性 和 方法 所 指定 的 值 进行 刷新 。PublishObject 对 象 是 
PublishObjects 集合 对 象 的 成 员 。 

使 用 PublishObjects 集合 的 Add 方法 ， 可 创建 一 个 对 象 ， 该 对 象 代表 保存 在 网 页 上 的 
文档 中 的 项 目 。 其 语法 格式 如 下 : 


表达 式 .Add (SourceType, FileName, Sheet, Source, HtmlType, DivID, Title) 


各 参数 的 含义 如 下 所 述 。 
口 SourceType: 设置 发 布 对 象 的 类 型 ， 可 设置 为 以 下 常量 。 
xlSourceWorkbook: 工作 敌 ; 
xlSourceSheet: 整 张 工作 表 ; 
xlSourcePrintArea: 选 定 的 用 于 打印 的 单元 格 区 域 ; 
xlSourceAutoFilter: “自动 筛选 ”区 域 ; 
xlSourceRange: 单元 格 区 域 ; 
xlSourceChart: 图 表 ; 
xlSourcePivotTable: 数据 透视 表 ; 
xlSourceQuery: 查询 表 〔 外 部 数据 区 域 〉。 
FileName: 用 于 保存 发 布 对 象 的 URL 或 路 径 〈 本 地 或 网 络 )。 
Sheet: 保存 为 网 页 的 工作 表 名 称 。 
Source: 用 来 标识 数据 项 的 唯一 名 称 ， 该 参数 取决 于 SourceType 参数 的 设置 。 如 
果 SourceType 是 xlSourceRange，Source 为 单元 格 区 域 或 名 称 ;， 如果 SourceType 
为 xlSourceChart、xlSourcePivotTable 或 xlSourQuery， 则 Source 为 图 表 名 称 、 数 
据 透 视 表 名 或 查询 名 称 。 
口 HtmlType: 指定 项 目 是 保存 为 交互 式 的 Microsoft Office Web 组 件 还 是 保存 为 静态 
文本 和 图 像 。 可 以 为 以 下 常量 : 
> xlHtmlStatic: 使 用 静态 〈 非 交互 式 ) HTML， 仅 用 于 查看 ， 不 允许 修改 数据 。 
> xlHtmlCale: 使 用 电子 表格 组 件 , 该 组 件 允许 在 下 上 查看 、 操 作 表 格 中 的 数据 。 
> xlHtmlList: 使 用 数据 透视 表 组 件 ， 人 允许 在 下 上 重新 排列 、 筛 选 和 汇总 信息 。 
> xlHtmlChart 使 用 图 表 组 件 ， 允 许 在 正 中 创建 交互 式 图 表 。 
口 DivID: 在 HIML DIV 标记 中 使 用 的 唯一 标识 符 ， 它 用 于 标识 网 页 上 的 项 。 
口 Title: 网 页 的 标题 。 
使 用 Add 方法 创建 PublishObject 对 象 后 ， 还 需要 使 用 Publish 方法 将 文档 中 的 项 或 项 
的 集合 保存 到 网 页 中 。Publish 方法 的 语法 格式 如 下 : 
表达 式 .Publish(Create) 


参数 Create 为 True 时 ， 若 设置 的 HTML 文件 已 经 存在 ， 将 覆盖 该 文件 。 
了 解 PublishObject 对 象 的 方法 后 ， 即 可 编写 程序 发 布 网 页 。 例 如 ， 以 下 代码 将 工作 表 
“成 绩 表 ” 中 的 图 据 和 图 表 发 布 为 一 个 静态 网 页 : 


Sub 发布 为 静态 网 页 () 
Dim pub As Publishobject 


Vvvvyvyvyv 


Doo 
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Set pub = ThisWorkbook.PublishObjects.Add( _ 
SourceType:=xlSourceSheet, _ 
Filename :=ThisWorkbook.Path & "\ 静 态 网 页 .htm"，_ 
Sheet :=" 成 绩 表 "，_ 
HtmlType:=xlHtmlstatic, _ 
Title:=" 成 绩 表 ") 

pub.Publish True ' 发 布 网 页 

End Sub 


执行 以 上 程序 后 ， 将 在 工作 敌 所 在 文件 夹 中 创建 一 个 名 为 “静态 网 页 .htm” 的 HTML 
文件 ， 同 时 还 自动 创建 一 个 名 为 “静态 网 页 .files” 的 子 文件 夹 。 用 正 浏览 器 打开 该 网 页 ， 
可 看 到 如 图 25-20 所 示 的 效果 ， 在 该 网 页 中 显示 了 工作 表 “ 成 绩 表 ”中 的 数据 和 图 表 ， 用 
户 不 能 修改 网 页 中 的 数据 。 


全 提示 : 在 Excel 2000 至 Excel 2003 中 ,可 以 使 用 PublishObject 创建 交互 式 网 页 。 在 这 种 
交互 式 网 页 中 使 用 Office Web 组 件 ， 让 用 户 可 以 在 IE 中 操作 Excel 工作 表 中 的 
数据 。 在 Excel 2007 中 ，Office Web 组 件 已 经 被 删除 ， 取 而 代 之 的 是 一 个 专用 服 
务 器 端 Excel 组 件 。 该 组 件 运行 于 SharePoint 服务 器 中 ， 并 用 网 页 的 形式 显示 给 
用 户 。 通 过 该 组 件 可 以 进行 打开 Excel 工作 薄 、 更 新 数据 、 执 行 计 算 等 操作 。 有 
关 SharePoint 的 配置 使 用 超出 了 本 书 的 介绍 范围 ,有 兴趣 的 读者 可 参考 相关 书籍 。 


文件 &) 编辑 时) ”查看 WJ) 收 察 凡 ) 工具 中 ”天助 虽 
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VBA 作为 一 种 简单 的 宏 设 计 语言 ， 相 对 来 说 比较 简单 。 但 可 以 通过 其 他 程序 设计 语言 
非常 方便 地 扩充 其 功能 。 例 如 ， 可 用 VBA 制作 Excel 加 载 宏 、 使 用 VB 等 高 级 程序 语言 设 
计 加 载 项 、 通 过 类 模块 自 定义 对 象 、 调 用 Windows API 函数 等 。 

本 部 分 共 5 章 ， 分 别 介绍 了 在 VBA 中 ， 使 用 这 些 高 级 应 用 的 方法 。 
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WI 第 30 章 制作 应 用 程序 的 帮助 
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在 Excel 中 , 通过 加 载 宏 可 以 扩展 Excel 的 功能 。 加 载 宏 是 为 Excel 提供 自 定义 命令 或 
自 定义 功能 的 补充 程序 。 本 章 将 介绍 创建 和 使 用 加 载 宏 的 方法 。 


26.1 ”加载 宏 的 概念 


加 载 宏 是 一 类 程序 ， 通 过 加 载 宏 可 为 Microsoft Excel 添加 可 选 的 命令 和 功能 ， 以 扩充 
Excel 的 功能 。 


26.1.1 加 载 宏 的 类 型 


根据 创建 加 载 宏 的 方式 不 同 ， 可 以 将 加 载 宏 分 为 多 种 类 型 ， 常 用 的 有 以 下 两 种 : 
1. Excel 加 载 宏 


这 是 最 常见 的 加 载 宏 ， 由 Excel VBA 创建 。 在 Excel 2007 之 前 版 本 中 ， 加 载 宏 的 扩展 
名 为 *.xla，Excel 2007 加 载 宏 的 扩展 名 为 *.xlam。 大 部 分 以 前 版 本 的 加 载 宏 也 可 以 在 Excel 
2007 中 加 载 使 用 。 

在 Excel 工作 适 编 写 好 VBA 代码 后 ， 将 其 保存 为 扩展 名 .xla 或 .xlam 后 ， 该 工作 铸就 
成 为 一 个 Excel 加 载 安 。Excel 加 载 宏 与 Excel 工作 短 主 要 有 以 下 两 点 区 别 : 

口 在 VBE 中 查看 ThisWorkbook 对 象 的 属性 ，Excel 工作 短 的 IAddin 属性 为 False， 

如 图 26-1 所 示 。Excel 加 载 宏 的 IsAddin 属性 为 True。 如 图 26-2 所 示 。 


图 26-1 Excel 工作 簿 属性 图 26-2 Excel 加 载 宏 属性 
口 Excel 加 载 宏 处 于 隐藏 状态 ， 并 且 不 能 通过 【视图 】 选 项 卡 【 窗 口 】 组 中 的 【取消 
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隐藏 】 按 钮 将 其 显示 出 来 。 
2. 自 定义 的 组 件 对 象 模型 (COM) 加载 宏 。 


COM 加 载 宏 使 用 各 种 编程 语言 (例如 ，VB、VC 等 ) 编写 ， 并 编译 生成 扩展 名 为 .dll 
的 文件 。 开 发 这 类 加 载 宏 需 要 开发 者 掌握 相应 的 编程 语言 ， 并 按照 一 定 的 方式 编写 加 载 宏 
的 事件 过 程 代 码 。 


26.1.2 ”加 载 宏 的 用 途 


加 载 宏 的 主要 作用 有 : 

口 保存 自 定义 函 数 ， 载 入 加 载 项 后 ， 用 户 可 以 像 使 用 内 署 函 数 一 样 调用 这 些 函 数 。 

口 保存 专用 宏 ， 如 果 不 希 望 用 户 查看 或 修改 宏 ， 可 将 这 些 宏 保存 在 加 载 项 文件 中 ， 

并 使 用 密码 保护 加 载 项 文件 。 

口 扩展 Excel 功能 ， 使 用 VBA 创建 一 些 分析 工 具 ， 用 于 扩展 Excel 的 功能 。 

与 普通 工作 短 或 个 人 工作 夭 中 的 宏 相 比 ， 加 载 安 有 诸多 优越 之 处 。 首 先 ， 加 载 宏 能 方 
便 地 提供 给 他 人 使 用 (简单 的 复制 文件 即 可 ，〉， 让 宏 的 开发 者 与 使 用 者 可 以 完全 分 离 。 因 
此 ， 开 发 人 员 可 以 为 某 一 目的 编写 包含 大 量 复杂 处 理 、 功 能 完备 的 加 载 安 ， 使 用 者 只 需要 
像 使 用 Excel 的 标准 命令 一 样 进行 操作 ， 其 次 ， 加 载 宏 的 按 需 加 载 、 和 卸载 机 制 ， 有 利于 系 
统 内 存 的 有 效 利用 。 


26.1.3 ”Excel 中 已 有 的 加 载 宏 


在 互联 网 上 可 以 下 载 很 多 加 载 宏 程 序 供用 户 下 载 使 用 。 另 外 ， 在 安装 Excel 时 ， 已 向 

系统 中 安装 了 很 多 加 载 宏 程序 ， 下 面 简单 介绍 这 些 加 载 宏 的 功能 。 

口 Internet Assistant VBA: 开发 人 员 可 用 Internet Assistant 语法 ， 将 Excel 数据 发 布 
到 网 站 上 。 

口 查阅 向 导 : 帮助 创建 在 列表 中 查找 数据 的 公式 。 

口 分 析 工 具 库 : 提供 一 组 包括 金融 、 统 计 和 工程 类 的 数据 分 析 工 具 和 函数 ， 增 添 了 
Excel 中 没有 包含 的 统计 和 分 析 功 能 。 主 要 有 方差 分 析 、 相 关系 数 、 协 方差 、 描 述 
统计 、 指 数 平滑 、F- 检 验 双 样 本 方差 、 传 利 叶 分 析 、 直 方 图 、 移 动 平均 、 随 机 数 
发 生 器 、 排 位 与 百分比 排 位 、 回 归 、 抽 样 、t 检 验 、z 检验 等 。 

口 分 析 工 具 库 一 VBA: 内 容 与 上 面 的 相同 ， 为 分 析 工 具 库 提供 的 VBA 函数 。 允 许 
开发 人 员 用 分 析 工 具 库 的 语法 发 布 金融 、 统 计 及 工程 分 析 工 具 和 函数 。 

口 规划 求解 加 载 项 : 提供 了 公式 求解 和 优化 的 工具 。 对 基于 可 变 单元 格 和 条 件 单元 
格 的 假设 分 析 方案 进行 求解 计算 。 

口 欧元 工具 : 提供 用 于 欧元 转换 及 格式 设置 的 工具 。 将 数值 的 格式 设置 为 欧元 格式 ， 
并 提供 EUROCONVERT 工作 表 函 数 用 于 转换 货币 。 

口 条 件 求 和 向 导 : 提供 了 对 列表 中 的 数据 根据 不 同 的 条 件 求 和 的 工具 。 

这 些 加 载 宏 都 是 应 用 到 某 些 特殊 领域 ， 普 通用 户 一 般 用 不 到 。 
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26.2 管理 加 载 宏 


要 在 工作 适中 使 用 加 载 宏 提供 的 功能 ， 必 须 将 该 加 载 宏 载 入 内 存 。 本 节 简 单 介绍 载 入 
加 载 安 和 务 载 加 载 宏 的 方法 。 


26.2.1 载 入 加 载 宏 


在 使 用 加 载 宏 之 前 ， 必 须 先 将 其 载 入 Excel 中 。 其 实 ， 载 入 加 载 宏 就 是 打开 加 载 宏文 
件 , 将 相关 命令 添加 到 相关 选项 卡 中 (对 于 用 户 创建 的 加 载 宏 , 默认 情况 下 都 是 添加 到 【加 
载 项 】 选 项 卡 中 ) 。 下 面 介 绍 载 入 加 载 宏 的 方法 。 

(1) 启动 Excel 后 ， 单 击 【Office 按钮 】 打 开 下 拉 菜 单 ， 单 击 右 下 方 的 【Excel 选项 】 
按钮 打开 【Excel 选项】 对 话 框 。 

(2) 单 击 对 话 框 左 侧 的 【加 载 项 】 按 钮 ， 如 图 26-3 所 示 。 在 该 对 话 框 中 可 看 到 活动 加 
载 项 和 非 活动 加 载 项 。 


Ch-ofcevofcelzWDDINSVTCSCCONVDLL COM M0 
CA Offcevpffcel DADOINS\SMINPUT DLL COM 30 
cenornceawoomsysvwvpurotL COM so 四 


Ch-soh ofcwoficwaZWubranrTMLXLAM Excel sn 
cy 


lesWicrosoft OficeOFicel7ADDINSVTCSCCONV DL 


COM addn tat ansiates bemween Tradiicnal chinese and simpaged Chinese 


[bcl MB [mg 


Cj Cw 


图 26-3 【加 载 项 】 选 项 卡 


(3) Excel 2007 支持 多 种 类 型 的 加 载 项 ， 单 击 该 对 话 框 下 方 【 管 理 】 标 签 右 侧 的 下 拉 
列表 框 ， 在 该 列表 框 中 选择 Excel 加 载 项 ， 单 击 右 侧 的 【 转 到 】 按 钮 ， 打 开 如 图 26-4 所 示 
的 对 话 框 。 

(4) 在 图 26-4 所 示 对 话 框 中 选中 【规划 求解 加 载 项 】， 单 击 【 确 定 】 按 钮 。 在 【数据 】 
选项 卡 右 侧 将 增加 一 个 【分 析 】 组 ， 在 该 组 中 添加 了 一 个 【规划 求解 】 按 钮 ， 如 图 26-5 

(5) 单 击 功 能 区 上 的 【规划 求解 】 按 钮 ， 即 可 与 使 用 Excel 其 他 内 部 命令 一 样 的 方法 
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图 26-4 加载 宏 图 26-5 功能 区 


26.2.2 ”和 扼 载 加 载 宏 


将 加 载 宏 载 入 Excel 后 ， 每 次 启动 Excel 时 ， 选 择 的 加 载 宏 都 会 自动 被 载 入 。 加 载 宏 
在 运行 时 将 占用 一 定数 量 的 内 存 ， 而 且 在 启动 Excel 时 ， 加 载 过 多 的 加 载 宏 也 会 占用 太 多 
的 启动 时 间 。 所 以 ， 对 于 不 需要 用 的 加 载 宏 程序 ， 应 该 及 时 从 Excel 中 印 载 掉 。 

卸载 加 载 宏 的 方法 非常 简单 , 按 上 面 的 步骤 在 图 26-4 所 示 对 话 框 中 去 掉 相关 加 载 宏 前 
面 的 勾 即 可 。 

加 载 宏 程序 一 旦 被 和 卸载， 除非 再 次 加 载 ， 否 则 Excel 将 不 会 自动 进行 加 载 。 


26.2.3 ”系统 加 载 宏 列表 


在 VBA 对 象 模型 中 ， 使 用 AddIn 对 象 代表 单个 加 载 宏 。 在 程序 中 可 通过 以 下 属性 获 
取 指 定 加 载 宏 的 属性 值 。 


口 
口 
口 


口 
口 


CLSID 属性 : 获取 加 载 宏 的 唯一 标识 符 ， 或 识别 对 象 的 CLSID。 

FullName 属性 : 返回 对 象 的 名 称 〈 以 字符 串 表 示 ) ， 包 括 其 磁盘 路 径 。 

Installed 属性 : 将 此 属性 设 为 True， 将 安装 指定 加 载 安 ， 并 调用 Auto Add 函数 。 
将 此 属性 设 为 False， 则 移 去 指定 加 载 宏 ， 并 调用 Auto Remove 函数 。 

Name 属性 : 返回 对 象 的 名 称 。 

Path 属性 : 返回 应 用 程序 的 完整 路 径 ， 不 包括 末尾 的 分 隔 符 和 应 用 程序 名 称 。 


Excel 中 所 有 的 Addm 对 象 组 成 AddIns 集合 ， 无 论 加 载 宏 是 否 装载 到 内 存 中 ， 都 将 包 
含 在 AddIns 集合 中 。 该 集合 中 的 对 象 与 图 26-4 所 示 对 话 框 中 显示 的 加 载 宏 列表 对 应 。 

使 用 以 下 代码 可 显示 Excel 中 的 加 载 宏 列表 : 

sub 加 载 宏 列表 () 


Dim adi Rs AddIn, i Rs Long 

=1 

With Worksheets ("加 载 宏 列表 ") 

For Each adi In Application.AddIns 
人 
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.Cells(i, 1) = adi.Name ' 加 载 宏 名 称 
-Cells(i, 2) = adi.Installed ' 安 装 状态 
.Cells (i, 3) = adi.Path ' 文 件 位 置 
Next 
.Columns.AutoFit 
End With 
End Sub 


以 上 代码 从 Addins 集合 中 循环 显示 每 个 加 载 宏 的 名 称 和 文件 位 置 。 执行 以 上 代码 , 将 
在 工作 表 中 显示 加 载 宏 列表 ， 如 图 26-6 所 示 。 


| 国 10P em 
| a B 站 

1_ 名 称 加 载 状 太 文件 位 置 

2 TNL. KLAN FALSE C:\Progran Files\licrosoft Office\Officel2\Library 


3 llabclprint. slan FALSE C:\Progran Filcs\licrosoft Dfficc\Officcl2\Library\ 
4 JLOOKUP, XLAN FALSE C:\Progran Files\Nicrosoft Dffice\Officel2\Library 
5 ANALYSS2. XLL FALSE C:\Program Filcs\Nicrosoft Officc\Officcl2\Library' 
6 |ATPVEAEN. XLAN FALSE C:\Program Files\Nicrosoft Dffice\Officel2\Library 
ISOLVER. XLAN FALSE C:\Frogran Flles\Nlcrosoft DTTiceMOTT1cel2NLIbrary' 
a EUROTOOL XLAN FALSE C:\Progran Files\Nicroscft Dffice\Officel2\Library 
9 |SUMIF, XLAN FALSE C:\Progran Files\Microsoft DIfice\Officel2\Library 
10 

pn 


图 26-6 ”加 载 宏 列表 


26.3 ”创建 加 载 宏 


常用 的 加 载 宏 有 两 种 ， 即 Excel 加 载 安 和 COM 加载 宏 。Excel 加 载 宏 直 接 在 Excel 中 
创建 ， 而 COM 加 载 宏 需 要 使 用 编程 工具 (如 VB、C++ 等 ) 来 编写 。 本 节 将 介绍 这 两 种 创 
建 加 载 宏 的 方法 。 


26.3.1 创建 Excel 加 载 宏 


本 节 以 实例 形式 介绍 创建 Excel 加 载 宏 的 方法 。 下面 的 实例 将 在 加 载 宏 中 创建 一 个 “ 计 
算 个 人 所 得 税 ” 的 函数 ， 用 来 扩充 Excel 的 功能 。 

不 需 用 其 他 软件 就 可 直接 从 Excel 工作 秒 创 建 加 载 宏 。 任 何 Excel 工作 短文 件 都 可 以 
转换 为 加 载 宏 ， 但 并 不 是 所 有 的 工作 短文 件 都 适合 用 于 加 载 宏 ， 一 般 将 包含 通用 功能 的 工 
作 敌 转换 成 加 载 宏 。 创 建 Excel 加 载 宏 的 步骤 如 下 : 

(1) 新 建 一 个 Excel 文档 。 

(2) 按 快捷 键 Altr+F11 进入 VBE， 向 工程 中 插入 一 个 模块 。 

(3) 在 模块 中 编写 实现 所 需 功 能 的 子 过 程 。 在 工作 敌 的 加 载 宏 事件 中 编写 代码 。 

(4) 设置 工作 敌 的 属性 ， 其 中 标题 名 即 为 加 载 宏 的 名 称 ， 备 注 栏 中 的 说 明 即 为 对 加 载 
宏 功 能 的 描述 ， 当 选中 这 个 加 载 宏 时 ， 这 些 说 明 将 出 现在 加 载 宏 对 话 框 的 底部 。 

(5) 使 用 另存 为 命令 保存 工作 禾 。 保 存 类 型 选择 为 加 载 宏 。 在 Excel 2007 中 可 将 工作 
筹 保存 为 扩展 名 为 Excel 加 载 宏 (扩展 名 为 *.xlam) ,或 Excel 97-200 加 载 宏 (扩展 名 为 *.xla) 
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在 另存 工作 禾 时 ， 当 选择 保存 为 加 载 宏 后 ， 其 保存 位 置 将 自动 切换 到 用 户 数据 文件 夹 
的 AddIns 文件 夹 中 ， 如 图 26-7 所 示 。 
加 内 
ns 国 @- 耻 x 相 国 - 


ET 
司 becoments and Settines 


ET 二 
| 保 闪 类 型 四。 [Excel 97-2003 加 载 定 e- aas) 


图 26-7 加 载 宏 保存 位 置 


全 注意 ; 转换 成 加 载 宏 的 工作 簿 必须 至 少 含有 一 个 工作 表 ， 且 工作 表 须 处 于 活动 状态 。 


创建 “个 人 所 得 税 ” 加 载 宏 的 具体 方法 如 下 : 

(1) 新 建 一 个 Excel 工作 敌 。 

(2) 按 快捷 键 Alt+F11 进入 VBE。 

(3) 在 VBE 中 插入 一 个 模块 ， 在 模块 中 输入 以 下 代码 ， 定 义 Tax 函数 用 来 计算 个 人 
所 得 税 : 


Option Explicit 
Function Tax(Income As Double, Optional Tax Standard As Integer = 2000) As 
Single 

Dim SngBase Rs Single :应 纳税 金额 

Dim SngRate Rs Single 1 税率 

Dim intTemp As Integer “速算 扣 除数 


SngBase = Income - Tax Standard 
Select Case SngBase 
Case Is <= 0 
SngRate = 0 
intTemp = 0 
Case Is <= 500 
SngRate = 0.05 
intTemp = 0 
Case Is <= 2000 
SngRate = 0.1 
intTemp = 25 
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Case Is <= 5000 
SngRate = 0.15 
intTemp = 125 

Case Is <= 20000 
SngRate = 0.2 
intTemp = 375 

Case Is <= 40000 
SngRate = 0.25 
intTemp = 1375 

Case Is <= 60000 
SngRate = 0.3 
intTemp = 3375 

Case Is <= 80000 
SngRate = 0.35 
intTemp = 6375 

Case Is <= 100000 
SngRate = 0.4 
intTemp = 10375 

Case Is > 100000 


SngRate = 0.45 
intTemp = 15375 
End Select 


Tax = Round(Abs (SngBase * SngRate - intTemp), 2) 
End Function 


在 以 上 代码 中 ， 函 数 Tax 的 参数 中 使 用 了 Optional 关键 字 。 使 用 该 关键 字 表 示 参 数 不 
是 必需 的 ， 在 调用 该 函数 时 可 以 不 输入 该 参数 。 可 选 参 数 可 设置 默认 值 ， 具 体形 式 如 下 : 

Function Tax (Income As Double, Optional Tax Standard As Integer = 2000) Rs 

Single 

(4) 返回 Excel 界面 ， 在 工作 表 中 选择 一 个 单元 格 ， 输 入 以 下 公式 测试 函数 的 运行 
状态 : 

=tax (4000) ' 以 默认 值 2000 为 个 税 起 征 点 

=tax (4000,1600) ' 以 1600 为 个 税 起 征 点 

经 过 多 次 测试 ， 确 认 自 定义 的 函数 运行 正确 ， 即 可 进行 以 下 操作 。 

(5) 单 击 【Office 按钮 】 打 开 下 拉 菜 单 ， 选 择 菜单 【准备 】|【 属 性 】 命 令 ， 在 工作 短 
上 方 打 开 【 文 档 属性 】 面 板 ， 修 改 工作 敌 的 属性 如 图 26-8 所 示 。 


9X 性 ~ 及 村: \ce12007 儿 入 站 了 精 通 \ 实 出 \ 第 26 章 \ 个 人 所 得 科 . x1。 。 汗 碱 庆 
作者 标题 FE: 关键 司 

[ 厨 远 高 个 人 所得 而 [ ] 

关 别 : 状态 


备注 
[ 亢 RETsx 路 入 ,下 征 扣 J 可 计算 后 绩 下 人 所 达观 宇 枯 


图 26-8 ”修改 属性 
(6) 单 击 【Office 按钮 】 打 开 下 拉 菜 单 ， 选 择 菜 单 【 另 存 为 】 命 令 ， 将 工作 短 另 存 为 
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加 载 宏 “ 个 人 所 得 税 .xla”， 完 成 加 载 宏 的 创建 。 
下 节 将 介绍 调用 加 载 宏 所 提供 函数 的 方法 。 


26.3.2 ”创建 COM 加 载 宏 


Excel 加 载 宏 是 扩展 名 为 *.xla 或 *.xlam 的 Excel 工作 短 ， 可 在 Excel 中 打开 进行 修改 。 
而 COM 加 载 宏 是 一 个 二 进 制 文件 ， 其 扩展 名 为 *.DLL。 创建 COM 加 载 宏 需 要 使 用 程序 设 
计 语 言 (如 VB、C++ 等 ) 。 

用 VB 创建 COM 加 载 宏 时 ， 应 在 VB 中 引用 以 下 类 型 库 : 

口 Visual Basic for Applications; 

口 OLE Automation; 

口 Microsoft Add-in Designer; 

口 Microsoft Office 12.0 Object Library; 

口 Microsoft Excel 12.0 Object Library。 


全 提示 : 若 使 用 Office 2003， 则 引用 Office 11.0 和 Excel 11.0 类 型 库 。 

在 VB 中 添加 以 上 类 型 库 的 引用 后 ， 就 可 以 在 VB 程序 中 引用 Excel 的 对 象 模 型 ， 从 
而 控制 Excel 程序 。 在 VB 程序 中 使 用 以 下 语句 创建 与 Excel 的 Application 的 连接 : 

Set oXL = Excel.Application 

在 VB 中 创建 COM 加 载 宏 的 步骤 如 下 : 

(1) 用 VB 创建 一 个 “外 接 程序 ”工程 。 

(2) 在 工程 的 “设计 器 ”Connect 代码 中 添加 以 下 代码 ， 响 应 用 户 单 击 工具 按钮 (或 
菜单 ) 的 事件 。 
Dim WithEvents MyButton Rs Office.CommandBarButton 
(3) 在 AddinInstance_OnConnection 事件 过 程 中 编写 代码 ， 用 于 创建 工具 按钮 (或 菜 
， 或 者 在 此 处 进行 一 些 基 础 设置 (如 创建 与 Excel 的 Application 对 象 的 连接 等 ) 。 
(4) 在 AddinInstance_OnDisconnection 事件 过 程 中 编写 代码 , 清除 加 载 宏 的 各 种 设置 。 
(5) 编写 按钮 对 象 MyButton 的 单 击 事件 ， 处 理 用 户 单 击 按钮 时 执行 的 子 过 程 。 


Private Sub MyButton Click(ByVal Ctrl Rs Office.CommandBarButton, _ 
CancelDefault As Boolean) 


区 


外 提示 : 如 果 没 有 创建 工具 按钮 或 菜单 ， 本 步骤 可 省 略 。 


(6) 编写 完成 相应 功能 的 子 过 程 代码 。 

(7) 将 VB 工程 编译 为 DLL 文件 ， 完 成 COM 加 载 宏 的 创建 过 程 。 

下 面 以 具体 实例 演示 创建 COM 加 载 宏 的 方法 。 该 实例 完成 的 功能 很 简单 : 将 单元 格 
中 的 英文 字母 进行 大 小 写 相互 转换 。 

本 例 使 用 VB6 创建 COM 加 载 宏 ， 要 求 计算 机 系统 中 首先 要 安装 VB6 企业 版 。 有 具体 


ra 
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的 创建 过 程 如 下 : 
(1) 启动 VB6， 在 【新 建 工 程 】 对 话 框 中 选择 【外 接 程序 】 项 ， 如 图 26-9 所 示 。 单 击 
【 确定】 按钮 创建 新 的 工程 ， 进 入 VB 开发 环境 。 


图 26-9 【新 建 工程 】 对 话 杠 


(2) 在 VB 开发 环境 右 侧 的 【工程 了 管理 器 窗口 中 有 一 个 窗 体 和 一 个 设计 器 , 如 图 26-10 
所 示 。 用 鼠标 右键 单 击 窗 体 frmAddIn 项 ， 在 弹出 的 快捷 菜单 中 选择 【 移 除 frmAddIn】 命 
令 ， 将 窗 体 删除 ， 只 保留 设计 器 项 。 

(3) 在 图 26-10 所 示 【 工 程 】 窗 口中 单 击 工程 名 称 MyAddm， 在 【属性 】 窗 口中 将 工 
程 名 称 改 为 Caps， 如 图 26-11 所 示 。 


感性 - ceps 四 
css 和 可 
按 字 生 序 | 按 分 类 序 | 


EE yAddln OyAddln) 
本 窗 1 


加 frmAddTn (fraAddIn) 
写生 设计 器 
Connect (Conneet) 


多 四 上 


图 26-10 工程 管理 器 图 26-11 【属性 】 窗 口 


(4) 双击 设计 器 下 的 Connect 选项 ， 打 开 如 图 26-12 所 示 的 对 话 框 。 在 该 对 话 框 中 设 
置 COM 加 载 项 的 各 项 配置 参数 ， 如 设置 加 载 宏 的 显示 名 称 、 描 述 、 应 用 到 哪 类 程序 及 程 
序 的 版 本 、 加 载 宏 的 启动 方式 等 。 

(5) 右键 单 击 设计 器 的 Connect 选项 ， 在 弹出 的 快捷 菜单 中 选择 【查看 代码 】 命 令 ， 
将 打开 该 模块 的 代码 窗口 。 将 代码 窗口 中 己 有 的 代码 全 部 删除 。 

(6) 在 代码 窗口 顶端 输入 以 下 代码 ， 定 义 模块 变量 。 


Option Explicit 
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Dim oxXL As Object ' 引 用 Application 的 变量 
Dim WithEvents MyButton As Office.CommandBarButton 


Caps — Connect (AddInDesigner) 


图 26-12 设置 加 载 宏 配置 参数 


以 上 代码 使 用 WithEvents 关键 字 说 明 MyButton 是 一 个 用 来 响应 由 ActiveX 对 象 触发 
的 事件 的 对 象 变量 。 在 本 例 中 ， 用 来 响应 用 户 单 击 工具 栏 按钮 的 事件 。 
(7) 编写 AddinInstance OnConnection 事件 过 程 的 代码 如 下 : 
Private Sub AddinInstance OnConnection(ByVal Application Rs Object, _ 
ByVal ConnectMode As AddInDesignerObjects.ext ConnectMode, _ 


ByVal AddInInst As Object, custom() Rs Variant) 
On Error Resume Next 


Set oxXL = Application 


Set MyButton = oXL.CommandBars ("Standard") .Controls.Add(1) 
With MyButton 
.Caption = "字母 大 小 写 转换 " 
.Style = msoButtonCaption 
.Tag = "字母 大 小 写 转换 " 
-Visible = True 
End With 
End Sub 


AddinInstance_OnConnection 事件 过 程 在 加 载 宏 被 加 载 时 执行 。 以 上 代码 首先 获取 对 
Excel 的 Application 对 象 的 引用 ， 接 着 在 Standard 工具 栏 中 添加 一 个 按钮 ， 并 将 按钮 的 引 
用 保存 到 模块 变量 MyButton 中 ， 最 后 设置 按钮 的 相关 属性 。 

名 注意 : 按钮 的 属性 中 没有 设置 OnAction 属性 。 
(8) 编写 AddinInstance_ OnDisconnection 事件 过 程 的 代码 如 下 : 


Private Sub AddinInstance OnDisconnection(ByVal RemoveMode Rs _ 
AddInDesignerObjects.ext DisconnectMode, custom() Rs Variant) 
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On Error Resume Next 


MyButton.Delete 
Set MyButton = Nothing 
Set oXL = Nothing 

End Sub 


AddinInstance_OnDisconnection 事件 过 程 在 加 载 宏 被 卸载 时 执行 。 以 上 代码 使 用 模块 
变量 MyButton 快速 删除 添加 的 按钮 对 象 。 
(9) 编写 MyButton_Click 事件 过 程 的 代码 如 下 : 
Private Sub MyButton Click(ByVal Ctrl As Office.CommandBarButton, 
CancelDefault As Boolean) 


LCase2UCase 
End Sub 


单 击 创建 的 工具 按钮 时 ， 将 执行 上 面 的 代码 ， 调 用 子 过 程 LCase2UCase 进行 大 小 写字 
母 的 转换 。 
(10) 编写 子 过 程 LCase2UCase 的 代码 如 下 : 
Sub LCase2UCase() 
Dim s As String 


With oxL 
s = .ActiveCell.Value 


If Asc(Left(s, 1)) > 90 Then 
.ActiveCell = Ucase(s) 
Else 
.ActiveCell = LCase(s) 
End If 
End With 
End sub 


以 上 代码 通过 模块 变量 oXL 引用 Excel 的 Application 对 象 ， 再 通过 该 对 象 的 属性 
ActiveCell 获取 Excel 当前 活动 单元 格 的 值 ， 并 进行 大 小 写 的 转换 。 
全 注意 ; 要 引用 Excel 中 的 对 象 ， 必 须 在 对 象 前 面 加 上 对 Excel 的 Application 对 象 的 引用 
变量 ， 以 限定 访问 的 是 Excel 中 的 对 象 。 


(11) 选择 菜单 【文件 】|【 保 存 工程 】 命 令 ， 保 存 当前 的 工程 。 
(12) 选择 菜单 【文件 】|【 生 成 Caps.dll】 命 令 生 成 COM 加 载 宏 。 


全 提示 : 因为 在 图 26-12 中 设置 该 COM 加 载 宏 为 启动 型 ， 所 以 打开 Excel 应 用 程序 时 ， 
该 加 载 宏 将 自动 启动 。 如 果 在 Excel 中 使 用 时 发 现时 加 载 宏 代码 需要 修改 , 在 VB 
中 修改 后 生成 DLL 文件 之 前 需 将 Excel 关闭 ， 否 则 将 出 现 错误 。 


通过 以 上 步骤 ， 完 成 创建 COM 加 载 宏 的 过 程 。 下 节 将 介绍 引用 该 加 载 宏 的 方法 。 
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26.4 使 用 加 载 宏 


用 户 可 以 使 用 VBA、VB、VC 等 开发 自 定义 加 载 宏 , 也 可 从 互联 网 上 下 载 加 载 宏 。 要 
使 用 这 些 加 载 宏 ， 需 要 通过 【Excel 选项 】 对 话 框 将 其 添加 到 Excel 系统 中 ， 然 后 就 可 以 在 
工作 竹中 使 用 Excel 加 载 安 提供 的 功能 ， 与 使 用 Excel 内 置 功能 相同 。 

下 面 分 别 介绍 使 用 Excel 加 载 宏 和 COM 加 载 宏 的 方法 。 


26.4.1 ”使 用 Excel 加 载 宏 


自 定义 加 载 宏 的 使 用 方法 与 系统 自 带 的 加 载 宏 相 同 ， 不 同 的 是 装载 加 载 宏 时 需要 选择 
文件 保存 的 位 置 。 下 面 列 出 使 用 前 面 创建 的 加 载 项 的 步骤 。 

(1) 启动 Excel， 单 击 【Office 按钮 】 打 开 下 拉 菜 单 ， 选 择 右 下 方 的 【Excel 选项 】 按 
钮 ， 打 开 【Excel 选项 】 对 话 框 。 

(2) 单 击 对 话 框 左 侧 的 【加 载 项 】 按 钮 ， 在 对 话 框 下 方 【管理 】 标 签 右 侧 的 下 拉 列 表 
框 中 选择 【Excel 加 载 项 】， 如 图 26-13 所 示 。 


Ci NS\TCSCCONV.DLL 
-fhice12\ADOINS\SYMINPUT. DLL 


Ch-AICELIWADDINSSYMINPUT.DLL 


CN-aoficelzyUbrarHTMLXLAM 
Ch-ranabel rpnlsbeiprirtzam 
Ch-of ofcevDfice12WOFFRHD DLL 


COM sddin that tanslates betmeen Tradisanal Chnese and Simpified Chnese. 


图 26-13 “Excel 加 载 项 


(3) 在 图 26-13 所 示 对 话 框 中 单 击 右 侧 的 【 转 到 】 按 钮 ， 
打开 如 图 26-14 所 示 的 对 话 框 ， 在 该 对 话 框 中 显示 了 Excel 
能 引用 的 加 载 宏 的 列表 。 

(4) 单 击 对 话 框 右 侧 的 【浏览 】 按 钮 ， 默 认 情 况 下 将 自 
动 定位 到 用 户 数据 文件 夹 的 AddIns 文件 夹 中 ， 如 图 26-15 所 
示 。 若 用 户 自 定义 的 Excel 加 载 安 位 于 其 他 位 置 , 可 通过 该 对 
话 框 查找 到 加 载 宏文 件 。 

(5) 如 图 26-15 所 示 , 在 对 话 框 中 选择 “个 人 所 得 税 .xla” 
加 载 项 文件 。 26-14 【加 载 宏 】 对 话 框 
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(6) 单 击 【确定 】 按 钮 将 该 加 载 安 添 加 到 Excel 中 ， 在 【加 载 宏 】 对 话 框 中 可 以 看 到 
【个 人 所 得 税 】 项 目 己 处 于 选中 状态 ， 在 下 方 有 该 加 载 宏 的 提示 信息 ， 如 图 26-16 所 示 。 


2 [ 
?区 


图 全 " 态 |X 全 回 * 


可 用 加 吉 宕 : 
DInternet hssistant VEA 
标签 打印 向 导 


去 位 各 0); 
ND ve va 合用 Tax (收入 ,起 证 点 ) 可 计算 应 细 个 人 所 得 讽 多 可 


图 26-15 ”选择 加 载 宏文 件 图 26-16 选择 加 载 宏 
(7) 单 击 【确定 】 按 钮 返回 Excel 中 。 
(8) 打开 或 创建 一 个 工资 表 ， 如 图 26-17 所 示 。 在 该 工作 表 中 ，“ 所 得 税 ” 列 需 调用 
加 载 宏 中 的 函数 Tax 来 进行 计算 。 


TR ex 
WE BE 5 D 上 有 | d 上 L & | 
: 员工 工资 表 

3 

Fa| by 

4 作 各 [各 示 区- 于 职工 次 工具 I 次 轴 内 | 珊 下 一 修 计 一 | 太守 [ 社 太后 术 Wh 计 | 天 必 全 项 | 答 字 
5 ¥4,000.00| ¥500.00 | 360 | 300 了 5.100 .00| 20 | 56 1 | F4519.00 

5 于 2.800.00| ¥300.00 | 100 |250 ¥3,450,00 | 60 |37 ¥3, 010, 50 

了 _| 张 小山 | ¥2,600,.00| ¥500,.00 | 180 |150 ¥3,230,00 | 20 | | ¥2, 854. 70 

8 | ¥3,100.00 ¥0.00 80 150 ¥3,330.00| 60 |3664 .3 |¥2, 903.70 

9 下 3.300.00| ¥0.00 100 | 200 | ¥750,00| ¥4,350.00| 0 |47 ¥3, 87]. 50 

10 明 | ¥3, 300.00| ¥0,00 140 16.5 | ¥3,613, 40 

11 | 合计 |¥18, 100. 00| ¥1,100.00 go0| 1050| 1370[¥23, 520.00| 160| 2587} or47. 2|¥ 20, 772. 8ol 


26-17 工作 表 


(9) 单 击 选择 单元 格 5， 在 该 单元 格 中 输入 公式 “=tax(g5)”， 调 用 加 载 宏 中 定义 的 
函数 Tax 计算 个 人 所 得 税 。 如 图 26-18 所 示 。 


基本 工资 实 发 多 者 
¥ 4, 000, 00 ). 00 =tax (5)| ¥4,178, 00 
¥2, 800.00 ¥3, 450.00 内 ¥3, 010. 50 


¥ 2, 600. DO ¥3, 230. 00 5.3 | 2, 854. 70 
于 3.100.00| 于 0.00 ¥3, 330, 00 ¥2, 905, 70 
¥3,300.00| ¥0.00 ¥4, 350. 00 .5 | ¥3, 971.50 


¥3, 300.00| ¥D.00 4 0650. 00 .6 | ¥3,613, 40 
¥ 19, 100. 00| 1, 100, 00| [¥ 23, 520. ool .2|¥ 20, 432.80| 


图 26-18 输入 加 载 宏 中 定义 的 函数 
(10) 向 下 拖 动 单元 格 巧 的 填充 柄 ， 得 到 了 列 各 单元 格 的 公式 数据 ， 如 图 26-19 所 示 。 
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国 工 次 x 洋 宏 入 十 Ep 
En E E 了 5 1 x ga 下 
员工 工资 表 

2 

本 证 发 工资 签 : 

4 | 手 名 村 不 T 砍 职务 工资 工交 次 | 大 五条 到 S53 E33 不 于 | 9 人 | 签字 

5 | 伍 远 高 | 站 4, 000. 00| 衬 500. DD 300 300 ¥5,100.00| 20 | S61 子 340.00 921 179.00 

6 | 芳 | ¥2, 800.00| ¥300.00 100 250 | ¥3,450.00| 60 | 373. ¥120.00 | 1559.5 |¥2,890.50 

7 | 张 小 山 |Y2 600. 00| ¥300 00 | 180 | 150 |¥323n 00[ 20 | sss 村 和 99.00 | je73.3 | 和 2 756.70 

8 | 地 妹 |¥3,100.00| 于 0.00 80 “| 150 | ¥3,330.00| 60 |see.§| ¥108.00 | j34.3 |¥2,795.70 

玉 涛 | 闻 3 300.00| 于 0,.00 100 | 200 | ¥750.00| ¥4,350.00| 0 |d78. 铝 ¥227.50 |f 706 |¥3,644.00 

10 | 要 明 | 闻 3.300.00| 0.00 | 190 ¥ 520. 00| ¥ 4, 050. 00 qq 6\ ¥189. 00 ff 530.5 |¥3,429. 40 

11 | 合计 |¥19,100.00| ¥1, 100.00| 900| 1050 1370| ¥ 23, 520.00| 160| 2587| 3924. 7|¥19, 695. 30) 

12 | 审核 : 
| hectl SheetE hety 下 


图 26-19 复制 公式 


从 以 上 过 程 可 看 出 ， 在 Excel 中 引用 加 载 宏 中 的 函数 ， 与 使 用 Excel 的 内 置 函 数 相同 。 
因此 ， 用 户 可 以 将 常用 的 自 定义 函数 汇总 到 一 起 ,创建 为 加 载 宏文 件 ， 扩 充 Excel 的 功能 。 


26.4.2 ”使 用 COM 加 载 宏 


COM 加 载 项 是 一 个 扩展 名 为 DLL 的 文件 ，DLL 文件 需要 在 Windows 操作 系统 中 注 
册 , 才能 使 用 。 如 果 是 使 用 26.4.1 节 的 步骤 在 VB6 中 生成 DLL 文件 , VB 将 自动 将 该 DLL 
文件 进行 注册 。 若 将 COM 加 载 宏 复制 到 其 他 计算 机 中 使 用 , 或 是 从 互联 网 上 下 载 的 COM 
加 载 项 ， 则 需要 使 用 手工 进行 注册 。 下 面 介绍 使 用 COM 加 载 宏 的 步 驿 : 

(1) 在 Windows 中 单 击 【 开 始 】 菜 单 ， 选 择 【 运 行 】 命 令 ， 打开 【运行 】 对 话 框 。 

(2) 在 【运行 】 对 话 框 中 显示 为 以 下 内 容 ， 如 图 26-20 所 示 。 

regsvr32 BE:\exce12007 从 入 门 到 精通 \ 实 例 \ 第 26 章 \CoM 加 载 宏 \caps.d11 


外 提示: DLL 文件 放置 的 位 置 不 同 ， 以 上 命令 后 面 的 参数 就 不 同 。 
(3) 单 击 【确定 】 按 钮 ， 将 弹出 如 图 26-21 所 示 提 示 对 话 框 ， 完 成 DLL 文件 的 注册 。 


es 


打开 的， [recom32 E vexeel2007 从 入 门卫 车 通 \ 实 刚 \ 弟 滞 


下 下 vexcel2007 从 入 门道 \ 实 网 第 26 章 \COMhn 载 定 Vveays al1 中 的 DllRecisterserver 成功 


图 26-20 注册 DLL 图 26-21 注册 成 功 
外 提示 : 若 要 移 除 或 删除 DLL 文件 ， 需 先 从 Windows 操作 系统 中 将 其 注销 。 注 册 命令 只 
是 在 上 面 的 regsvr32 命令 中 添加 参数 /hu 即 可 。 例如 ， 以 下 命令 可 注册 上 步 注 册 的 
DLL 文件 。 
regsvr32 E:\excel2007 从 入 门 到 精通 \ 实 例 \ 第 26 章 \COM 加 载 安 \caps.dl1 /u 
(4) 注册 DLL 文件 后 ， 就 可 以 向 Excel 中 添加 COM 加 载 宏 的 引用 。 启 动 Excel， 单 
击 【Office 按钮 】 打 开 下 拉 菜单 ， 选 择 右 下 方 的 【Excel 选项 】 按 钮 ， 打开 【Excel 选项 】 
和 
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(5) 单 击 对 话 框 左 侧 的 【加 载 项 】 按 钮 ， 在 对 话 框 下 方 【管理 】 标 签 右 侧 的 下 拉 列 表 
框 中 选择 【COM 加 载 项 】， 如 图 26-22 所 示 。 


in Addin 
Ofiice spedal Symbol npat Add-in a ca- 人 lce12ADDINS\SYMINPUT DU COM 项 
Office wide Symbol Input CHCEIIADDINS\SYMINPUTDLL CoM 吉大 国 


0 而 chinese Tranclation Addin 
rr Poration 


CE oficevoficelzwppINSTcsccoNv ptL 
jhat translates between Traditional Chinese and Simpiified Chinese. 


me 


二 | ea 


Le |] 


图 26-22 选择 COM 加 载 宏 


(6) 在 图 26-22 所 示 对 话 框 中 单 击 右 侧 的 【 转 到 】 按 钮 , 打开 如 图 26-23 所 示 的 【COM 
加 载 项 】 对 话 框 ， 在 该 对 话 框 中 显示 了 Excel 当前 的 COM 加 载 宏 列 表 。 


回 0ffiee Special Symbol Inpat Add-in 
ffies Wide Symbol Inpnt 


;CWPROGEA™1 ICROS “2\OIFICEI2\ADITINS\TCSCCONY. DCL 
加 上 行为 启动 时 加 


图 26-23 【COM 加 载 项 】 对 话 框 
(7) 单 击 【添加 】 按 钮 打开 【添加 加 载 项 】 对 话 框 ， 如 图 26-24 所 示 。 


26-24 【添加 加 载 项 】 对 话 框 
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(8) 在 图 26-24 所 示 对 话 框 中 选择 Caps.dll 文件 ， 单 击 【确定 】 按 钮 返回 如 图 26-25 
所 示 对 话 框 。 在 该 对 话 框 中 可 看 到 已 将 “大 小 写 转换 (COM) ” 宏 添 加 到 以 下 列表 中 。 


图 26-25 添加 自 定义 COM 加 载 宏 


(9) 加 载 了 “大 小 写 转换 (COM)” 加 载 项 后 ， 在 功能 区 的 【加 载 项 】 选 项 卡 中 将 多 出 
一 个 按钮 ， 如 图 26-26 所 示 。 TE 一 
(10) 在 工作 表 中 输入 英文 单词 ， 并 在 两 个 单 Ep Ee 
元 格 中 分 别 输入 单词 的 小 写 和 大 写 状态 ， 如 ， 隅 一 
图 26-27 所 示 。 
(11) 选择 小 写 单词 所 在 单元 格 ， 单 击 【 加 载 图 26-26 功能 区 
项 】 选 项 卡 中 的 【字母 大 小 写 转 换 】 按 钮 ， 即 可 将 原 为 小 写 的 单词 转换 为 大 写 。 选 择 大 写 
单词 所 在 单元 格 ， 单 击 【 加 载 项 】 选 项 卡 中 的 【字母 大 小 写 转换 】 按 钮 ， 即 可 将 原 为 大 写 
的 单词 转换 为 小 写 。 如 图 26-28 所 示 。 


三 book CD 加 Bookl ET 


4 B £ D 要 人 B ”| 
1 niorosoft JICEOSOFPT 目 microsoft [acRosoF7 加 
7 


图 26-27 输入 单词 图 26-28 ”使 用 COM 加 载 宏 转换 


和 


第 27 章 ”使 用 类 模块 


在 VBA 中 ， 除 了 模块 、 用 户 窗 体外 ， 还 提供 了 类 模块 。 类 模块 向 开发 人 员 提 供 了 创 
建 和 操作 自己 的 对 象 类 的 功能 。 如 果 曾 使 用 过 C++ 之 类 的 面向 对 象 的 编写 语言 ， 应 该 知道 
类 的 功能 和 好 处 。 本 章 将 介绍 类 模块 及 其 作用 ， 并 以 实例 演示 在 应 用 程序 中 使 用 类 模块 的 
方法 。 


27.1 类 模块 的 概念 


在 开发 Excel VBA 应 用 程序 时 ， 用 户 可 能 从 来 就 不 使 用 类 模块 。 如 果 作 为 专业 的 开发 
者 ， 将 常用 代码 封装 为 类 模块 ， 可 重复 应 用 在 不 同 的 应 用 程序 中 ， 从 而 提高 程序 的 开发 
效率 。 


27.1.1 什么 是 类 


简单 地 说 , “类 ”就 是 一 种 类 型 的 对 象 的 表示 形式 ， 可 以 将 它 想象 为 描述 对 象 的 蓝图 。 
就 像 一 幅 蓝 图 可 以 用 于 建成 多 座 建 筑 一 样 ， 一 个 类 也 可 以 用 于 创建 对 象 的 多 个 副本 。 
在 日 常生 活 中 ， 可 以 发 现 相同 或 相似 的 物品 很 多 ， 例 如 ， 显 示 器 外 过 、 鼠 标 外 壳 等 。 
在 工业 化 生产 中 ， 通 常 都 是 先 制作 一 个 产品 的 模具 ， 然 后 就 可 通过 该 模具 大 量 生产 相同 形 
状 的 产品 。 每 一 个 “模具 ”就 是 一 个 “类 ”, 而 生产 出 来 的 每 一 个 产品 ， 就 是 一 个 “对 象 ”。 
在 Excel 中 提供 非常 多 的 对 象 ， 如 Workbook、Worksheet、Range 等 ， 这 些 对 象 也 都 是 
通过 相应 的 类 来 创建 的 。 例 如 : 


Dim rngl As Range 


在 以 上 代码 中 ，Range 是 VBA 内 部 定义 好 的 一 个 类 (标准 类 ) ， 用 户 不 知道 VBA 是 
定义 该 类 的 代码 ， 但 通过 Range 对 象 提供 的 属性 、 方 法 和 事件 就 可 方便 地 使 用 该 对 象 。 有 
了 标准 类 Range， 用 户 在 程序 中 可 使 用 该 类 反复 定义 多 个 具有 相同 类 的 对 象 ， 如 : 

Dim rng2 As Range 

Dim rng3 As Range 

Dim rngl4 Rs Range 

除了 使 用 Excel 提供 的 标准 类 外 ，VBA 还 提供 类 模块 功能 ， 使 开发 者 可 根据 需要 定义 
自己 的 类 。 

在 自 定 义 类 中 , 通过 属性 、 方 法 和 事件 向 用 户 提供 服务 ， 把 完成 运算 的 过 程 隐藏 起 来 。 
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27.1.2 ”类 的 作用 


在 VBA 中 ， 开 发 人 员 不 使 用 类 模块 也 能 开发 绝 大 多 数 的 应 用 系统 。 不 使 用 类 模块 编 


写 程序 时 ， 程 序 代 码 和 程序 处 理 的 数据 是 分 离 的 。 这 样 可 能 会 出 现 多 个 不 同 过程 用 一 定 的 
规则 修改 数据 。 当 需要 调整 修改 数据 的 规则 时 ， 就 需要 修改 多 段 程序 的 代码 。 


如 果 使 用 类 将 数据 和 处 理 代 码 封装 在 一 起 ， 将 使 管理 任务 更 加 简单 。 主 要 体现 在 以 下 


几 个 方面 : 


口 数据 作为 对 象 的 属性 ， 都 与 特定 对 象 相关 联 ， 使 数据 与 对 象 具有 特定 的 关系 〈 不 
再 是 分 离 的 松散 关系 ) 。 

口 数据 作为 对 象 的 属性 ， 用 户 只 能 通过 设置 的 接口 进行 修改 ， 使 对 象 的 数据 可 保持 
在 有 效 的 范围 之 内 。 

口 使 用 对 象 提供 的 方法 ， 对 一 个 对 象 可 以 进行 的 操作 提供 统一 接口 。 在 对 象 的 定义 
中 ， 只 需要 修改 一 次 代码 ， 即 可 调整 数据 的 修改 规则 。 

口 使 用 类 的 另 一 个 好 处 就 是 可 以 将 复杂 的 过 程 封装 在 类 的 内 部 ， 类 的 使 用 人 员 不 需 
要 知道 类 的 实现 过 程 ， 只 需要 熟悉 类 的 属性 、 方 法 和 事件 即 可 。 

在 一 个 大 型 系统 开发 过 程 中 ， 各 部 门将 自身 的 业务 流程 编写 封装 到 类 中 。 其 他 部 门 使 


用 该 类 时 ， 对 于 实现 的 技术 细节 不 用 关心 ， 只 需要 了 解 其 接口 〈 属 性 、 方 法 和 事件 ) 即 可 。 


27.1.3 ”理解 类 


通常 ， 所 有 VBA 的 语句 、 函 数 以 及 标准 类 等 资源 都 可 以 在 自 定义 类 中 使 用 。 创 建 自 


定义 类 时 ， 对 于 变量 、 过 程 和 函数 等 概念 ， 在 自 定义 类 中 又 有 不 同 的 意义 。 


1. 理解 对 象 
对 象 是 由 类 创建 的 一 个 实例 ， 它 是 类 的 实体 化 。 对 象 的 引用 和 操作 被 划分 为 3 个 


部 分 : 


口 属性 是 指 对 象 的 特性 。 如 Worksheet 对 象 ， 有 包含 单元 格 的 行 数 、 列 数 等 属性 。 

口 方法 是 指 对 象 的 某 个 操作 。 如 Worksheet 对 象 , 有 增加 工作 表 、 删除 工作 表 等 方法 。 

口 事件 是 指 对 象 对 外 部 动作 的 响应 。 例 如 ， 用 鼠标 单 击 Worksheet 对 象 的 单元 格 时 ， 
会 产生 一 个 Change 事件 ， 修 改 单元 格 内 容 时 ， 会 产生 一 个 SelectionChange 事件 。 


2. 变量 的 作用 域 


在 本 书 前 面相 关 章 节 介 绍 了 变量 的 作用 域 。 变 量 可 以 划分 为 过 程 级 、 模 块 级 和 全 局 变 

在 类 模块 中 ， 对 变量 作用 域 的 理解 要 注意 以 下 两 点 : 

口 由 于 类 是 生成 对 象 的 模板 ， 每 一 个 对 象 ， 相 当 于 是 类 的 一 个 副本 ， 对 象 之 间 是 相 
互 独立 的 ， 因 此 ， 模 块 级 的 变量 只 作用 于 对 象 自 身 ， 对 其 他 通过 该 类 创建 的 对 象 
不 会 起 作用 。 

口 在 类 模块 中 使 用 Public 关键 字 声 明 的 变量 ， 通 过 该 类 生成 的 对 象 都 可 访问 。 
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3. 过程 和 函数 


变量 、 过 程 、 函 数 是 标准 模块 中 使 用 的 最 基本 的 构件 ， 在 类 模块 中 ， 它 们 仍然 是 最 基 
本 和 重要 的 角色 。 过 程 和 函数 并 无 实质 的 区 别 ， 当 需要 返回 值 时 ， 就 使 用 Function， 如 果 
不 需要 返回 任何 结果 ， 可 使 用 Function， 也 可 使 用 Sub。 

过 程 (Sub) 、 函 数 (Function) 也 有 作用 域 ， 在 标准 模块 中 通过 使 用 Private 和 Public 
关键 字 〈 可 以 省 略 Public 关键 字 ， 因 为 它 是 默认 的 ) ， 可 以 划分 为 模块 级 和 全 局 级 ， 以 决 
定 它 是 在 当前 的 模块 内 有 效 还 是 在 整个 工程 内 有 效 。 

同 变量 一 样 ， 在 类 模块 中 使 用 Public 关键 字 的 函数 或 过 程 ， 才 能 被 声明 的 对 象 访问 。 
使 用 Private 关键 字 的 函数 或 过 程 只 能 在 类 模块 中 进行 调用 (不 对 用 户 开放 》〉。 


4. 通用 内 部 控件 


VBA 提供 了 一 个 名 为 Control 的 类 ， 可 用 来 引用 一 般 的 内 部 控件 。 例 如 ， 使 用 以 下 代 
码 声明 一 个 控件 对 象 : 
Dim cnt Rs Control 


就 可 以 将 任何 控件 赋 给 该 变量 进行 保存 ， 而 不 管 具体 的 类 型 。 因 为 在 自 定义 类 中 通常 
要 处 理 大 量 相 近 的 对 象 ， 所 以 这 种 特性 非常 有 用 。 在 实际 使 用 时 ， 可 以 通过 容器 控件 的 
Controls 属性 来 返回 一 个 Control 的 集合 对 象 。 

例如 ， 使 用 以 下 代码 可 以 在 当前 用 户 窗 体 中 查询 指定 名 称 的 按钮 : 

Dim cnt As Control 

For Each cnt In Me.Controls 


If TypeName (cnt) = "CommandButton" Then MsgBox cnt.Caption 
Next 


5. 集合 Collection 


Collection 是 在 使 用 类 时 最 常用 到 的 对 象 .一 个 Collection 对 象 代表 一 组 相关 的 项 目 (在 
Collection 对 象 中 也 可 保存 不 同类 型 的 数据 ， 但 保存 不 同类 型 数据 时 不 利用 程序 处 理 ) 。 例 
如 ， 使 用 以 下 代码 可 创建 一 个 集合 对 象 : 


Dim col Rs New Collection 


集合 建立 后 ， 可 以 使 用 Add 方法 添加 成 员 ， 用 Remove 方法 删除 成 员 , 用 Item 方法 从 
集合 中 返回 特定 成 员 。 


27.2 创建 类 模块 


本 节 用 一 个 实例 演示 创建 类 模块 的 方法 。 本 节 创 建 一 个 “数据 库 类 ”， 通 过 该 类 可 创 
建 与 Access 数据 库 的 连接 。 将 数据 库 连 接 字 符 串 封装 在 类 模块 中 ,用 户 通 过 属性 给 出 要 访 
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问 的 Access 数据 库 名 、SQL 语句 ， 执 行内 置 的 方法 即 可 返回 记录 集 。 
27.2.1 建立 对 象 类 


要 创建 自 定义 类 ， 首 先 必 须 先 新 建 一 个 类 模块 ， 具 体 步骤 如 下 : 

(1) 在 Excel 中 按 Altr+F11 切换 到 VBE 环境 中 。 

(2) 在 VBE 中 单 击 主 菜单 【插入 】|【 类 模块 】 命 令 ， 向 工程 插入 一 个 类 模块 。 
(3) 在 【属性 】 窗 口中 修改 类 的 【( 名 称 )】 为 clsADO， 如 图 27-1 所 示 。 


图 27-1 插入 类 模块 


名 注意 : 所 有 VBA 类 模块 都 有 【( 名 称 )〗 属 性 ， 用 来 确定 类 的 名 称 ， 最 好 为 其 定义 一 个 易 
于 理解 的 类 名 称 。 每 一 个 类 模块 只 能 定义 一 个 对 象 类 。 


27.2.2 ”建立 类 的 属性 


通过 属性 保存 类 中 的 数据 ， 在 VBA 中 有 两 种 建立 属性 的 方法 : 
口 在 类 模块 的 声明 部 分 定义 的 Public 变量 可 被 对 象 外 部 的 代码 访问 ， 可 作为 对 象 的 
属性 。 这 种 方法 的 缺点 是 : 类 不 能 知道 属性 值 何 时 被 外 部 过 程 修 改 了 ， 也 就 无 法 
将 属性 值 限定 在 一 个 有 效 的 范围 内 。 
口 使 用 Property 过 程 来 定义 属性 值 。 当 外 部 过 程 修改 属性 值 时 ， 将 执行 Property 过 
程 ， 在 该 过 程 中 可 编写 代码 ， 对 设置 的 值 进行 检查 ， 控 制 其 在 一 个 规定 的 范围 内 。 
使 用 Property 过 程 可 对 一 类 模块 添加 和 操作 属性 , Property 过 程 以 Property Let、Property 
Get 或 Property Set 语句 开始 ， 而 以 End Property 语句 退出 。 这 3 种 形式 的 Property 过 程 的 
作用 分 别 如 下 所 述 。 
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口 Property Let: 这 类 过 程 用 来 设置 类 模块 的 属性 值 。 

口 Property Get: 这 类 过 程 用 来 读 取 类 模块 的 属性 值 。 

口 Property Set: 这 类 过 程 用 来 设置 对 对 象 的 引用 。 

在 使 用 Property 过 程 设置 属性 值 时 ， 类 模块 中 的 所 有 变量 可 声明 为 Private 类 型 ， 以 避 
免 过 程 直接 修改 类 模块 中 变量 的 值 。 

创建 属性 时 一 般 按 以 下 步骤 进行 : 

(1) 创建 私有 变量 。 在 创建 clsADO 类 时 ， 需 要 在 类 模块 的 声明 部 分 使 用 以 下 代码 声 
明 变量 。 

Option Explicit 

' 使 用 本 类 模块 ， 需 添 ADO 的 引用 "Microsoft Activex Data Objects 2.8 Library" 


Private cnn As Connection "连接 对 象 

Private rs Rs Recordset "记录 集 对 象 

Private m DBFullName As String 'Access 数据 库 名 称 〈 包 含 路 径 信息 ) 
Private m CommandText As String 'SQL 语句 


名 提示: 习惯 上 ， 一 般 类 的 私有 成 员 变量 前 面 加 上 前 级 “m ”。 


(2) 创建 Property Get 过 程 来 获取 对 象 的 属性 值 。 
(3) 创建 Property Let 过 程 来 设置 上 一 步 定 义 的 私有 变量 的 值 。 


27.2.3 创建 Property Get 过 程 


Property Get 语句 用 来 获取 对 象 的 属性 。 其 基本 形式 就 是 一 个 声明 和 一 个 主体 。 声明 包 
括 属 性 名 和 数据 类 型 。 

每 个 属性 值 都 需要 创建 一 个 Property Get 过 程 。 对 于 clsADO 类 ， 其 2 个 属性 值 的 
Property Get 过 程 代码 如 下 : 

Property Get DBFullName() Rs String ' 返 回 数据 库 名 称 


DBFullName = m DBFullName 
End Property 


Property Get CommandText () As String "返回 sQL 语句 
CommandText = m CommandText 
End Property 


从 以 上 代码 可 以 看 出 ， 在 每 个 Property Get 的 过 程 声明 行 中 都 指定 了 属性 的 名 称 和 数 
据 类 型 ， 如 : 

Property Get DBFullName() As String 

定义 属性 名 为 DBFulIName， 该 属性 的 数据 类 型 为 String。 

Property Get 过 程 和 函数 过 程 非常 相似 ， 给 过 程 名 赋值 就 可 返回 值 。 在 Property Get 过 
程 内 部 ， 一 般 为 一 条 赋值 语句 : 


DBFullName = m DBFullName 
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其 中 DBFullName 为 属性 名 称 ， 而 m_DBFullName 是 类 的 私有 数据 变量 。 也 可 将 一 个 
运算 结果 赋值 给 属性 值 。 


27.2.4 创建 Property Let 过 程 


与 Property Get 过 程 相 对 应 的 就 是 Property Let 过 程 。 通 过 Property Let 过 程 可 让 使 用 
者 改变 对 象 的 属性 值 。 
一 般 对 每 个 属性 值 都 需要 编写 一 段 Property Let 过 程 。 如 果 对 象 的 某 个 属性 为 只 读 ， 
则 不 需要 定义 Property Let 过 程 。 
Property Let DBFullName (strDBFullName Rs String)  ' 设 置 数 据 名 称 
IE LCase (Right (strDBFullName, 4)) <> ".mdb" And _ 
LCase (Right (strDBFullName, 6)) <> ".accdb" Then 
Exit Property 
End If 


m DBFullName = strDBFullName 
End Property 


Property Let CommandText (strSQL Rs String) ' 设 置 sez 语句 
m CommandText = StrSQL 
End Property 


从 以 上 代码 可 以 看 出 ，Property Let 过 程 至 少 需 要 一 个 参数 来 设置 属性 值 。 与 Property 
Get 过 程 相 比 ， 在 Property Let 过 程 中 可 能 还 需要 做 一 些 检查 工作 ， 因 为 外 部 过 程 有 可 能 会 
为 属性 设置 一 个 超过 范围 的 数据 。 例 如 设置 数据 库 名称 时 ， 可 使 用 下 语句 对 传 入 的 文件 进 
行 判断 ， 若 右 侧 字符 不 是 Access 数据 库 扩展 名 (扩展 名 为 .mb 或 cccdb) ， 则 退出 过 程 。 


27.2.5 创建 类 的 方法 


除了 属性 之 外 ， 一 般 对 象 都 有 至 少 一 个 方法 。 方 法 是 对 象 可 以 执行 的 操作 ， 使 用 方法 
可 以 操作 对 象 类 中 的 数据 。 

在 clsADO 类 中 创建 了 多 个 方法 ， 各 方法 完成 的 任务 如 下 所 述 。 

口 ConnDB 方法 : 创建 数据 库 连 接 实例 。 

口 CloseDB 方法 : 关闭 数据 库 连 接 实例 。 

口 RunSQL 方法 : 获取 记录 集 对 象 。 

1. ConnDB 方 法 


ConnDB 方法 用 来 创建 数据 库 的 连接 ， 该 方法 将 使 用 私有 成 员 变量 m_DBFullName。 
具体 代码 如 下 : 
Private sub ConnDB () "连接 数据 库 
If cnn.State = 0 And Len(m DBFullName) > 0 Then 


cnn.Provider = "Microsoft.Jet.OLEDB.4.0" 
cnn.Open m DBFullName 
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End If 
End Sub 


2. CloseDB 方 法 


CloseDB 方法 用 来 关闭 数据 库 连 接 ， 具 体 代码 如 下 : 


Public Sub CloseDB() "关闭 连接 
cnn.Close 
End sub 


全 注 意 : CloseDB 方法 中 不 使 用 Set cnn=Nothing 语句 ， 因 为 使 用 该 语句 后 ， 变 量 将 从 内 存 
中 释放 。 这 时 如 果 重 新 设置 自 定义 类 clsADO 的 属性 后 ， 将 无 法 再 使 用 ConnDB 
方法 ， 因 为 变量 cnn 已 经 被 释放 。 


3. RunSQL 方 法 


RunSQL 方法 将 使 用 私有 变量 m CommandText 中 设置 的 SQL 语句 , 根据 该 SQL 语句 
返回 一 个 记录 集 。 具 体 代码 如 下 : 


Public Function RunsQL() As Recordset "执行 soz 语句 
IE Len(m CommandText) > 0 Then 
Call ConnDB ' 创 建 数据 库 连接 


If rs.State <> 0 Then rs.Close 
rs.Open Source:=m CommandText, _ 
ActiveConnection:=cnn, 


CursorType:=adOopenstatic, _ 
LockType:=adLockReadonly 
Set RunSQL = rs ' 返 回 记录 集 
End If 
End Function 


在 该 函数 的 过 程 声明 行 中 ， 定 义 了 方法 执行 后 的 返回 结果 类 型 。 另 外 ， 使 用 Public 声 
明 方法 ， 使 其 在 类 模块 之 外 也 可 访问 。 


27.2.6 ”类 模块 的 事件 


事件 是 对 象 可 识别 的 动作 ， 如 按钮 对 象 可 识别 Click 事件 。 自 定义 类 模块 有 Initialize 
事件 和 Terminate 事件 ， 这 两 个 事件 分 别 在 类 的 实例 初次 创建 时 和 最 后 一 个 指针 释放 或 破 
坏 时 触发 。 可 以 用 Initialize 事件 设置 对 象 类 的 默认 属性 值 ， 用 Terminate 事件 进行 销毁 对 
象 前 的 整理 工作 。 

在 clsADO 类 中 , 在 Initialize 事件 中 编写 代码 , 实例 化 数据 库 连 接 对 象 和 记录 集 对 象 。 
编写 Initialize 事件 代码 的 过 程 如 下 : 

(1) 在 类 模块 代码 窗口 的 对 象 下 拉 列 表 中 选择 Class， 在 事件 下 拉 列 表 中 选择 
Initialize， 将 在 代码 窗口 中 生成 该 事件 过 程 的 结果 。 
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(2) 在 Initialize 事件 过 程 中 输入 以 下 代码 : 


Private Sub Class_Initialize() ' 初 始 化 类 
Set cnn = New Connection 
Set rs = New Recordset 

End Sub 


(3) 用 类 似 的 方法 ， 为 类 模块 的 Terminate 事件 过 程 中 编写 代码 ， 用 来 清理 终止 类 时 
需 进 行 的 工作 。 
Private Sub Class_Terminate() ' 终 止 类 
IE cnn.State = 1 Then 
cnn.Close 
End If 
Set cnn = Nothing 


Set rs = Nothing 
End Sub 


27.3 ”使 用 类 模块 创建 对 象 


在 类 模块 中 编写 好 类 模块 代码 后 ， 就 可 以 在 VBA 的 模块 中 使 用 该 类 模块 来 定义 对 象 ， 
通过 设置 类 模块 的 属性 、 调 用 类 模块 的 方法 来 使 用 类 模块 的 功能 。 

下 面 演示 使 用 上 节 创 建 的 类 模块 clsADO 的 方法 ， 有 具体 步骤 如 下 : 

(1) 在 VBE 中 单 击 主 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 增加 一 个 模块 。 

(2) 在 模块 的 声明 部 分 输入 代码 ， 声 明 变量 为 类 模块 。 如 图 27-2 所 示 的 列表 框 中 ,将 
显示 27.2.6 节 定 义 的 类 模块 名 称 。 

(3) 使 用 类 模块 定义 变量 后 ， 在 代码 窗口 输入 对 象 名 即 可 看 到 该 对 象 提供 的 方法 和 属 
性 ， 如 图 27-3 所 示 。 


使 用 类 模块 .xls 一 模块 ! (代码 ) E 问 |] 反 使 用 类 模块 .zls 一 模块 ! (代码 ) 


图 27-2 用 类 模块 声明 变量 27-3 ”类 模块 提供 的 属性 和 方法 列表 


(4) 接着 编写 以 下 过 程 , 设置 对 象 tstADO 的 DBFullName 属性 和 CommandText 属性 ， 
调用 tstADO 对 象 的 RunSQL 方法 获取 记录 集 对 象 。 最 后 对 该 记录 集 进行 处 理 ， 得 到 相应 
的 数据 。 


Sub test() 
Dim rs As Recordset, fld As Field 
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On Error Resume Next 


tstADO.DBFullName = ThisWorkbook.Path & "\Northwind.mdb" "设置 属性 
tstRDO .CommandText = "select * from 客户 " "设置 属性 
Set rs = tstADO.RunsQL ' 调 用 自 定义 对 象 的 方法 


With Worksheets ("Sheet1") 
Ee 
For Each fld In rs.Fields 
.Cells (i, j) = fld.Name 
el 
Next 
=+1 
Do While Not rs.EOF 
For Each fld In rs.Fields 
.Cells(i, j) = fld.Value 
j=j+1 
Next 
j=1 
rs.MoveNext 


i=i+1 


Loop 
End With 
End sub 
执行 以 上 过 程 ， 将 在 工作 表 Sheetl 中 显示 记录 集中 的 数据 ， 如 图 27-4 所 示 。 
ETTTTTRT SEE 
I B c D E 下 8 1 国 
1 客户 ID ”公司 名 称 联系 人 姓 和 联系 人 职 入 地 址 城市 地 区 邮政 编 
2_ALF&I 三 川 实业 下 刘 小 姐 ”销售 代表 大 崇明 路 天 津 华北 3435| 
3 JANAIR 东南 实业 王 先生 物 主 此 2345| 
4 ANTON 。 坦 东 行 禄 星 王 炫 持 。 物 主 商人 台北 路 石家庄 。 华北 9850| 
5 _jAROUT 。 国 项 有 限 么 方 先 生 。 销售 代表 天 府 东 街 深圳 华南 8908| 
6 _JBERGS 通 恒 机 械 黄 小 姐 采购 员 。 东 园 西甲 南京 华东 7980| 
了 _BLAUS 销售 代表 常 保 间 东 天 津 华北 7870| 
8 _BLONP “(东北 ) 国 前 黄 雅 玲 。 市 场 经 理 广发 北 踊 大 连 东北 5654| 
9_BOLID 迈 多 贸易 陈 先 生物 主 临 举 大 街 西安 西北 9079| 


27-4 ”测试 效果 
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Excel 开发 人 员 通 过 VBE 可 编写 VBA 代码 、 制 作用 户 窗 体 。 其 实 ，VBE 也 包含 一 个 
对 象 模型 ， 通 过 该 对 象 模型 可 控制 VBA 工程 的 主要 元 素 ， 可 以 编写 VBA 代码 添加 或 删除 
模块 、 创 建 用 户 窗 体 、 生 成 VBA 代码 。 


28.1 VBE 简介 


在 本 书 第 3 章 中 介绍 了 VBE 操作 环境 的 使 用 方法 。 其 实在 VBE 开发 环境 中 ,VBE 本 
身 也 是 一 个 对 象 模型 。 该 对 象 模型 展示 了 VBA 工程 的 主要 元 素 ， 通 过 该 对 象 模 型 ， 用 户 
可 编写 VBA 代码 来 添加 或 删除 模块 、 生 成 其 他 的 VBA 代码、 创建 用 户 窗 体 等 操作 。 


28.1.1 添加 VBE 对 象 模型 的 引用 


要 在 VBA 工程 中 使 用 VBE 对 象 模型 ， 必 须 先 将 VBE 对 象 模型 库 添加 到 当前 工程 中 。 
具体 步骤 如 下 : 

(1) 在 VBE 开发 环境 中 单 击 主 菜单 【工具 】|【 引 用】 命令 ,打开 【引用 】 对 话 框 ， 
如 图 28-1 所 示 。 


引用 - YBAProject 
可 使 用 的 引用 @) 


Mierosoft Visio WL Solution For 证 
Type 


Microsoft Visual Basie for Applications Extensibility 5.3 
定位 : C:\Program 了 iles\Conmon Files\Microsoft Shared\VB} 
语言 : 标准 


图 28-1 添加 VBE 引用 


(2) 在 对 话 框 中 选择 Microsoft Visual Basic for Applications Extensibility Library 项 , 单 
击 【 确 定 】 按 钮 将 其 添加 到 当前 工程 中 。 
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28.1.2 ”信任 VBA 访问 VBE 对 象 模型 


为 了 保证 VBA 代码 的 安全 ， 在 默认 情况 下 ， 是 不 允许 用 户 使 用 代码 访问 VBE 对 象 模 
型 的 。 若 代码 访问 VBE 对 象 模 型 ， 将 弹出 如 图 28-2 所 示 的 警告 提示 框 。 


图 28-2 警告 信息 


要 在 VBA 代码 中 访问 VBE 对 象 模型 ， 需 要 对 宏 安 全 进行 设置 。 具 体 步骤 如 下 : 

(1) 单 击 【Office 按钮 】 打开 下 拉 菜 单 ， 单 击 右 下 角 的 【Excel 选项 】 按 钮 打开 【Excel 
选项 】 对 话 框 。 

(2) 单 击 对 话 框 左 侧 的 【信任 中 心 】 按 钮 显示 信任 中 心 页 面 ， 如 图 28-3 所 示 。 


@ manxenAASR 
Sa 
re ee 


图 28-3 【信任 中 心 】 选 项 卡 


(3) 在 图 28-3 所 示 对 话 框 中 单 击 【 信 任 中 心 设置 】 按 钮 ， 打 开 如 图 28-4 所 示 的 界面 。 
在 宏 的 安全 设置 中 选中 【信任 对 VBA 工程 对 象 模型 的 访问 】 单 选 框 。 


28-4 ”信任 对 工程 模型 的 访问 


。544 。 


第 28 章 操作 VBE 


(4) 单 击 【确定 】 按 钮 ， 完 成 设置 。 


28.2 VBE 对 象 模型 


VBE 的 编程 模型 也 是 面向 对 象 结构 的 ， 对 VBE 进行 程序 设计 需 先 了 解 其 对 象 模型 。 
本 节 将 简单 介绍 常用 对 象 。 


28.2.1 了 解 VBE 对 象 模型 


VBE 对 象 模型 如 图 28-5 所 示 。 每 个 打开 的 工作 矢 或 加 载 宏 都 有 一 个 VBProject 对 象 代 
码 ， 每 个 工作 竹中 包含 多 个 VBComponent 对 象 (Excel 对象、 窗 体 、 模 块 和 类 模块 ) ， 而 
Reference 对 象 则 表示 工作 引用 的 外 部 模型 库 ， 每 个 外 部 模型 库 为 一 个 Reference 对 象 。 


VBE 


”| VBProject 


VBComponet 


| CodeModule 


”| Designer 


| Property 
Reference 
-| Window 
-| CommandBar 


28-5 VBE 对 象 模型 


28.2.2 VBProject 对 象 


VBProject 对 象 表示 一 个 工程 。 可 用 VBProject 对 象 设置 工程 的 属性 、 访 问 
VBComponents 集合 以 及 访问 References 集合 。 
VBProjects 集合 表示 开发 环境 中 所 有 打开 的 工程 .在 开发 环境 的 实例 中 可 用 VBProjects 
合 访问 具体 的 工程 。VBProjects 是 一 个 可 用 于 For Each 块 的 标准 集合 。 
使 用 Workbook 对 象 的 VBProject 属性 ， 可 返回 一 个 VBProject 对 象 ， 代 表 该 工作 筹 的 
工程 。 通 过 VBProject 对 象 的 属性 可 对 工程 进行 设置 ， 常 用 的 属性 包括 以 下 几 种 。 
口 Protection 属性 : 返回 一 个 值 ， 指 示 工 程 的 保护 状态 ， 此 属性 为 只 读 。 返 回 常数 
Vbext locked 表示 指定 的 工程 是 被 锁 住 的 , 返回 常数 Vbext pp_none 表示 指定 的 工 
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程 并 没有 被 保护 。 

口 Name 属性 : 返回 或 设置 活动 的 工程 名 称 。 

口 Mode 属性 : 返回 工程 当前 所 处 的 方式 ， 可 为 运行 方式 (vbext_vm Run) 、 中 断 方 
式 (vbext_vm Break) 、 设 计 方 式 (vbext_vm Design) 。 

口 VBE 属性 : 返回 该 VBE 对 象 的 根 。 所 有 的 对 象 都 有 一 个 指向 VBE 对 象 根 的 VBE 
属性 。 

口 Saved 属性 : 指示 工程 自 上 一 次 保存 后 是 否 编辑 过 。 


28.2.3 VBComponent 对 象 


VBComponent 对 象 代表 一 个 包含 在 工程 中 的 部 件 ， 例 如 类 模块 或 标准 模块 。 使 用 
VBComponent 对 象 访问 与 部 件 关 联 的 代码 模块 或 改变 部 件 的 属性 设置 。 
可 以 使 用 Type 属性 找 出 VBComponent 对 象 所 引用 的 部 件 类 型 ， 使 用 Collection 属性 
找 出 该 部 件 在 哪个 集合 中 。 
VBComponents 集合 表示 工程 中 所 有 的 部 件 。 使 用 VBComponents 集合 在 工程 中 访问 、 
添加 和 删除 部 件 。 部 件 可 以 是 窗 体 、 模 块 、 或 类 。 
VBComponent 对 象 的 常用 属性 和 方法 如 下 面 所 述 。 
口 CodeModule 属性 : 返回 一 个 对 象 ， 代 表 与 部 件 相关 的 代码 。 如 果 该 部 件 没有 关联 
的 代码 模块 ， 则 CodeModule 属性 返回 Nothing。 
口 Type 属性 : 返回 一 个 数字 或 字符 串 值 ， 表 示 VBComponent 对 象 代表 的 部 件 类 型 ， 
可 为 以 下 几 种 类 型 。 
> Vbext_ct_ClassModule: 类 模块 。 
> Vbext_ct_MSForm Microsoft: 窗 体 。 
> Vbext_ct_StdModule: 标准 模块 。 
口 Name 属性 : 返回 或 设置 在 代码 中 用 来 识别 部 件 的 名 称 ， 如 果 试 图 将 Name 属性 设 
置 成 一 个 已 经 被 使 用 或 无 效 的 名 称 ， 将 生成 一 个 错误 。 
口 Export 方法 : 使 用 该 方法 将 部 件 按 单独 文件 或 一 些 文件 进行 保存 。 


28.2.4 ”Reference 对 象 


Reference 对 象 表示 类 型 库 或 工程 的 引用 。 如 果 引 用 不 再 指向 有 效 的 引用 ， 则 IsBroken 
属性 返回 True。 如 果 引 用 是 一 不 能 移动 或 删除 的 默认 引用 ， 则 BuiltIn 属性 返回 True。 可 
用 Name 属性 决定 所 要 添加 或 删除 的 引用 是 否 正确 。 

Reference 对 象 的 常用 属性 如 下 面 所 述 。 

口 Builtm 属性 : 指出 该 引用 是 否 不 能 被 删除 的 默认 引用 。 

口 Description 属性 : 返回 或 设置 一 个 字符 串 表 达 式 ， 表 示 引 用 的 描述 性 的 名 称 。 

口 FullPath 属性 : 返回 引用 的 类 型 库 的 路 径 和 文件 名 。 

口 IsBroken 属性 : 指定 Reference 对 象 是 否 指 向 一 个 注册 表 中 有 效 的 引用 。 如 果 返 回 

为 True， 则 表示 Reference 对 象 不 再 指向 一 个 在 注册 表 中 的 有 效 引 用 。 
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Major 属性 : 返回 被 引用 的 类 型 库 的 主 版 本 号 。 

Minor 属性 : 返回 被 引用 的 类 型 库 的 次 版 本 号 。 

Name 属性 : 返回 代码 中 引用 的 名 称 。 

Type 属性 : 返回 一 个 数字 或 字符 串 值 ， 指 示 Reference 对 象 的 类 型 。 可 返回 常数 
vbext rt_TypeLib (表示 类 型 库 ) 和 vbext_rt_Project〈 表 示 工 程 ) 。 


OOODODD 


28.2.5 CodeModule 对 象 


CodeModule 对 象 表示 在 诸如 窗 体 ， 类 或 文档 等 部 件 中 的 程序 代码 。 

可 用 CodeModule 对 象 来 修改 〈 添 加 、 删 除 、 编 辑 ) 与 部 件 相关 联 的 代码 。 每 个 部 件 都 
与 一 个 CodeModule 对 象 相关 联 。 但 是, 一 个 CodeModule 对 象 可 以 与 多 个 代码 窗 格 相 关联 。 

与 CodeModule 对 象 相 关联 的 方法 ， 能 让 开发 人 员 操 作 并 返回 有 关 逐 行 代码 文本 的 信 
息 。 例如， 可 用 AddFromString 方法 将 文本 添加 到 模块 中 。AddFromString 将 文本 放 在 第 一 
个 过 程 之 上 ， 如 果 没 有 过 程 ， 则 将 文本 放 在 模块 尾 端 。 


1. 常用 属性 


(1) CountOfDeclarationLines 属性 
该 属性 返回 代码 模块 的 【声明 】 部 分 的 代码 行 数 。 
(2) CountOfLines 属性 
该 属性 返回 代码 模块 中 代码 的 行 数 。 
(3) ProcBodyLine 属性 
该 属性 返回 过 程 的 第 一 行 。 其 语法 格式 如 下 : 
object .ProcBodyLine (procname, prockind) As Long 
参数 的 含义 如 下 所 述 。 
口 procname: 表示 过 程 名 。 
口 prockind: 指定 要 定位 的 过 程 种 类 。 
名 提示: Sub、Function 或 Property 出 现在 一 个 过 程 的 第 一 行 。 
(4) ProcCountLines 属性 
该 属性 返回 特定 过 程 的 行 数 。 其 语法 格式 如 下 : 
object .ProcCountLines (procname, prockind) Rs Long 
ProcCountLines 属性 返回 在 过 程 声明 之 前 的 所 有 空 行 及 注释 行 的 计数 ， 并 且 ， 如 果 该 
过 程 是 一 段 代 码 模块 的 最 后 一 个 ， 那 么 此 过 程 之 后 的 所 有 空 行 也 计 入 。 
(5) ProcOfLine 属性 
该 属性 返回 特定 的 行 所 在 的 过 程 名 。 其 语法 格式 如 下 : 
object.ProcOfLine(line, prockind) Rs String 


参数 line 设置 要 检查 的 行 数 。 参 数 prockind 指定 要 定位 的 过 程 种 类 。 
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个 过 程 声明 之 前 的 空 行 或 注释 行 属 于 该 行 ， 并 且 ， 如 果 该 过 程 是 一 个 代码 模块 的 最 
后 一 个 过 程 ， 则 该 模块 后 面 将 有 一 行 或 多 行 空 白 行 。 
ProcCountLines 属性 返回 在 过 程 声 明之 前 的 所 有 空 行 及 注释 行 的 行 数 ， 并 且 ， 如 果 该 
过 程 是 一 段 代码 模块 的 最 后 一 个 ， 那 么 紧 接 着 该 过 程 之 后 的 空 行 也 计算 在 内 。 
(6) Lines 属性 
该 属性 返回 一 个 字符 串 ， 包 含 指定 行 数 的 代码 。 其 语法 格式 如 下 : 
object.Lines (startline，count) As String 


参数 startline 指定 起 始 行 号 ，count 指定 要 返回 代码 的 行 数 。 
外 提示 : 代码 模块 中 的 行 号 是 从 1 开始 。 


2. 常用 方法 

(1) AddFromFile 方法 

该 方法 添加 文件 内 容 到 模块 中 。 其 语法 格式 如 下 : 

object.AddFromFile (filename) 

参数 Filename 用 来 指定 欲 添加 到 工程 或 模块 的 文件 名 。 

AddFromFile 方法 可 在 代码 模块 中 第 一 个 过 程 之 前 的 行 开 始 插入 文件 的 内 容 。 如 果 模 
块 没有 包含 过 程 ，AddFromString 可 将 文件 的 内 容 放置 在 模块 的 最 后 。 

(2) ReplaceLine 方法 

该 方法 用 特定 的 代码 代替 原 代码 。 其 语法 格式 如 下 : 

object.ReplaceLine (line, code) 

参数 Line 用 来 指定 所 要 代替 的 行 。Code 用 来 指定 要 插入 的 代码 。 

(3) InsertLines 方法 

该 方法 在 一 个 代码 块 的 某 个 指定 位 置 插 入 一 行 或 多 行 的 代码 。 其 语法 格式 如 下 : 

object. InsertLines (line, code) 

如 果 使 用 InsertLines 方法 所 插入 的 文本 用 换行 回 车 分 隔 ， 则 将 依 此 插入 一 些 行 。 

(4) DeleteLines 方法 

该 方法 删除 一 个 单行 或 指定 行 范围 的 代码 。 其 语法 格式 如 下 : 

object.DeleteLines (startline) [count] 


参数 Startline 用 来 指定 欲 删除 的 开始 行 。Count 用 来 指定 欲 删除 的 行 数 。 
如 果 没 有 指定 欲 删除 的 行 数 ，DeleteLines 将 只 删除 一 行 。 


28.3 显示 VBA 工程 相关 信息 


通过 VBE 对 象 模 型 ， 使 用 28.2.5 节 介 绍 的 各 子 对 象 提供 的 属性 和 方法 ， 可 查看 工程 
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的 相关 信息 。 
28.3.1 查看 工程 信息 


通过 VBProject 对 象 的 属性 ， 可 获取 工程 的 信息 。 例 如 ， 以 下 代码 将 显示 当前 工作 短 
的 工程 信息 。 


Sub 显示 工程 信息 () 
Dim oVBP As VBIDE.VBProject 
On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
IE Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + vbOKOnly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 
arrl = Array ("工程 名 称 "，" 完 整 路 径 "，" 描 述 "， "工程 类 型 "， "帮助 文件 "，" 保 护 状 
态 "， "运行 状态 ") 
With Worksheets ("工程 信息 ") 
.Columns ("1:2") .Clear 
.Range ("A2:A8") = WorksheetFunction.Transpose (arrl1) 


.Cells(2, 2) = oVBP.Name ' 工 程 名 称 

Cells(3, 2) = oOoVBP.Filename ' 完 整 路 径 

.Cells(4，2) = oVBP.Description ' 描 述 

.Cells(5, 2) = oVBP.Type ' 工 程 类 型 

‘Cells(6, 2) = oVBP.HelpFile ' 帮 助 文件 

.Cells(7, 2) = IIf(oVBP.Protection = vbext_pp_locked, "保护 "，" 未 保 
和 

Select Case oVBP.Mode "工程 状态 


Case 0: .Cells(8, 2) "运行 状态 " 
Case 1: .Cells (8，2) = "中 断 状态 " 
Case 2: .Cells (8，2) = "设计 状态 " 
End Select 
End With 
End Sub 


< B c 了 下 和 


工程 名 称 VBAProject 

完整 赔 径 FE:\excc12007 从 入 门 到 精通 \ 实 例 \ 第 28 章 \ 操 作 YEE. xls 
描述 

loo 


运行 状态 ”运行 状态 


osamronr 
a 
[il 
慰 
[3 
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执行 以 上 代码 时 ， 如 果 Excel 中 的 安全 设置 不 允许 访问 工程 对 象 模型 ， 将 产生 出 错误 。 
在 程序 中 使 用 On Error 捕获 出 错 信息 ， 并 弹出 提示 框 提示 用 户 。 


28.3.2 ”查看 部 件 


在 VBE 环境 中 ， 左 侧 显 示 的 【工程 】 子 窗口 列 出 了 工程 中 的 所 有 部 件 ， 包 括 Excel 
对 象 、 窗 体 、 模 块 和 类 模块 。 

在 VBA 代码 中 ，VBComponent 对 象 代 表 一 个 包含 在 工程 中 的 组 件 ， 可 以 使 用 Type 
属性 找 出 VBComponent 对 象 所 引用 的 部 件 类 型 ， 其 返回 值 为 以 下 常量 。 

口 vbext_ct_ClassModule: 类 模块 ; 

口 vbext_ct_MSForm Microsoft: 窗 体 ; 

口 vbext_ct_StdModule: 标准 模块 ; 

口 vbext_ct_Document: Excel 对 象 ( 工 作 表 、 图 表 、Thisworkbook 对 象 ) 。 

例如 ， 以 下 代码 可 显示 当前 工程 的 全 部 部 件 ， 以 及 部 件 的 类 型 。 


sub 查看 部 件 () 
Dim oVBP As VBIDE.VBProject, oOoVBC As VBComponent 
Dim r Rs Long, strl As String 
On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + VbOKOnly， "警告 " 
On Error GoTo 0 
Exit Sub 
End If 
With Worksheets ("工程 部 件 ") 
.Columns ("1:2") .Clear 
.Range ("Al:B1") = Array ("类 型 "，" 名 称 ") 
.Range ("Al1:B1") .Font .Bold = True 
于 五 蔗 
For Each oVBC In oVBP.VBComponents ' 循 环 处 理 每 个 部 件 
Es 
Select Case oVBC.Type :部 件 类 型 
Case vbext ct Document 
strl = "Excel 对 象 " 
Case vbext ct _ MSForm 
strl = " 窗 体 " 
Case vbext ct StdModule 
str1l = "模块 " 
Case vbext ct ClassModule 
strl = "类 模块 " 
End Select 
.Cells(r, 1) 
.Cells(r, 2) 
Next 
.Columns ("A:B") .AutoFit 


OVEBC .Name ' 部 件 名 称 
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End With 
End Sub 


执行 以 上 代码 ， 将 在 工作 表 “ 工 程 部 件 ” 中 看 到 当前 工程 的 所 有 部 件 及 其 类 型 ， 如 
图 28-7 所 示 。 


国 扫 fFVBExls 
4 


同 同 回国 加 周 同 周 周 喇 


FE 


图 28-7 查看 部 件 


28.3.3 ”查看 引用 


在 Excel 应 用 程序 中 , 经 常 需要 引用 多 个 外 部 类 型 库 (如 引用 VBA、Word 等 类 型 库 ) 。 
在 VBE 环境 中 ， 通 过 单 击 主 菜单 【工具 】|【 引 用】 命令 ,打开 【引用 】 对 话 框 可 查看 当 
前 工程 的 引用 。 

在 VBE 对 象 模型 中 ， 用 Reference 对 象 表示 类 型 库 或 工程 的 引用 。 所 有 引用 在 
References 集合 对 象 中 。 通 过 Reference 对 象 的 相关 属性 可 获取 或 检查 工程 中 的 引用 。 

例如 以 下 代码 : 


Sub 查看 引用 () 
Dim oVBP As VBIDE.VBProject, oRef As Reference, r Rs Long 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + vboKonly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 


With ActiveSheet 
.Columns ("A:B") .Clear ' 清 除 A、B 两 列 的 数据 
-Range ("Al:B1") = Array ("引用 名 称 "， "描述",， "文件 位 置 ") ' 填 充 表 头 
.Range ("Al:B1") .Font .Bold = True 


ro 

For Each oRef In oVBP.References "循环 处 理 每 个 引用 
Ee 
-Cells (上 上，1) = oRef .Name ' 引 用 名 称 
.Cells(r，2) = oRef.Description ' 描 述 
-Cells(r, 3) = oRef.FullPath ' 保 存 位 置 
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Next 
-Columns ("A:C") .AutoFit 
End With 
End Sub 
执行 以 上 代码 ， 将 在 工作 表 “ 引 用 ”中 列 出 当前 工程 的 所 有 引用 ， 如 图 28-8 所 示 。 
国 捧 fEV6Exs -x 
| E 
1 引用 名 称 措 述 
2 IBA Visual Basic For Applications 
3 Excel Microsoft Excsl 12.0 Object Library 
4 lstdole OLE Automarlon 
5 loffice Microsoft Office 12.0 Object Library 
6 VBIDE Microsoft Yisual Basic for Applications Extensibllity 5.3 
了 SForns Microsoft Foras 2.0 Object Library 
日 
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图 28-8 查看 引用 


28.4 用 VBA 控制 VBA 代码 


CodeModule 对 象 在 诸如 窗 体 ， 类 或 文档 等 部 件 之 后 表示 程序 代码 。 编 写 VBA 代码 ， 
通过 CodeModule 对 象 的 属性 和 方法 可 控制 工程 中 的 VBA 代码 。 


28.4.1 查看 VBA 过 程 名 


在 工程 中 ，Excel 工作 表 、 用 户 窗 体 、 模 块 和 类 模块 中 都 可 以 编写 VBA 代码 。 要 显示 
工程 中 所 有 的 过 程 名 ， 需 要 循环 处 理 几 种 部 件 。 通 过 每 个 部 件 的 CodeModule 属性 ， 获 取 
该 部 件 的 VBA 代码 ， 再 使 用 CodeModule 对 象 的 ProcOfLine 方法 获取 指定 行 的 过 程 名 称 。 
具体 的 代码 如 下 : 


sub VBA 过 程 名 () 
Dim oVBP As VBIDE.VBProject，oVBC As VBComponent 
Dim oCM As CodeModule，strProcName As String 
Dim r Rs Long，Lr1l As Long, r2 Rs Long 


On Error Resume Next 
Set oVBP = ActiveWorkbook .VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbCritical + vbOoKOn1yY，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 
With Worksheets ("VBA 过 程 名 ") 
-Columns ("A:B") .Clear ' 清 除 A、B 两 列 的 数据 
.Range ("Al:B1") = Array ("部 件 名 称 "，" 过 程 名 称 ") ' 填 充 表 头 


.Range ("Al:B1") .Font .Bold = True 
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Fi 

For Each oVBC In oVBP.VBComponents ' 循 环 处 理 每 个 部 件 
Set oCM = oOoVBC.CodeModule "获取 组 件 的 代码 模块 对 象 
1 = oCM.CountOfDeclarationLines + 1 ' 跳 过 声明 部 分 的 代码 
r2 = oCM.CountOfLines ' 获 取 总 的 代码 行 数 


Do While zl < r2 
-1 
:Cells(r, 1) = oVBC.Name 
-Cells(r, 2) = oCM.ProcOfLine(r1, vbext pk Proc) 
' 当 前 行 的 过 程 名 
r1 = rl + OCM.ProcCountLines (oCM.ProcOfLine _ 
(r1l, vbext pk Proc), vbext pk _Proc) ' 下 一 过 程 
Loop 
Next 
-Columns ("A:B") .AutoFit 
End With 
End sub 


执行 以 上 代码 ， 将 在 工作 表 “VBA 过 程 名 ”中 显示 各 部 件 中 编写 的 VBA 过程 名 ， 如 
图 28-9 所 示 。 


国 要 fFVBExs 号 容 奖 式 ] Cm 


| 4 于 
部 件 名 称 ”过 程 名 称 


1 
2 Sheetl Yorksheet_Activate 

3 Sheetl SelectionChange 
生 _ 横 块 1 显 : 息 

5 机 块 1 查看 部 件 

6_ 模 块 1 查看 引用 

7 模块 1 VBA 过 程 名 

8 | 类 1 类 的 方法 

9 UserForal UserFora_Click 

10 

EDA 过 程 名 LE 


图 28-9 VBA 过 程 名 


28.4.2 ”查看 VBA 代码 


在 28.4.1 节 的 代码 中 ， 使 用 CodeModule 对 象 的 ProcOfLine 方法 取得 指定 行 的 过 程 名 
称 。 使 用 CodeModule 对 象 的 Lines 属性 可 获取 指定 行 区 域 的 代码 。Lines 属性 的 语法 格式 
如 下 : 

object.Lines(startline, count) Rs String 

该 属性 将 返回 代码 模块 中 从 startline 行 号 开始 的 count 行 代码 。 

例如 ， 以 下 代码 可 将 当前 工程 中 各 部 件 中 的 代码 按 过 程 分 别 显示 在 工作 表 中 。 

Sub 查看 VBA 代码 () 

Dim oVBP As VBIDE.VBProject，ocoVBC As VBComponent 


Dim oCM As CodeModule, strProcName Rs String 
Dim r Rs Long, rl1 Rs Long, r2 Rs Long, r3 Rs Long 


On Error Resume Next 


全 本 全 
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Set oVBP = ActiveWorkbook.VBProject 
IE Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + VvbOKOnly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 


With Worksheets ("VBA 代码 ") 
.Colums ("A:C") .Clear ' 清 除 A、B 两 列 的 数据 


.Range ("Al:C1") = Array ("部 件 名 称 "，" 过 程 名 称 "，" 具 体 代码 ")' 填 充 表 头 
.Range ("Al1:C1") .Font .Bold = True 
:9 
For Each oVBC In oVBP.VBComponents ' 循 环 处 理 每 个 组 件 
Set oCM = oOoVBC.CodeModule 
rl = oCM.CountOfDeclarationLines + 1' 跳 过 声明 部 分 的 代码 
r2 = oCM.CountOfLines ' 获 取 总 的 代码 行 数 
Do While rl < r2 
证 
.Cells(r, 1) 
.Cells(r, 2) 


oOoVBC .Name 
OCM.ProcOfLine(r1, vbext pk Proc) 
' 当 前 行 的 过 程 名 
r3 = OCM.ProcCountLines (oCM.ProcOfLine (rl1, vbext pk _ Proc), 


Vbext pk _ Proc) "下 一 过 程 
.Cells(r，3) = oCM.Lines (rl1，r3) ' 获 取 指 定 区 域 的 代码 
Lm LL + 下 3 
Loop 
Next 
-Columns ("A:C") .AutoFit 
End With 
End Sub 


执行 以 上 代码 ， 将 在 工作 表 “VBA 代码 ”中 分 别 中 显示 部 件 名 称 、 过 程 名 称 和 每 个 过 
程 的 VBA 代码 ， 如 图 28-10 所 示 。 


| 国雄 作 VBExis 名 窑 模式 ] gp 
Ww B 
1 部 件 各 称 过 程 各 称 具体 代码 
Private Sub Workcshest_Activateg 
Shcct1 。 Yorkshcct_Actiyatc sgBoz“ 测 试 ” 
End Sub 


Sheetl 。 Warksheet_SclectionChangPrivate Sub Yorksheet_SclectionChanse(ByVal Torget hs Ra 


End Sub 
Sub 显示 工程 信息 O 
Din ovEP ks VBIDE. VEProject 


On Error Resune Hext 
Set ovEP = Active¥orkbook. VEProject 
IE Err <》 0 


图 28-10 显示 VBA 代码 
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28.4.3 ”导出 代码 


使 用 VBComponent 对 象 的 Export 方法 ， 可 将 组 件 导出 为 单个 文件 。 其 语法 格式 如 下 : 
object.Export (filename) 


参数 filename 用 来 指定 部 件 输出 为 文件 的 文件 名 。 

当 使 用 Export 方法 将 组 件 存 为 文件 时 ， 使 用 的 文件 名 不 能 重 名 ; 和 否则， 将 产生 错误 。 

以 下 代码 将 导出 用 户 指定 部 件 的 VBA 代码 。 在 导出 代码 时 ， 由 VBA 代码 根据 部 件 的 
类 型 自动 添加 扩展 名 。 

Sub 导出 代码 () 


Dim strName Rs String, strl Rs String 
Dim oVBP As VBIDE.VBProject, oOoVBC As VBComponents 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + VbOKOnly， "警告 " 
On Error GoTo 0 
Exit Sub 
End If 


Set oVBC = oOoVBP.VBComponents 

strName = Application.InputBox(prompt :=" 输 入 需要 导出 代码 的 部 件 名 称 : "，_ 
Title:=" 输 入 名 称 "，Type:=2) 

If strName = "False" Or strName = "" Then Exit Sub 


With oVBC (strName) 
Select Case .Type ' 根 据 部 件 类 型 生成 扩展 名 
Case vbext ct _ MSForm 
strl = ".frm" 
Case vbext ct StdModule 
strl = ".bas" 
Case vbext ct ClassModule 
Btrl = ".cls" 
Case Else 
MsgBox "不 能 导出 该 部 件 的 代码 ! "，vbcritical + vbOKOnly， "警告 " 
Exit Sub 
End Select 
strName = strName & strl ' 导 出 文件 名 
.Export ThisWorkbook.Path & "\" & strName ' 导 出 文件 
End With 
Set oVBC 
Set oVBP 
End Sub 


Nothing 
Nothing 
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执行 以 上 代码 ， 将 弹出 如 图 28-11 所 示 的 对 话 框 。 在 该 对 话 框 中 输入 要 导出 部 件 的 名 
称 ， 单 击 【确定 】 按 钮 ， 即 可 在 工作 筹 所 在 的 文件 夹 生成 对 应 的 VBA 代码 文件 。 


图 28-11 输入 导出 部 件 的 名 称 


28.4.4 导入 代码 


与 导出 代码 对 应 ， 可 使 用 VBComponents 集合 对 象 的 Import 方法 ， 将 单个 文件 添加 到 
工程 中 ， 作 为 窗 体 、 模 块 或 类 模块 。 其 语法 格式 如 下 : 

object .Import (filename) 

参数 filename 表示 导入 文件 的 路 径 及 文件 名 。 
全 提示 : 如 果 工 程 中 有 相同 名 称 的 部 件 存在 ， 导 入 操作 将 产生 错误 。 

使 用 以 下 代码 ， 可 导入 用 户 选 择 的 文件 : 

Sub 导入 代码 () 


Dim strName As String, strFName As String 
Dim oVBP As VBIDE.VBProject, oOoVBC As VBComponents 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
IE Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + vboKOnly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 


Set oVBC = oOoVBP.VBComponents 

strFName = Application.GetOpenFilename( _ 
filefilter:="VB 文件 (*.bas;*.cls;*.frm) ,+*.bas;*.cls;*.frm",，_ 
Title:=" 导 入 ") "获取 导入 文件 名 

IE strFName = "False" Or strFName = "" Then Exit Sub 


On Error Resume Next 


coVBC. Import strFName "导入 选 定 文件 
IE Err <> 0 Then "显示 错误 信息 
MsgBox Err.Number & ":" & Err.Description 
End If 
Set oVBC = Nothing 
Set oVBP = Nothing 
End Sub 
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执行 以 上 代码 ， 将 弹出 如 图 28-12 所 示 的 对 话 框 ， 选 择 要 导入 的 VB 文件 ， 单 击 【 打 
开 】 按 钮 即 可 将 其 导入 到 当前 工程 中 。 


文件 名 如。 
文件 闫 型 中， |Ve 文件 (tesir clei*. frm) 


图 28-12 导入 代码 


28.4.5 ”在 代码 中 搜索 


当 Excel 应 用 程序 的 代码 很 多 时 ， 要 查找 代码 中 的 某 个 关键 字 可 单 击 主 菜单 中 的 【 编 
辑 】| 【查找 】 命 令 ， 打 开 如 图 28-13 所 示 的 【查找 】 对 话 框 ， 在 其 中 输入 查找 内 容 ， 单 击 
【查找 下 一 个 】 按 钮 ， 就 可 在 设置 的 范围 内 进行 查找 。 


图 28-13 【查找 】 对 话 框 


如 果 需 要 将 具有 该 关键 字 的 代码 集中 在 一 起 进行 比较 ， 使 用 【查找 】 对 话 框 就 不 太 方 
便 了 。 这 时 ， 可 编写 VBA 代码 ， 使 用 CodeModule 对 象 的 Lines 属性 对 VBA 代码 进行 逐 
行 查找 ， 并 将 找到 包含 关键 字 的 代码 复制 到 Excel 工作 表 中 。 

通过 Lines 属性 可 获得 一 个 字符 串 ,可 使 用 InStr 函数 在 该 字符 串 中 查找 是 否 存在 子 串 。 
编写 以 下 代码 ， 可 完成 代码 的 搜索 功能 : 

Sub 代码 搜索 () 


Dim oVBP As VBIDE.VBProject, oOoVBC Rs VBComponent, oCM As CodeModule 
Dim strProc Rs String, r Rs Long, i As Long, strl As String 


On Error Resume Next 


“Fe 
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Set oVBP = ActiveWorkbook.VBProject 
IE Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + vbOKOnly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 


strProc = Application.InputBox (prompt :=" 请 输入 需要 查找 的 关键 字 : "，_ 
Title:=" 代 码 搜索 "，Type:=2) 
IE strProc = "False" Or strProc = "" Then Exit Sub 


With Worksheets ("代码 搜索 结果 ") 
:Cells.Clear 
.Range ("Al:B1") = Array ("过 程 名 "， "代码")' 填 充 表 头 
.Range ("Al1:B1") .Font .Bold = True 


于 
For Each oVBC In oVBP.VBComponents 
Set oCM = OoVBC.CodeModule ' 处 理 部 件 代 码 模块 
For i = 1 To oCM.CountofLines ' 循 环 处 理 每 一 行 代码 
strl = LTrim(oCM.Lines (i, 1)) 
IE Instr(UCase(str1), UCase(strProc)) > 0 Then 
.Cells(r, 1) = oCM.ProcOfLine(i, vbext pk Proc) ! 过 程 名 
-Cells(r, 2) = strl ' 代 码 
i 
End If 
Next 
Next 
End With 
End Sub 


执行 以 上 代码 , 将 弹出 如 图 28-14 所 示 的 对 话 框 , 在 该 对 话 框 中 输入 搜索 的 关键 字 (如 
CodeModule) 。 

单 击 【确定 】 按 钮 ， 程 序 将 获取 各 部 件 的 代码 模块 ， 
对 每 一 行 代码 进行 查找 ， 找 到 相应 的 关键 字 后 ， 再 查找 所 
在 行 的 过 程 名 ， 最 后 将 相关 信息 显示 在 工作 表 中 。 如 
图 28-15 所 示 。 


喇 蝇 fFVBEXIS [ 苦 窜 模式 | rr 
国 四 a B 5 卫 E 下 5 nH bs 
过 程 名 代码 

YBA 过 程 名 Din oCk As Codellodule, strProcNane AS String 

VBA 过 程 名 Set oCK = oVEC.Codelodule “获取 组 件 的 代码 模块 对 象 

查看 VBA 代码。 Dim oCk As Codellodule, strProcNane As String 

查看 YBA 代 码 。 Set oCK = oVEC.Codelodule 

代码 搜索 Din oVBP As VBIDE. YEProject, oVBC As YBConponent, oCl As Codellodule 
代码 搜索 Set oCK = oyBC. Codellodule “处理 部 件 代码 模块 


Somamarorr 


4 MN] 9 用 上 克 地 程 名 VEA 代 码 」 代码 搜索 结果 ,65 学 


FE| 


图 28-15 ”搜索 结果 
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28.5 动态 添加 VBA 代码 


通过 调用 VBE 对 象 模型 中 的 相应 对 象 ， 可 动态 地 创建 模块 、 类 模块 、 用 户 窗 体 及 用 
户 窗 体 中 的 控件 ， 并 可 以 动态 地 创建 VBA 代码 。 


28.5.1 增加 模块 


使 用 VBComponents 集合 对 象 的 Add 方法 ， 可 将 一 个 对 象 添加 到 集合 。 该 方法 的 语法 
格式 如 下 : 
object.Add (component) 


参数 component 用 来 表示 要 添加 的 组 件 类 型 。 对 于 VBComponents 集合 ， 则 为 表示 类 
模块 、 窗 体 、 标 准 模块 的 列举 常数 ， 具 体 常数 如 下 所 述 。 

口 vbext_ct_ClassModule: 将 一 个 类 模块 添加 到 集合 。 

口 vbext ct MSForm: 将 窗 体 添加 到 集合 。 

口 vbext_ ct_StdModule: 将 标准 模块 添加 到 集合 。 

使 用 以 下 代码 可 向 工程 中 添加 一 个 模块 ， 模 块 名 由 用 户 输入 。 

Sub 增加 模块 () 


Dim oVBP As VBIDE.VBProject, oOoVBC As VBComponent 
Dim strMName As String 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbCritical + VbOKOnly，" 和 警告 " 
On Error GoTo 0 
Exit Sub 
End If 


strMName = Application.InputBox (prompt :=" 请 输入 新 增加 模块 的 名 称 : "，_ 
Title:=" 模 块 名 称 "，Type:=2) 
If strMName = "False" Or strMName = "" Then Exit Sub 


For Each oVBC In oVBP.VBComponents 1 检查 是 否 已 存在 同名 的 模块 
If oVBC.Name = strMName Then 
MsgBox ("名 称 "" & strMName & "" 已 经 存 ! 请 重新 输入 新 的 名 称 ! ")，_ 
vbcritical + vbOKOnly，" 警 告 " 


Exit Sub 
End If 
Next 
With oVBP.VBComponents.Add (vbext_ct_StdModule) ' 增 加 模块 
-Name = strMName ' 设 置 模块 名 称 
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End With 
MsgBox "增加 模块 成 功 ! "，vbInformation + vbOKonly,， "提示 " 
End Sub 


执行 以 上 代码 ， 将 弹出 如 图 28-16 所 示 对 话 框 。 在 该 对 话 框 中 输入 模块 的 名 称 ， 单 击 


【确定 】 按 钮 ， 即 可 向 工程 中 添加 一 个 模块 。 在 【工程 资源 管理 器 】 窗 口中 可 看 到 新 增 的 模 
块 ， 如 图 28-17 所 示 ， 该 模块 为 一 个 空 模块 ， 还 没有 VBA 代码 。 


eet5 (代码 搜索 结果 ) 
ThisWorkbook 


= 名 模块 
< EE 


图 28-16 输入 模块 名 图 28-17 新 增 的 模块 


名 提示: 如 果 要 增加 类 模块 ， 只 需 修改 Add 方法 中 的 参数 为 以 下 形式 即 可 : 


VBComponents .Add (vbext_ct_ClassModule) 


28.5.2 ”向 模块 中 添加 代码 


使 用 InsertLines 方法 可 在 一 个 代码 块 的 某 个 指定 位 置 ， 插 入 一 行 或 多 行 的 代码 。 其 语 
法 格式 如 下 : 

object. InsertLines (line, code) 

以 下 代码 在 用 户 指定 的 模块 中 插入 一 个 过 程 代 码 : 


Sub 插入 代码 () 
Dim oVBP As VBIDE.VBProject, oVBC As VBComponent 
Dim strMName As String, strl Rs String 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 !"，_ 
vbcritical + VbOKOonly，" 和 警告 " 
Exit Sub 
End If 


strMName = Application.InputBox (prompt :=" 请 输入 插入 代码 的 模块 名 称 : "， Ee 
"560。 
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Title :=" 模 块 名 称 "，Type:=2) 
If strMName = "False" Or strMName = "" Then Exit Sub 


Set coVBC = oOoVBP.VBComponents (strMName) 

IE Err <> 0 Then 
MsgBox "输入 的 模块 名 称 错误 ! "，vbcritical + vboKonly，" 警 告 " 
Exit Sub 

End If 


str1l = "Sub 自动 添加 过 程 ()" & vbNewLine & _ 
Space(4) & "Dim strl As String" & vbNewLine & _ 
space (4) & "strl=""" & "由 VBA 代码 动态 添加 的 测试 代码 ! " & """" &vbNewLine 
& 


Space(4) & "MsgBox strl" & vbNewLine & _ 
"End Sub" 


OVBC.CodeModule.InsertLines 1, strl 


Set oVBC = Nothing 
Set oVBP = Nothing 
End sub 


以 上 程序 将 需要 插入 到 模块 中 的 代码 保存 到 字符 串 strl 中 ， 再 调用 InsertLines 方法 将 
其 插入 到 指定 模块 。 

执行 以 上 代码 ， 首 先 将 弹出 如 图 28-18 所 示 对 话 框 ， 在 该 对 话 框 中 输入 需要 插入 代码 
的 模块 名 称 ， 单 击 【 确 定 】 按 钮 即 可 在 该 模块 中 插入 代码 ， 如 图 28-19 所 示 。 


操作 Y5E. xls - 测试 模 截 代码) ” 友 扣 | 必 ] 


和 者 寺 罗江 代码 9 “ 
异 共 名 入 [a 23 
请 输入 插入 代码 的 模块 名 称 
[ 测 研 模块 
Cua] E zs 
图 28-18 输入 模块 名 图 28-19 ”自动 插入 的 代码 


28.5.3 工作 表 中 动态 增加 按钮 


在 Excel 操作 环境 中 ，【 开 发 工具 】 选 项 卡 的 【控件 】 组 中 提供 了 向 工作 表 中 插入 的 
控件 。 最 常用 的 是 向 工作 表 中 添加 一 个 按钮 ， 并 为 按钮 指定 一 个 宏 ， 让 用 户 可 以 方便 地 在 
Excel 界面 中 执行 VBA 代码 。 

通过 VBE 对 象 模型 ， 可 以 让 用 户 单 击 工作 表 中 的 按钮 来 动态 添加 按钮 。 要 使 用 VBA 
代码 动态 向 工作 表 中 添加 按钮 ， 可 使 用 OLEObject 对 象 的 相关 方法 。 

OLEObject 对 象 代表 工作 表 上 的 一 个 ActiveX 控件 或 链接 、 榜 入 的 OLE 对 象 。 
OLEObject 对 象 是 OLEObjects 集合 的 成 员 。OLEObjects 集合 在 一 张 工作 表 上 包含 所 有 的 
OLE 对 象 。 

使 用 OLEObjects 集合 的 Add 方法 可 向 工作 表 中 添加 新 的 OLE 对 象 。Add 方法 的 语法 
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格式 如 下 : 


表 达 式 .Add(ClassType, FileName, Link， DisplayAsIcon, IconFileName， 
IconIndex, IconLabel, Left, Top, Width, Height) 


其 中 参数 ClassType 为 要 创建 对 象 的 程序 标识 符 。 其 余 参 数 都 可 省 略 。 
通过 手动 方式 向 工作 表 中 添加 一 个 ActiveX 按钮 ， 在 编辑 栏 中 可 看 到 如 下 内 容 : 


=EMBED ("Forms.CommandButton.1","") 


其 中 的 “Forms.CommandButton.1” 就 是 按钮 的 ClassType。 
了 解 以 上 知识 后 ， 就 可 编写 工作 表 中 动态 添加 按钮 的 代码 。 具 体 代码 如 下 : 


Sub 动态 添加 按钮 () 
Dim oVBP As VBIDE.VBProject, wsl As Worksheet, i As Integer 
Dim oBtn As Object, obj As OLEObject, sCode As String, r As Long 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
IE Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + VbOKOnly， "警告 " 
Exit Sub 
End If 


i=1 
Set wsl = Worksheets ("动态 按钮 ") 
For Each obj In wsl.OLEObjects ' 判 断 已 添加 了 几 个 Activex 按钮 
IE obj.Name = "cmd" & i Then 
i=i+1 
End If 
Next 


Set oBtn = wsl.OLEObjects.Add ("Forms.CommandButton.1") 
:添加 一 个 Activex 按钮 


With oBtn ' 设 置 按钮 的 属性 
-Left = 110 * (i - 1) + 110 ' 动 态 设置 按钮 左 侧 坐 标 
.Top = 40 


.Width = 100 
-Height = 30 
.Object .Caption = "动态 按钮 " & I ' 按 钮 显示 名 称 
-Name = "cmd" & I ' 按 钮 代码 名 称 
End With 
' 生 成 按钮 的 单 击 事件 代码 
sCode = "Sub cmd" & i & " Click()" & vbNewLine & _ 


" ”MsgBox "" 你 单 击 了 第 " & i & "个 动态 按钮 ! "" " & vbNewLine & _ 


"End Sub" 
' 添 加 代码 到 工作 表 代 码 部 分 
With oVBP.VBComponents (wsl1 .CodeName) .CodeModule 
r= .CountOfLines + 1 ' 代 码 模 块 总 行 数 加 1 
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.InsertLines 1, sCode ' 在 最 后 一 行 处 插入 新 的 代码 


End With 
End Sub 


以 上 代码 首先 判断 当前 工作 表 中 已 有 几 个 ActiveX 按钮 ， 取 得 序列 号 后 ， 方 便 给 后 续 
添加 的 按钮 命名 〈 如 果 动 态 按钮 具有 相同 的 名 称 ， 则 动态 按钮 的 事件 过 程 名 将 相同 ， 从 而 
导致 程序 出 错 ) 。 接 着 使 用 OLEObjects 集合 的 Add 方法 添加 一 个 ActiveX 按钮 ， 并 设置 
按钮 的 位 置 、 名 称 ， 然 后 向 工作 表 代 码 中 添加 该 按钮 的 事件 过 程 代码 。 

在 工作 表 中 添加 一 个 按钮 ， 设 置 名 称 为 “动态 按钮 ”， 为 该 按钮 指定 宏 为 “动态 按钮 
前 面 编写 的 代码 ) 。 单 击 2 次 该 按钮 ， 将 在 工作 表 中 添加 2 个 按钮 ， 如 图 28-20 所 示 。 单 
击 工作 表 中 的 【动态 按钮 2】， 将 执行 该 按钮 的 单 击 事件 代码 ， 弹 出 如 图 28-21 所 示 的 提 


示 对 话 框 。 


国 提 人 VBExls 演 容 村 式 | 


图 28-21 提示 


在 VBE 中 双击 工作 表 “ 动 态 按钮 ”， 可 看 到 由 VBA 代码 添加 的 按钮 事件 代码 ， 如 
图 28-22 所 示 。 


V 操作 YHE-zls -Sheety (代码 ) E 后 友 | 


ET 
“你 单 击 了 第 ?个 动态 按 名 9“ < 
rT 
A “你 单 击 了 第 个 动态 控 乌 9“ 
虹 


图 28-22 动态 添加 的 代码 


28.5.4 创建 动态 用 户 窗 体 


与 添加 模块 类 似 ， 使 用 VBComponents 集合 的 Add 方法 也 可 向 工程 中 增加 用 户 窗 体 ， 
只 需 将 Add 方法 的 参数 设置 为 Vbext_ct MSForm 即 可 。 

使 用 Add 方法 添加 的 只 是 一 个 空白 用 户 窗 体 ， 还 需要 向 窗 体 中 添加 各 种 控件 ， 窗 体 才 
能 完成 相应 的 功能 。 

使 用 Designer 属性 可 返回 窗 体 设计 器 ， 通 过 设计 器 访问 Controls 集合 ， 向 窗 体 中 添加 
控件 。 例 如 ， 使 用 以 下 代码 可 向 窗 体 中 添加 一 个 按钮 。 

Set oBtn = oWindow.Designer.Controls.Add("Forms.CommandButton.1") 

如 果 要 添加 其 他 窗 体 控件 ， 只 需 将 Add 参数 中 的 “Forms.CommandButton.1” 替 换 为 
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其 他 控件 的 类 型 标识 符 即 可 。 
下 面 的 代码 将 创建 一 个 用 户 窗 体 ， 并 向 窗 体 中 添加 两 个 按钮 。 


“创建 窗 体 ” 按 钮 的 VBA 代码 如 下 : 

Sub 创建 窗 体 () 
Dim oVBP As VBIDE.VBProject, obj As VBComponent 
Dim oWindow As Object, oBtn As Object, oChk As Object 
Dim sCode As String, r As Long 


On Error Resume Next 
Set oVBP = ActiveWorkbook.VBProject 
If Err <> 0 Then 
MsgBox "当前 安全 设置 不 允许 运行 本 过 程 ， 请 修改 安全 设置 ! "，_ 
vbcritical + vbOoKOnly，" 警 告 " 
On Error GoTo 0 
Exit Sub 
End If 


For Each obj In oVBP.VBComponents  ' 判 断 是 否 已 有 同名 用 户 窗 体 
If obj.Name = "myFrm" Then 
MsgBox "该 动态 窗 体 已 经 创建 ! " & vbNewLine _ 
& "下 面 将 删除 该 窗 体 ， 然 后 重新 创建 窗 体 ! " 
oOVBP .VBComponents .Remove obj 
End If 
Next 


Set oWindow = oVBP.VBComponents .Rdd (vbext_ct_MSForm) ' 添 加 一 个 用 户 窗 体 


With oWindow ' 设 置 窗 体 的 属性 值 
.Properties ("Caption") = "动态 窗口 " 
.Properties ("Name") = "myFrm" 
-Properties ("Width") = 300 
.Properties ("Height") = 100 
End With 


Set oBtn = oWindow.Designer.Controls.Add ("Forms.CommandButton.1") 


' 添 加 一 个 按钮 
With oBtn ' 设 置 按钮 的 属性 值 
:Name = "cmdOK" 
.Caption = "确定 " 
.Left = 100 
.Top = 40 
-Width = 50 
.Height = 20 
End With 
' 生 成 "确定 "按钮 的 单 击 事件 代码 


sCode = "Sub cmdOK Click()" & vbNewLine & _ 
"” msgbox "" 你 单 击 了 【确定 】 按 钮 ! """ & vbNewLine & _ 
"End Sub" & vbNewLine 


Set oBtn = oWindow.Designer.Controls.Add ("Forms.CommandButton.1") 
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With oBtn 
-Name = "cmdClose" 
.Caption = "关闭 " 
-Left = 160 
-Top = 40 
-Width = 50 
-Height = 20 

End With 


' 生 成 【关闭 】 按 钮 的 事件 单 击 代码 
sCode = sCode & "Sub cmdClose Click()" & vbNewLine & _ 
区 Unload Me" & vbNewLine & _ 
"End Sub" 
' 将 代码 添加 到 窗 体 的 代码 中 
With oWindow.CodeModule 
r= .CountOfLines + 1 
.InsertLines r, sCode 
End With 


' 将 创建 的 窗 体 放 入 UserForms 集合 中 ， 并 显示 出 来 
VBEA.UserForms .Add (oWindow.Name) .Show 
End Sub 


以 上 代码 首先 判断 用 户 窗 体 是 否 存在 , 接着 使 用 VBComponents 集合 的 Add 方法 创建 
-个 用 户 窗 体 ， 再 通过 用 户 窗 体 的 Designer 对 象 添加 两 个 按钮 控件 到 窗 体 中 ， 接 着 生成 两 
个 按钮 的 单 击 事件 代码 ， 并 将 代码 添加 到 窗 体 中 ， 最 后 将 窗 体 添加 到 UserForms 集合 中 ， 
并 显示 出 来 。 
在 工作 表 中 添加 一 个 按钮 ,设置 名 称 为 “创建 窗 体 ”， 为 该 按钮 指定 宏 为 “创建 窗 体 ” 
(前 面 编写 的 代码 ) 。 单 击 该 按钮 ， 将 弹出 如 图 28-23 所 示 的 用 户 窗 体 ， 单 击 【 确 定 】 按 钮 
将 弹出 如 图 28-24 所 示 的 提示 对 话 框 。 单 击 【 关 闭 】 按 钮 将 关闭 用 户 窗 体 。 


microsoft Excel 区 | 
你 单 击 了 【确定 】 按钮 
三 定 -一 


图 28-23 ”生成 的 动态 窗 体 图 28-24 ”提示 信息 
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第 29 章 使 用 Windows API 


Windows API 是 Windows 应 用 程序 接口 的 简称 ， 是 为 开发 者 提供 的 开发 Windows 应 
用 程序 时 的 接口 。Windows API 提供 了 功能 众多 的 函数 ， 可 让 程序 员 深 入 控制 Windows 操 
作 系 统 的 绝 大 部 分 内 容 。 在 VBA 中 也 可 调用 Windows API 函数 ， 扩 展 和 优化 基于 Office 
的 应 用 程序 。 


29.1 Windows API 基础 


Windows API 是 Windows 操作 系统 提供 的 底层 函数 , 使 用 这 些 函 数 可 使 开发 者 编写 的 
代码 进入 操作 系统 核心 。 要 在 Excel 中 调用 API 函数 ， 需 要 先 了 解 API 及 其 相关 知识 。 


29.1.1 Windows API 概述 


API 的 英文 全 称 是 Application Programming Interface，Windows API 也 就 是 Microsoft 
Windows 平台 的 应 用 程序 编程 接口 。 

使 用 这 些 API 函数 可 以 像 搭 积木 一 样 编写 Windows 环境 下 的 应 用 程序 。 但 是 ,如果 全 
部 使 用 API 函数 进行 应 用 程序 开发 ， 程 序 员 就 必须 熟 记 一 大 堆 常用 的 API 函数 ， 而 且 还 得 
对 Windows 操作 系统 有 深入 的 了 解 。 这 样 ， 程 序 的 开发 效率 将 很 低 。 

随 着 软件 技术 的 不 断 发 展 , 在 Windows 平台 上 出 现 了 很 多 优秀 的 可 视 化 编程 环境 ， 程 
序 员 可 以 采用 “ 即 见 即 所 得 ”的 编程 方式 来 开发 具有 精美 用 户 界面 和 功能 强大 的 应 用 程序 。 
这 些 优 秀 的 可 视 化 编程 环境 操作 简单 、 界 面 友好 (例如 VB、Visual C++、DELPHI 等 ) ， 
在 这 些 工 具 中 提供 了 大 量 的 类 库 和 各 种 控件 ， 它 们 替代 了 API 的 神秘 功能 ， 事 实 上 这 些 类 
库 和 控件 都 是 构架 在 Windows API 函数 基础 之 上 的 ,是 封装 了 的 API 函数 的 集合 。 它 们 把 
常用 的 API 函数 组 合 在 一 起 成 为 一 个 控件 或 类 库 ， 并 赋予 其 方便 的 使 用 方法 ， 所 以 极 大 地 
提高 了 Windows 应 用 程序 的 开发 效率 。 有 了 这 些 控件 和 类 库 ， 程 序 员 便 可 以 把 主要 精力 放 
在 程序 整体 功能 的 设计 上 ， 而 不 必 过 于 关注 技术 细节 。 

如 果 要 开发 出 更 灵活 、 更 实用 、 更 具 效 率 的 应 用 程序 ， 必 然 要 涉及 到 直接 使 用 API 函 
数 ， 虽然 使 用 类 库 和 控件 会 使 应 用 程序 的 开发 简单 的 多 , 但 它们 只 提供 Windows 的 一 般 功 
能 ， 对 于 比较 复杂 和 特殊 的 功能 来 说 ， 使 用 类 库 和 控件 是 非常 难以 实现 的 ， 这 时 就 需要 采 
用 API 函数 来 实现 。 

凡是 在 Windows 工作 环境 下 执行 的 应 用 程序 , 都 可 以 调用 Windows API。 当然 , Office 
应 用 程序 同样 也 可 调用 API 函数 ， 以 扩充 应 用 程序 的 功能 。 
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29.1.2 ”API 分 类 


每 个 Windows 应 用 程序 都 直接 或 间接 地 调用 Windows API 提供 的 函数 ， 通 过 这 些 函 
数 可 以 保证 所 有 在 Windows 中 运行 的 应 用 程序 都 按照 统一 的 方式 运行 。 

Windows API 函数 包含 在 一 系列 扩展 名 为 DLL 的 动态 链接 库 文件 中 , 共有 上 干 个 API 
函数 。 对 于 数量 众多 的 API 函数 ， 开 发 者 不 必 刻 意 去 研究 每 个 API 函数 的 用 法 ， 但 是 在 需 
要 的 时 候 ， 至 少 应 该 知道 它 属 于 哪 一 类 的 API 函数 ， 这 样 才 能 正确 查找 和 使 用 。 

按照 通常 的 划分 标准 ，Windows API 函数 分 为 下 面 7 大 类 。 

口 窗 体 管理 类 : 这 类 API 函数 向 应 用 程序 提供 了 一 些 创 建 和 管理 用 户 界面 的 方法 ， 

可 以 使 用 它们 来 控制 应 用 程序 的 界面 。 
口 窗 体 通 用 控制 类 : 系统 SHELL 提供 了 一 些 控制 ， 使 用 这 些 控制 可 以 使 窗 体 具 有 与 
众 不 同 的 外 观 ， 通 用 控制 是 由 通用 控制 库 COMCTL32.DLL 提供 的 。 

口 SHELL 特性 类 : 应 用 程序 可 以 使 用 它们 来 增强 系统 SHELL 各 方面 的 功能 。 

口 图 形 设 备 接口 (GDI32) : 提供 绘图 、 图 形 处 理 、 使 用 显示 设备 等 一 系列 的 API 
函数 。 

口 系统 服务 类 (Kemel32) : 提供 了 访问 操作 系统 提供 的 计算 机 资源 的 功能 。 这 些 函 
数 包括 控制 内 存 、 文 件 系统 和 系统 上 运行 的 资源 的 函数 。 
口 国际 特性 类 : 有 助 于 编写 国际 化 的 应 用 程序 ， 提 供 Unicode 字符 集 和 多 语种 支持 。 
口 网 络 服务 类 : 允许 网 络 上 的 不 同 计算 机 之 间 的 不 同 应 用 程序 之 间 进 行 通信 ， 用 于 
在 各 计算 机 上 创建 和 管理 共享 资源 的 连接 。 

对 于 众多 的 API 函数 ， 开 发 人 员 不 必 刻 意 去 研究 每 一 个 函数 的 用 法 ， 在 需要 的 时 候 通 
过 查看 API 帮助 掌握 其 使 用 方法 即 可 。 

通过 Windows API 提供 的 函数 ， 使 用 VBA 可 以 利用 Windows 操作 系统 的 强大 功能 ， 
完成 许多 使 用 VBA 语句 难以 完成 的 工作 。 本 章 将 结合 实例 介绍 API 的 使 用 方法 ， 使 读者 
掌握 使 用 API 的 方法 。 


29.2 在 Excel 中 使 用 API 


VBA 可 以 调用 动态 链接 库 (DLL) 中 的 函数 。 在 大 多 数 情况 下 ， 这 些 DLL 文件 是 由 
C 或 c++ 之 类 的 程序 语言 开发 的 。 在 VBA 中 调用 这 些 函 数 时 ， 需 要 进行 一 些 特殊 设置 ， 
使 其 能 与 C 的 数据 类 型 进行 数据 交换 。 本 节 介绍 具体 的 设置 方法 。 

29.2.1 声明 函数 


由 于 大 部 分 DLL 及 其 文档 最 初 是 为 C/C++ 程序 员 编 写 的 ， 所 以 调用 DLL 函数 和 调用 
VBA 函数 可 能 会 有 所 不 同 。 
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1. 声明 API 


使 用 VBA 的 Declare 语句 ， 可 在 模块 级 别 中 声明 对 动态 链接 库 (DLL) 中 外 部 过 程 的 
引用 。Declare 语句 的 两 种 语法 格式 如 下 : 

[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] 

[([arglist])] 

[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] 

[([arglist])] [As type] 

Declare 语句 的 语法 包含 下 面 几 部 分 的 内 容 。 

口 Public: 用 于 声明 对 所 有 模块 中 的 所 有 其 他 过 程 都 可 以 使 用 的 过 程 。 
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Private: 用 于 声明 只 能 在 包含 该 声明 的 模块 中 使 用 的 过 程 。 

Sub: 表示 该 过 程 没 有 返回 值 。 

Function: 表示 该 过 程 会 返回 一 个 可 用 于 表达 式 的 值 。 

Name: 任何 合法 的 过 程 名 。 注 意 动态 链接 库 的 名 称 区 分 大 小 写 。 

Lib: 指明 包含 所 声明 过 程 的 动态 链接 库 或 代码 资源 。 所 有 声明 都 需要 Lib 子 句 。 

Libname: 包含 所 声明 的 过 程 动态 链接 库 名 或 代码 资源 名 。 

Alias: 表示 将 被 调用 的 过 程 在 动态 链接 库 (DLL) 中 还 有 另外 的 名 称 。 当 外 部 过 
程 名 与 某 个 关键 字 重 名 时 ， 就 可 以 使 用 这 个 参数 。 当 动态 链接 库 的 过 程 与 同一 范 
围 内 的 公用 变量 、 常 数 或 任何 其 他 过 程 的 名 称 相 同时 ， 也 可 以 使 用 Alias。 如 果 该 
动态 链接 库 过 程 中 的 某 个 字符 不 符合 动态 链接 库 的 命名 约定 时 ， 也 可 以 使 用 Alias。 
aliasname: 动态 链接 库 或 代码 资源 中 的 过 程 名 。 如 果 首 字符 不 是 数字 符号 (#) ， 
则 aliasname 是 动态 链接 库 中 该 过 程 的 入 口 处 的 名 称 。 如 果 首 字符 是 〈#) ， 则 随 
后 的 字符 必须 指定 该 过 程 的 入 口 处 的 顺序 号 。 

arglist: 代表 调用 该 过 程 时 需要 传递 的 参数 的 变量 表 。 

type: Function 过 程 返回 值 的 数据 类 型 ， 可 以 是 Byte、Boolean、Integer、Long、 

Currency、Single、Double、Date、String (只 支持 变 长 ) 或 Variant 的 用 户 定义 类 
型 ， 或 对 象 类 型 。 


参数 传递 


在 Declare 语句 中 ， 可 通过 arglist 参数 定义 向 API 函数 传递 的 参数 名 称 、 数 据 类 型 等 。 
Arglist 参数 的 语法 以 及 语法 各 个 部 分 如 下 : 


[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] 


各 部 分 的 含义 如 下 所 述 。 
口 Optional: 表示 参数 不 是 必需 的 。 如 果 使 用 该 选项 ， 则 arglist 中 的 后 续 参 数 都 必需 


口 
口 
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是 可 选 的， 而 且 必须 都 使 用 Optional 关键 字 声明 。 如 果 使 用 了 ParamArray， 则 任 
何 参数 都 不 能 使 用 Optional。 

ByVal: 表示 该 参数 按 值 传递 。 

ByRef: 表示 该 参数 按 地 址 传递 。ByRef 是 VBA 的 默认 选项 。 
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口 ParamArray: 只 用 于 arglist 的 最 后 一 个 参数 ， 表 示 最 后 的 参数 是 一 个 Variant 元 素 
的 Optional 的 数组 ,使 用 ParamArray 关键 字 可 以 提供 任意 数目 的 参数 .ParamArray 
关键 字 不 能 与 ByVal、ByRef 或 Optional 一 起 使 用 。 

varname: 代表 传 给 该 过 程 的 参数 的 变量 名 ， 遵 循 标准 的 变量 命名 约定 。 

(): 指明 varmmame 是 一 个 数组 。 

type: 传递 给 该 过 程 的 参数 的 数据 类 型 ， 可 以 是 Byte、Boolean、Integer、Long、 
Currency、Single、Double、Date、String (只 支持 变 长 )》、Object、Variant 的 用 户 
自 定义 类 型 或 对 象 类 型 。 

默认 情况 下 ,VBA 中 的 参数 通过 引用 来 传递 。 因 此， 当 API 函数 要 求 通过 赋值 来 传递 
参数 时 ， 必 须 在 该 函数 定义 中 包含 关键 字 ByVal。 如 果 在 函数 定义 中 省 略 关键 字 ByVal， 
有 些 情况 下 可 能 会 导致 无 效 页 面 的 错误 。 在 另外 一 些 情况 下 可 能 会 发 生 VBA 运行 时 错 
误 49。 

以 引用 方式 传递 参数 会 将 该 参数 的 内 存 地 址 传递 给 被 调用 的 过 程 。 如 果 被 调用 的 过 程 
改变 参数 的 值 ， 则 将 改变 参数 的 唯一 版 本 ， 因 此 当 执行 过 程 返 回 到 主 调 过 程 时 ， 该 参数 将 
含有 更 改 后 的 值 。 

以 赋值 方式 向 API 函数 传递 参数 是 传递 该 参数 的 一 个 副本 ; 函数 将 使 用 该 副本 来 代替 
参数 进行 操作 。 这 样 可 以 避免 函数 更 改 真 实 参数 的 内 容 。 当 执行 进程 返回 到 主 调 过 程 时 ， 
参数 包含 的 值 与 调用 其 他 过 程 之 前 相同 。 

由 于 以 引用 方式 传递 参数 可 以 在 内 存 中 修改 参数 值 ， 因 此 如 果 不 正 确 地 以 引用 方式 传 
递 参数 ，API 函数 可 能 会 改写 它 不 应 该 写 入 的 内 存 ， 从 而 导致 错误 或 其 他 一 些 难以 预料 的 
结果 。Windows 中 有 很 多 不 应 该 被 改写 的 值 。 例 如 ，Windows 给 每 个 窗 体 分 配 一 个 唯一 的 
称 为 “句柄 ”的 32 位 标识 符 。 


名 注意 : 当 所 调用 的 外 部 过 程 需要 一 个 值 为 0 的 字符 串 时 ， 就 要 使 用 vbNullString 常数 。 
该 常数 与 零 长 度 字符 串 ("") 是 不 相同 的 。 


OO 


3. 使 用 常量 


有 些 API 函数 还 需要 定义 它 用 到 的 常量 及 类 型 。 应 将 常量 、 用 户 自 定义 类 型 的 定义 ， 
与 要 使 用 它们 的 函数 的 Declare 语句 一 起 放 在 模块 的 声明 部 分 。 从 API 的 相关 文档 可 以 找 
到 各 函数 需要 使 用 的 常量 和 用 户 自 定义 类 型 。 

有 时 可 能 需要 向 函数 传递 常量 ， 以 指明 要 求 该 函数 返回 何 种 信息 。 例 如 ， 
GetSystemMetrics 函数 接受 75 个 常量 之 一 ， 每 个 常量 都 指定 操作 系统 的 不 同方 面 。 函 数 返 
回 什 么 信息 取决 于 向 它 传递 什么 常量 。 为 了 能 够 调用 GetSystemMetrics 函数 ， 在 程序 中 不 
必 包 含 所 有 75 个 常量 ， 只 包含 要 使 用 的 那些 常量 即 可 。 


29.2.2 ”使 用 API 浏览 


从 前 面 的 介绍 可 知 ， 在 使 用 API 函数 之 前 ， 必 须 先 声明 API 函数 ， 另 外 ，API 函数 中 
的 很 多 参数 使 用 预定 义 的 结构 和 常数 。API 声明 (包括 结构 、 常 数 ) 必须 放 在 窗 体 或 模块 
。S69。 
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的 “通用 ” (General) 段 中 。 

API 函数 声明 部 分 看 起 来 就 觉得 很 复杂 ， 并 且 对 字符 需要 区 分 大 小 写 。API 函数 的 声 
明 形 式 、 结 构 和 常数 的 定义 可 通过 查 API 手册 获得 。 但 是 手工 输入 很 容易 出 错 ， 一 般 情 况 
下 ,可 直接 从 API 浏览 器 中 复制 过 来 ， 这 样 可 以 避免 出 现 错误 。 下 面 以 VB6 开发 环境 中 提 
供 的 API 浏览 器 为 例 ， 介 绍 查询 的 方法 。 

(1) 在 VB6 中 单 击 主 菜单 【外 接 程序 】|【API 浏览 器 】 命 令 (或 运行 APILOAD.EXE 
程序 ， 该 程序 可 独立 运行 ) ， 打 开 如 图 29-1 所 示 的 窗 体 。 

(2) 在 图 29-1 所 示 对 话 框 中 还 未 显示 任何 内 容 ， 需 要 先 载 入 相应 的 API 文件 。 单 击 菜 
单 【 文 件 】|【 文 本 文件 】 命 令 ， 打 开 如 图 29-2 所 示 对 话 框 ， 选 择 WIN32API.TXT， 并 单 
击 【 打 开 】 按 钮 将 该 文件 加 载 到 API 浏览 器 窗 体 中 。 


aaG: [Er 中 对 加 
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图 29-1 【API 浏 览 器 】 窗 口 图 29-2 加载 文本 文件 


(3) 在 【API 类 型 】 下 拉 列表 框 中 可 以 选择 声明 ， 然 后 在 下 面 的 文本 框 中 输入 部 分 字 
母 hash， 在 【可 用 项 】 列 表 框 中 将 显示 匹配 的 内 容 。 

(4) 在 【可 用 项 】 列 表 框 中 双击 API 函数 FlashWindow， 该 项 的 详细 内 容 将 添加 到 下 
方 的 【 选 定 项 】 列 表 框 中 ， 如 图 29-3 所 示 。 


图 29-3 查找 API 函数 声明 


= hs 
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(5) 单 击 【 复 制 】 按 钮 ， 将 【 选 定 项 】 列 表 框 中 的 内 容 复 制 到 剪贴 板 中 。 
(6) 切换 到 Excel 的 VBE 环境 中 ， 将 剪贴 板 中 的 内 容 粘贴 到 相应 的 模块 中 即 可 。 


全 技巧 : 也 可 打开 WIN32APLTXT 文件 ,直接 在 该 文件 中 查找 相应 的 内 容 ， 找 到 后 将 其 复 
制 即 可 。 


29.2.3 ”调用 API 函数 


USER.DLL 动态 链接 库 中 包含 一 个 API 函数 FlashWindow， 使 用 该 函数 可 将 指定 的 窗 
体 闪烁 ， 以 提醒 用 户 注意 。 下 面 以 实例 调用 该 函数 来 演示 API 函数 的 使 用 方法 。 本 例 需 要 
使 用 以 下 两 个 API 函数 : 

口 FlashWindow 函数 

该 函数 用 来 闪烁 显示 指定 窗 体 。 其 声明 格式 如 下 : 


Private Declare Function FlashWindow Lib "user32" ( _ 
ByVal hWnd As Long, ByVal bInvert As Long) As Long 


其 中 参数 hWnd 表示 要 闪烁 显示 的 窗 体 的 句柄 ， 在 VBA 中 ， 没 有 属性 可 以 直接 返回 
窗 体 的 句柄 ， 所 以 还 需要 使 用 FindWindow 函数 查询 窗 体 的 句柄 。 
口 FindWindow 函数 
该 函数 用 来 获取 指定 窗 体 的 句柄 。 其 声明 格式 如 下 : 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ 
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long 


该 函数 有 两 个 参数 ， 第 一 个 是 要 找 的 窗 体 的 类 ， 第 二 个 是 要 找 的 窗 体 的 标题 。 在 搜索 
的 时 候 不 一 定 两 者 都 知道 , 但 至 少 要 知道 其 中 的 一 个 。 有 的 窗 体 的 标题 是 比较 容易 得 到 的 ， 
可 以 按 标题 进行 搜索 。 但 有 的 软件 的 标题 不 是 固定 的 ， 可 以 按 窗 体 类 搜索 。 如 果 找 到 了 满 
足 条 件 的 窗 体 ， 该 函数 将 返回 满足 条 件 窗 体 的 句柄 ， 否 则 返回 0。 

了 解 这 两 个 API 函数 的 作用 、 参 数 以 后 ， 就 可 以 在 Excel VBA 中 开始 编写 代码 。 有 具体 
操作 步骤 如 下 : 

(1) 在 Excel 中 按 快 捷 键 Alt+F11 进入 到 VBE 环境 中 。 

(2) 单 击 菜单 【插入 】|【 用 户 窗 体 】 命 令 ， 向 工程 中 增加 一 个 用 户 窗 体 。 

(3) 双击 用 户 窗 体 空白 处 ， 打 开 代码 窗 体 。 将 API 函数 的 FlashWindow 的 声明 代码 粘 
贴 到 窗 体 的 声明 部 分 。 

Private Declare Function FlashWindow Lib "user32" ( _ 

ByVal hwnd As Long, ByVal bInvert As Long) Rs Long 


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ 
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long 


全 注意 ; 在 【API 浏 览 器 〗】 窗 口中 查 到 API 函数 的 声明 全 部 是 使 用 Public 声明 其 作用 域 ， 
在 用 户 窗 体 中 ， 必 须 将 其 改 为 Private。 
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(4) 在 用 户 窗 体 的 声明 部 分 再 声明 一 个 模块 变量 ， 用 来 保存 窗 体 的 句柄 。 

Dim hwnd Rs Long "保存 当前 窗 体 的 句柄 

(5) 在 用 户 窗 体 的 初始 化 事件 (Initialize) 中 编写 代码 ， 获 取 窗 体 的 句柄 。 具 体 代 码 
如 下 : 


Private Sub UserForm_Initialize() 
hwnd = FindWindow(0&, "UserForm1") 


End Sub 
使 用 FindWindow 函数 查找 用 户 窗 体 的 句柄 时 ， 因 窗 体 标题 比较 容易 获得 ， 所 以 省 略 
了 窗 体 类 的 名 称 ， 直 接 传递 一 个 长 整 型 的 0 给 函数 。 
(6) 关闭 代码 窗 体 。 在 窗 体 中 添加 一 个 按钮 , 设置 按钮 的 Caption 属性 为 “闪烁 窗 体 ”。 
(7) 为 按钮 的 单 击 事件 编写 代码 如 下 : 
Private Sub cmdFlash Click() 
For i=1 To 100 
Call FlashWindow (hWnd, True) 


DoEvents 


Next 
Call FlashWindow (hWnd，False) ' 使 窗 体 处 于 活动 状态 


End sub 
执行 创建 的 用 户 窗 体 ， 如 图 29-4 所 示 。 单 击 【 闪 烁 窗 体 】 按 钮 ， 可 看 到 用 户 窗 体 标题 
栏 的 颜色 在 不 停 闪烁 。 


29-4 ”闪烁 窗 体 


29.3 ”制作 特殊 窗 体 


在 VBE 中 ， 通 过 单 击 菜单 【插入 】|【 用 户 窗 体 】 命 令 向 工程 中 插入 的 用 户 窗 体 是 一 
个 矩形 。 在 有 的 应 用 程序 中 ,为 了 增加 程序 的 趣味 性 ， 可 能 需要 制作 非 矩 形 的 窗 体 。 这 时 ， 
只 有 通过 API 函数 才能 完成 任务 。 


29.3.1 制作 半 透 明 窗 体 
有 一 些 屏幕 翻译 软件 为 了 不 影响 用 户 操作 其 他 软件 ， 通 常 将 显示 翻译 结果 的 窗 体 设 置 
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为 半 透 明 状 。 在 VBA 中 要 制作 这 种 类 型 的 窗 体 ， 需 使 用 API 函数 。 
要 实现 半 透 明 窗 体 的 效果 ， 需 要 使 用 多 个 API 函数 ， 下 面 简单 介绍 这 些 API 函数 。 


1. SetLayeredWindowAttributes 函 数 


使 用 该 函数 设置 窗 体 的 透明 效果 。 该 函数 的 原型 如 下 : 


Private Declare Function SetLayeredWindowAttributes Lib "user32" _ 
(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _ 
ByVal dwFlags As Long) As Long 


函数 中 各 参数 的 含义 如 下 面 所 述 。 

口 hWnd: 是 透明 窗 体 的 句柄 ， 通 过 API 函数 FindWindow 取得 指定 窗 体 的 句柄 ; 

口 crKey: 为 颜色 值 ; 

口 bAlpha: 是 透明 度 ， 取 值 范 围 是 0 一 255; 

口 dwFlags: 是 透明 方式 ， 可 以 取 以 下 两 个 值 。 
> LWA_ALPHA: 值 为 2。 设 置 为 该 值 时 ，crKey 参数 无 效 ，bAlpha 参数 有 效 。 
> LWA_COLORKEY: 值 为 1。 设置 为 该 值 时 ，bAlpha 参数 有 效 而 窗 体 中 的 所 有 

颜色 为 crKey 的 地 方 将 变 为 透明 。 


名 提示 : 要 使 窗 体 拥 有 透明 效果 ， 首 先 要 使 用 以 下 语句 定义 WS_EX LAYERED 常量 : 
WS_EX LAYERED = 0x80000 


2. GetWindowLong 函 数 
用 该 函数 能 够 获得 指定 窗 体 的 信息 ， 其 函数 原型 如 下 : 


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
(ByVal hWnd As Long, ByVal nIndex As Long) As Long 


两 个 参数 的 含义 分 别 如 下 面 所 述 。 
口 hWnd: 指定 窗 体 的 句柄 ; 
口 nIndex: 需要 获得 的 信息 的 类 型 。 该 参数 可 设置 为 以 下 值 之 一 。 
> GWL _EXSTYLE: 得 到 扩展 的 窗 体 风 格 ; 
> GWL _STYLE: 得 到 窗 体 风格 ; 
> GWL _WNDPROC: 得 到 窗 体 回 调 函 数 的 地 址 ， 或 者 句柄 。 得 到 后 必须 使 用 
CallWindowProc 函数 来 调用 ; 
GWL _HINSTANCE: 得 到 应 用 程序 运行 实例 的 句柄 ; 
GWL HWNDPARENT: 得 到 父 窗 体 的 句柄 ; 
GWL ID: 得 到 窗 体 的 标识 符 ; 
GWL USERDATA: 得 到 和 窗 体 相关 联 的 32 位 的 值 〈 每 一 个 窗 体 都 有 一 个 有 
意 留 给 创建 窗 体 的 应 用 程序 使 用 的 32 位 的 值 ) 。 
在 设置 为 透明 窗 体 时 ， 需 先 使 用 GetWindowLong 函数 得 到 扩展 的 窗 体 风格 (GWL_ 
EXSTYLE) 。 


> 
> 
> 
> 
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3. SetWindowLong 函 数 


与 GetWindowLong 函数 对 应 ，SetWindowLong 函数 用 来 修改 给 定 窗 体 的 一 个 属性 。 
该 函数 的 原型 如 下 : 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As 
Long 
该 函数 前 两 个 参数 与 GetWindowLong 相同 ,最 后 的 参数 dwNewLong 为 修改 窗 体 的 属 
性 值 。 


4. 制作 透明 窗 体 的 过 程 


了 解 以 上 API 函数 后 ， 就 可 以 在 VBE 中 开始 制作 透明 窗 体 了 。 上 有 具体 步骤 如 下 : 

(1) 在 Excel 中 按 快 捷 键 Alt+F11 进入 VBE。 

(2) 单 击 菜单 【插入 】| 【用户 窗 体 】 命 令 ， 增 加 一 个 用 户 窗 体 。 向 用 户 窗 体 中 添加 1 
个 按钮 ， 设 置 用 户 窗 体 及 按钮 控件 的 属性 ， 得 到 如 图 29-5 所 示 窗 体 。 


图 29-5 用 户 窗 体 


(3) 双击 窗 体 空白 处 打开 代码 窗 体 ， 在 声明 部 分 粘贴 以 下 4 个 API 函数 的 定义 。 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 


(ByVal hWnd As Long, ByVal nIndex As Long) As Long 


Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
(ByVal hWnd As Long, ByVal nIndex Rs Long, ByVal dwNewLong As Long) Rs 
Long 


Private Declare Function SetLayeredWindowAttributes Lib "user32" _ 
(ByVal hWnd Rs Long, ByVal crKey As Long, ByVal bAlpha Rs Byte, _ 
ByVal dwFlags As Long) As Long 


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ 
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long 


(4) 在 以 上 API 函数 中 ， 将 使 用 部 分 常数 ， 也 需要 在 代码 的 声明 部 分 进行 定义 ， 具 体 
如 下 : 


Private Const WS _ EX LAYERED = &H80000 
Private Const GWL EXSTYLE = (-20) 
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了 Private Const LWA ALPHA = &H2 
Private Const LWA COLORKEY = &H1 


(5) 在 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 调 用 API 函数 完成 透明 窗 体 的 设置 : 


Private Sub UserForm Initialize() 
Dim rtn As Long, hWnd As Long 
hWnd = FindWwindow(0&, Me.Caption) "得 到 当前 窗 体 的 句柄 
rtn = GetWindowLong (hWnd，GWL_EXSTYLE) ' 获 取 扩 展 属性 
rtn = rtn Or WS EX LAYERED 


SetWindowLong hWnd, GWL EXSTYLE, rtn ' 设 置 扩展 属性 
SetLayeredWindowAttributes hWnd，0，100，LWA_ALPHA ' 设 置 为 透明 窗 体 
End Sub 


在 SetLayeredWindowAttributes 函数 中 ， 设 置 参数 bAlpha 为 0， 窗 体 将 完全 透明 ， 处 
于 看 不 见 的 状态 。 设 置 参数 bAlpha 为 255， 窗 体 将 不 透明 (与 正常 窗 体 一 样 )。 

(6) 关闭 代码 窗 体 ， 执 行 用 户 窗 体 ， 将 得 到 如 图 29-6 所 示 的 半 透 明 窗 体 效果 。 窗 体 处 
于 半 透 明 状 ， 并 将 下 方 工作 表 的 线条 也 显示 出 来 了 。 
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图 29-6 ” 半 透 明 窗 体 


29.3.2 ”制作 椭圆 窗 体 


正常 情况 下 , 用 户 窗 体 为 矩形 。 使 用 API 函数 也 可 制作 如 图 29-7 所 示 的 椭圆 窗 体 。 本 
节 将 演示 制作 这 种 椭圆 窗 体 的 方法 。 


月 户 各 : 


密码 : | 
_z | 

图 29-7 椭圆 窗 体 
1. CreateEllipticRgn 函 数 


该 函数 将 创建 一 个 椭圆 ， 函 数 原型 如 下 : 
Private Declare Function CreateEllipticRgn Lib "gdi32" ( _ 
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ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 Rs Long, ByVal Y2 As Long) 
As Long 


该 函数 的 4 个 参数 用 来 设置 2 个 坐标 位 置 ， 创 建 的 椭圆 与 这 两 个 坐标 位 置 构成 矩形 内 
切 。 返 回 值 为 创建 区 域 的 句柄 ， 供 其 他 函数 调用 。 
外 提示 : 该 函数 创建 的 区 域 在 不 用 时 一 定 要 用 DeleteObject 函数 删除 。 

2. DeleteObject 函 数 

用 该 函数 删除 GDI 对 象 〈 例 如 画笔 、 刷 子 、 字 体 、 位 图 、 区 域 以 及 调 色 板 等 ) ， 对 象 
使 用 的 所 有 系统 资源 都 会 被 释放 。 该 函数 原型 如 下 : 


Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject Rs Long) 
As Long 


参数 hObject 为 一 个 GDI 对 象 的 句柄 
在 程序 中 用 API 创建 一 个 区 域 后 ， 该 区 域 用 户 是 看 不 见 的 ， 但 它 却 是 一 个 对 象 。 如 果 
不 将 其 删除 ， 它 就 会 存在 于 系统 中 消耗 系统 资源 ， 所 以 不 用 的 时 候 就 应 该 将 其 删除 。 


3. SetWindowRgn 函 数 


该 函数 可 将 指定 窗 体 设 置 为 指定 区 域 形状 ， 函 数 原 型 如 下 : 
Private Declare Function SetWindowRgn Lib "user32" ( _ 
ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 
参数 的 含义 如 下 所 述 。 
hWnd: 为 将 设置 区 域 的 窗 体 ; 
hRgn: 为 将 设置 区 域 的 句柄 ， 一 旦 设置 了 该 区 域 ， 就 不 能 使 用 或 修改 该 区 域 句柄 ， 
也 不 要 删除 它 ; 
口 bRedraw: 该 函数 若 为 True， 则 立即 重 画 窗 体 。 
4. 制作 椭圆 窗 体 的 过 程 
了 解 以 上 API 函数 后 ， 就 可 以 在 VBE 中 开始 制作 椭圆 窗 体 了 。 具 体 步 又 如 下 : 
(1) 在 Excel 中 按 快 捷 键 Alt+F11 进入 VBE。 


(2) 单 击 菜单 【插入 】| 【用户 窗 体 】 命 令 ， 增 加 一 个 用 户 窗 体 。 向 用 户 窗 体 中 添加 2 
个 标签 、2 个 文字 框 、2 个 按钮 设置 用 户 窗 体 及 控件 的 属性 ， 得 到 如 图 29-8 所 示 窗 体 。 
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图 29-8 【登录 】 窗 体 
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外 提示 : 控件 放置 的 位 置 、 窗 体 的 大 小 将 影响 椭圆 窗 体 显示 的 效果 ， 可 在 调试 程序 时 逐步 
调整 控件 的 位 置 和 窗 体 的 大 小 ， 得 到 满意 的 效果 。 
(3) 双击 窗 体 空白 处 打开 代码 窗 体 ， 在 声明 部 分 粘贴 以 下 4 个 API 函数 的 定义 : 


Private Declare Function CreateEllipticRgn Lib "gdi32" ( _ 
ByVal X1 Rs Long, ByVal Y1 Rs Long, ByVal X2 Rs Long, ByVal Y2 Rs Long) 
As Long 


Private Declare Function SetWindowRgn Lib "user32" ( _ 
ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 


Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) 
As Long 


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ 
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long 


(4) 在 窗 体 的 初始 化 事件 中 编写 以 下 代码 ， 调 用 API 函数 完成 椭圆 窗 体 的 设置 : 


Private Sub UserForm Initialize() 
Dim rgn As Long, hWnd As Long 


hwnd = FindWindow(0&, Me.Caption) ' 获 得 窗 体 的 句柄 

rgn = CreateEllipticRgn(0，0，Me.Width，Me.Height) ' 创 建 椭圆 

SetWindowRgn hWnd, rgn, True ' 改 变 窗 体 的 区 域 

Call Deleteobject (Rng) "删除 GDI 对 象 
End Sub 


以 上 代码 首先 调用 CreateEllipticRgn 函数 , 以 当前 窗 体 和 矩形 大 小 为 参数 创建 一 个 椭圆 
再 使 用 SetWindowRen 函数 将 当前 窗 体 设置 为 椭圆 ， 最 后 删除 CreateEllipticRgn 函数 创建 
的 区 域 。 

(5) 关闭 代码 窗 体 ， 执 行 用 户 窗 体 ， 即 可 得 到 如 图 29-7 所 示 的 椭圆 窗 体 。 


29.3.3 ”制作 不 规则 窗 体 


制作 椭圆 窗 体 时 ， 首 先 绘制 一 个 椭圆 区 域 ， 再 使 用 SetWindowRgn 函数 将 窗 体 剪 切 为 
该 区 域 样式 。 同 理 ， 如 果 要 制作 不 规则 窗 体 ， 则 需要 首先 绘制 一 个 不 规则 的 区 域 ， 再 使 用 
SetWindowRgn 函数 进行 设置 即 可 。 

要 绘制 不 规则 区 域 ， 可 使 用 API 函数 CreatePolygonRgn， 该 函数 原型 如 下 : 


Private Declare Function CreatePolygonRgn Lib "gdi32" ( _ 
lpPoint Rs POINTAPI, ByVal nCount As Long, ByVal npPolyFillMode Rs Long) 


As Long 

该 函数 创建 一 个 由 一 系列 点 围 成 的 区 域 。Windows 在 需要 时 自动 将 最 后 点 与 第 一 点 相 
连 以 封闭 多 边 形 。 

各 参数 的 含义 如 下 所 述 。 


口 IpPoint: 为 POINTAPI 类 型 的 变量 。POINTAPI 是 一 个 用 于 描述 点 坐标 的 结构 ， 有 
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两 个 成 员 x 与 yY。 可 以 在 【API 浏览 器 】 窗 口中 找到 它 。 在 VBA 中 需要 定义 一 个 
数组 ， 并 将 这 个 数组 的 第 一 个 元 素 作为 这 里 的 参数 。 
口 nCount: 多 边 形 的 点 数 。 
口 nPolyFillMode: 描述 多 边 形 填 充 模 式 。 可 为 ALTERNATE 或 WINDING 常数 。 
其 他 API 函数 在 前 面 的 例子 中 都 已 介绍 过 ， 这 里 不 再 重复 介绍 。 制 作 不 规则 窗 体 的 具 
体 步 骤 如 下 : 
(1) 在 Excel 中 按 快 捷 键 AltrtF11 进入 VBE。 
(2) 单 击 菜单 【插入 】| 【用户 窗 体 】 命 令 ， 增 加 一 个 用 户 窗 体 。 向 用 户 窗 体 中 添加 1 
个 按钮 ， 设 置 用 户 窗 体 及 控件 的 属性 ， 得 到 如 图 29-9 所 示 窗 体 。 


图 29-9 原始 的 【不 规则 窗 体 】 对 话 框 
(3) 双击 窗 体 空白 处 打开 代码 窗 体 ， 在 声明 部 分 粘贴 以 下 4 个 API 函数 的 定义 : 


Private Declare Function SetWindowRgn Lib "user32" ( _ 
ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ 
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long 


Private Declare Function CreatePolygonRgn Lib "gdi32" ( _ 
lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) 
As Long 


Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) 
As Long 
(4) 在 CreatePolygonRgn 函数 中 要 使 用 到 POINTAPI 结构 ， 在 VBA 中 可 通过 自 定义 
类 型 来 表示 。 在 声明 部 分 编写 以 下 代码 创建 该 自 定义 类 型 : 
Private Type POINTAPI 
x As Long 
Y Rs Long 
End Type 
(5) 在 窗 体 的 初始 化 〈Initialize) 事件 中 编写 代码 ， 定 义 不 规则 形状 各 点 的 坐标 ， 再 
使 用 这 些 坐 标 数组 绘制 一 个 多 边 形 ，SetWindowRgn 函数 使 用 该 多 边 形 设 置 窗 体 的 外 形 ， 
最 后 删除 多 边 形 区 域 。 具 体 代 码 如 下 : 


Private Sub UserForm Initialize() 


Ss 
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Dim hWnd As Long, Result As Long 


Dim P(5) Rs POINTAPI ' 定 义 自 定义 类 型 数组 
P(0) .x = 0 "设置 区 域 坐标 点 
P(0).yY = 0 
P(1) .x = Me.Width 
P(I).y = 0 
P(2).x = Me.Width - 50 
P(2).y = Me.Height - 50 
P(3) .x = Me.Width - 100 
P(3).y = Me.Height 
P(4).x= 0 
P(4).y = Me.Height / 2 
Result = CreatePolygonRgn(P(0)，5，1) ”' 创 建 区 域 
hwnd = Findwindow(0&, Me.Caption) "查找 窗 体 句柄 
SetWindowRgn hWnd, Result, True "改变 窗 体 区 域 
Call DeleteObject (Result) ' 删 除 区 域 
End sub 
(6) 关闭 代码 窗 体 ， 执 行 用 户 窗 体 ， 即 可 得 到 如 图 29-10 所 示 的 不 规则 窗 体 。 
[| x | 


图 29-10 ”创建 好 的 【不 规则 窗 体 】 对 话 框 


名 提示: 在 VBE 中 调整 窗 体 的 原始 大 小 ， 可 得 到 形状 不 同 的 不 规则 窗 体 。 


29.4 获取 系统 信息 


在 VBA 中 没有 操作 系统 信息 的 相关 命令 ， 这 时 可 使 用 Windows API 函数 来 获取 系统 
的 相关 信息 。 


29.4.1 获取 内 存 状 态 


使 用 GlobalMemoryStatus 函数 可 获得 当前 可 用 的 物理 和 虚拟 内 存 信息 ， 该 函数 原型 
如 下 : 


Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As 
MEMORYSTATUS) 


参数 lpBuffer 类 型 为 MEMORYSTATUS 结构 , 在 VBA 中 可 通过 自 定义 类 型 设置 该 结 
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构 。 函 数 的 返回 信息 会 被 存储 在 MEMORYSTATUS 结构 中 。 
类 型 MEMORYSTATUS 的 定义 如 下 : 


Public Type MEMORYSTATUS 
dwLength As Long 
dwMemoryLoad As Long 
dwTotalPhys As Long 
dwAvailPhys As Long 
dwTotalPageFile As Long 
dwAvailPageFile Rs Long 
dwTotalVirtual As Long 
dwAvailVirtual As Long 

End Type 


类 型 中 各 成 员 的 含义 如 下 所 述 。 

口 dwLength: MEMORYSTATUS 结构 的 大 小 , 在 调用 GlobalMemoryStatus 函数 前 用 
Len 函数 求 得 ， 用 来 供 函数 检测 结构 的 版 本 。 

口 dwMemoryLoad: 返回 一 个 介 于 0 一 100 之 间 的 值 ， 用 来 指示 当前 系统 内 存 的 使 
用 率 。 

口 dwTotalPhys: 返回 总 的 物理 内 存 大 小 ， 以 字 节 〈B) 为 单位 。 

口 dwAvailPhys: 返回 可 用 的 物理 内 存 大 小 ， 以 字 节 (B) 为 单位 。 

口 dwTotalPageFile: 显示 可 以 存在 页 面 文件 中 的 字 节 数 。 注意 这 个 数值 并 不 表示 此 页 
面 文件 在 磁盘 上 的 真实 物理 大 小 。 

口 dwAvailPageFile: 返回 可 用 的 页 面 文件 大 小 ， 以 字 节 〈B) 为 单位 。 

口 dwTotalVirtual: 返回 调用 进程 的 用 户 模式 部 分 的 全 部 可 用 虚拟 地 址 空间 ， 以 字 节 
(B) 为 单位 。 

口 dwAvailVirtual: 返回 调用 进程 的 用 户 模式 部 分 的 实际 自由 可 用 的 虚拟 地 址 空间 ， 
以 字 节 (b) 为 单位 。 

了 解 GlobalMemeoryStatus 函数 以 后 ， 就 可 以 在 Excel 中 编写 函数 来 获取 内 存 的 状态 

了 。 上 有 具体 步骤 如 下 : 

(1) 在 Excel 中 按 快 捷 键 Alt+F11 进入 VBE。 

(2) 单 击 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 插入 一 个 模块 体 。 

(3) 在 模块 的 声明 部 分 粘贴 API 函数 的 定义 如 下 : 

Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As 

MEMORYSTATUS) 


(4) 在 模块 的 声明 部 分 创建 自 定义 类 型 ， 并 定义 一 个 模块 变量 为 该 自 定义 类 型 ， 用 来 
保存 返回 的 系统 信息 。 有 具体 代码 如 下 : 


Public Type MEMORYSTATUS 
dwLength As Long 
dwMemoryLoad As Long 
dwTotalPhys As Long 
dwAvailPhys Rs Long 
dwTotalPageFile As Long 
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dwAvailPageFile Rs Long 
dwTotalVirtual Rs Long 
dwAvailVirtual As Long 
End Type 
Dim MemStat Rs MEMORYSTATUS 


(5) 接着 编写 以 下 过 程 ， 通 过 GlobalMemoryStatus 函数 获取 系统 信息 ， 再 从 自 定义 类 
型 中 获取 与 内 存 相关 的 数据 。 具 体 代码 如 下 : 
Private Sub 内 存 信息 () 
Dim strl As String, temp Rs Single 


MemStat .dwLength = Len(MemStat) 
GlobalMemoryStatus MemStat 


temp = Round (MemStat .dwTotalPageFile / 1024 / 1024, 2) 
strl = "物理 内 存 : " & temp & "MB" & vbNewLine 

temp = Round (MemStat .dwAvailPhys / 1024 / 1024, 2) 
strl = strl & "可 用 内 存 : " & temp & "MB" & vbNewLine 
temp = Round (MemStat .dwTotalPageFile / 1024 / 1024, 2) 
strl = strl & "虚拟 内 存 : " & temp & "MB" & vbNewLine 
temp = Round (MemStat .dwAvailPageFile / 1024 / 1024, 2) 
strl = strl & "可 用 虚拟 内 存 : " & temp & "MB" 


MsgBox strl，vbOKonly, "内 存 信息 " 
End sub 


全 提示 : GlobalMemoryStatus 函数 返回 的 内 存 大 小 是 以 字 节 计算 的 ， 将 其 除 以 两 次 1024， 
转换 为 以 兆 字 节 (MB ) 为 单位 。 


执行 以 上 过 程 , 将 弹出 如 图 29-11 所 示 的 对 话 框 ， 显示 了 当前 计算 机 系统 的 内 存 信息 。 


图 29-11 【内 存 信息 】 对 话 框 


29.4.2 ”获取 键盘 信息 

在 VBA 中 ， 没 有 提供 获取 键盘 状态 的 函数 。 在 程序 中 若 需 要 查询 键盘 状态 ， 可 编写 
代码 调用 API 函数 节 器 完成 。 

1. GetKeyState 函 数 

使 用 该 函数 可 获取 键盘 锁定 键 的 状态 ， 函 数 原 型 如 下 : 

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) 
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As Integer 

参数 nVirtKey 为 需要 获取 状态 的 键 常 数 ， 在 VBA 中 ， 每 个 键 都 有 一 个 对 应 的 常数 ， 
例如 ，CapsLock 键 的 常数 为 vbKeyCapital。 

该 函数 返回 值 为 一 个 整 型 值 ， 如 果 最 低位 为 1， 则 表示 锁定 键 是 打开 的 ， 因 此 可 以 使 用 
以 下 代码 来 判断 : 

CBool (GetKeyState (vbKeyCapital) And 1) 

将 GetKeyState 函数 的 返回 值 与 整数 1 进行 逻辑 与 运算 ,来 取得 返回 值 的 最 低位 ， 然 
后 通过 CBool 函数 将 其 转换 为 逻辑 值 ， 即 可 得 到 指定 锁定 键 的 状态 。 

2. GetKeyboardState 函 数 和 SetKeyboardState 函 数 


设置 锁定 键 状态 需 使 用 GetKeyboardState 和 SetKeyboardState 函数 来 操作 。 这 两 个 函 
数 都 用 一 个 256 字 节 缓冲 区 取得 或 设置 256 个 键 设置 ， 在 VBA 中 设置 一 个 有 256 个 元 素 
的 字 节 数组 来 作为 缓冲 区 ， 这 个 数组 记录 着 键盘 状态 ， 每 个 键 在 数组 中 的 位 置 由 VK 常数 

- 旦 用 GetKeyboardState 函数 取得 键盘 各 键 状 态 并 存储 到 缓冲 区 中 后 ， 即 可 修改 特定 
的 键 设置 ， 然 后 用 SetKeyboardState 函数 存 回 设 置 ， 达 到 修改 键 设 置 的 目的 。 
GetKeyboardState 函数 可 取得 键盘 上 每 个 虚拟 键 当前 的 状态 ， 其 函数 原型 如 下 : 
Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardstate" _ 
(PbKeyState Rs Byte) As Long 


参数 pbKeyState 为 具有 256 个 元 素 的 字 节 数组 的 第 一 个 项 目 。 

如 果 函 数 返回 非 0 表示 成 功 ， 返 回 0 则 表示 失败 。 

SetKeyboardState 函数 用 来 设置 每 个 虚拟 键 当前 在 键盘 上 的 状态 ， 其 声明 格式 如 下 : 

Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState" _ 
(lppbKeystate Rs Byte) Rs Long 


了 解 设置 键盘 状态 的 函数 后 ， 就 可 以 在 VBA 中 编写 代码 ， 用 来 设置 锁定 键 的 状态 。 
具体 步骤 如 下 : 

(1) 在 Excel 中 按 快 捷 键 Alt+tF11 进入 VBE。 

(2) 单 击 菜单 【插入 】| 【模块 】 命 令 ， 向 工程 中 插入 一 个 模块 体 。 

(3) 在 模块 的 声明 部 分 粘贴 API 函数 的 定义 如 下 : 

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) 

As Integer 

Public Declare Function GetKeyboardState Lib "user32" (PbKeyState As Byte) 

As Long 


Public Declare Function SetKeyboardState Lib "user32" (lppbKeystate As Byte) 
As Long 


(4) 编写 修改 锁定 键 状态 的 通用 子 过 程 ， 具 体 代码 如 下 : 


Sub SetKeyState (intVKey Rs Integer，bSstate As Boolean) ' 修 改 键盘 状态 
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Dim aBuffer(0 To 255) As Byte "定义 数组 作为 缓冲 区 

GetKeyboardState aBuffer (0) ' 获 取 键 盘 状 态 放 入 缓冲 区 

aBuffer (intVKey) = CByte (Abs (bstate)) "在 缓冲 区 修改 指定 键 的 状态 

SetKeyboardstate aBuffer (0) "使 用 缓冲 区 修改 键 的 状态 
End Sub 


程序 中 使 用 数组 的 第 一 个 元 素 作为 参数 传递 给 两 个 API 函数 ， 由 于 数组 在 VBA 中 是 
连续 存放 的 ， 所 以 API 函数 通过 第 一 个 元 素 的 地 址 就 可 访问 到 后 面 的 所 有 元 素 。 
(5) 有 了 通用 函数 SetKeyState, 就 可 以 很 方便 地 编写 修改 锁定 键 状态 的 代码 了 。 例如， 
以 下 代码 可 修改 CapsLock 键 的 状态 在 大 小 写 之 间 相 互 切换 》: 
Sub ModicapsLock () "大 写 锁定 
If CBool (GetKeyState (vbKeyCapital) And 1) Then ' 获 取 CapsLock 原来 的 状态 
SetKeyState vbKeyCapital, False ' 关 闭 
Else 
SetKeyState vbKeyCapital, True ' 打 开 
End If 
End Sub 


程序 首先 使 用 GetKeyState 函数 查询 CapsLock 原来 的 状态 ， 再 将 其 状态 进行 切换 〈 即 
如 果 原 来 是 打开 的 ， 就 将 其 关闭 : 如 果 原 来 是 关闭 的 ， 就 将 其 打开 ) 。 


“3 


第 30 章 ”制作 应 用 程序 的 帮助 


用 Excel VBA 开发 的 应 用 程序 大 多 面向 初级 用 户 ， 这 些 用 户 计 算 机 软件 操作 的 经 验 很 
少 。 因 此 ， 对 于 一 个 复杂 的 应 用 程序 ， 应 为 用 户 提供 友好 的 帮助 系统 ， 使 用 户 快速 熟悉 应 
用 程序 的 使 用 方法 。 本 章 将 介绍 使 用 微软 公司 的 HTML Help Workshop 制作 CHM 格式 帮 
助 系统 的 方法 。 


30.1 CHM 帮助 概述 


在 Web 浏览 器 出 现 之 前 ，Windows 平台 中 的 应 用 程序 大 部 分 使 用 基于 WinHelp 的 帮 
助 系统 。 随 着 Web 浏览 器 的 出 现 和 发 展 ， 带 有 超级 链接 的 帮助 页 面 成 为 了 主流 。 


30.1.1 认识 CHM 帮助 文件 


在 Windows 操作 系统 中 ， 使 用 扩展 名 .chm 来 保存 这 种 基于 HTML 格式 的 帮助 系统 。 
这 是 通过 HTML Help Workshop 制作 得 到 的 帮助 系统 。 这 种 文件 格式 在 网 上 广 为 流 传 ， 被 
称 为 一 种 电子 书籍 格式 。 

例如 ，Windows XP 中 媒体 播放 器 的 帮助 系统 如 图 30-1 所 示 。 该 帮助 系统 就 是 以 网 络 
超 文 本 “HTML) 格式 制作 的 。 


相关 主题 
。 全 用 笑 训 缸 


和 


30-1 CHM 格式 的 帮助 系统 


HTML Help Workshop 的 特点 在 于 ， 它 的 每 一 个 帮助 页 面 都 是 一 个 Web 页 ， 可 以 像 浏 
览 网 站 一 样 容 易 地 阅读 HTML 帮助 文件 。 该 帮助 系统 支持 HTML、ActiveX、Java 脚本 语 
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言 ， 还 可 将 网 络 图 像 (扩展 名 为 .jpg、.gif 和 .png) 艇 入 到 帮助 文件 中 。 
制作 HTML 帮助 文件 需要 使 用 HIML Help Workshop 软件 ， 可 到 微软 的 官方 网 站 
http://msdn.microsoft.com/en-us/library/ms669985.aspx 下 载 该 软件 。 


30.1.2 CHM 帮助 文件 的 构成 


HTML Help Workshop 的 作用 是 将 各 HTML 文件 汇总 在 一 起 ， 再 编 详 成 独立 的 CHM 
帮助 文件 。 一 个 最 简单 的 CHM 文件 应 该 包含 以 下 几 部 分 : 

1. 帮助 项 目 文件 

HTML 帮助 项 目 文件 是 一 个 纯 文 本 文件 ， 扩 展 名 为 .hhp。 在 项 目 文件 中 ， 将 帮助 系统 
中 所 需要 的 所 有 元 素 组 织 在 一 起 。 例 如 ， 帮 助 主题 文件 、 图 像 文件 、 索 引文 件 等 。 

将 各 种 元 素 添加 到 项 目 文件 后 ， 即 可 通过 HTML Help Workshop 将 这 些 内 容 编译 成 一 
个 单独 的 、 扩 展 名 为 .chm 的 帮助 文件 。 

2. 帮助 主题 文件 


帮助 主题 文件 是 使 用 HTML 创建 的 网 页 文件 ， 其 扩展 名 为 .htm 或 .html。 
在 使 用 HTML Help Workshop 之 前 ,应 使 用 网 页 制作 软件 (如 Dreamweaver、FrontPage) 
将 HTML 文件 准备 好 。 如 果 不 会 制作 网 页 ， 也 可 以 通过 Word 编辑 每 个 帮助 主题 的 内 容 ， 
再 将 其 保存 为 HTML 格式 即 可 。 在 创建 帮助 主题 文件 时 ， 可 在 每 个 网 页 中 创建 超 链接 ， 在 
各 主题 文件 之 间 进 行 跳 转 。 
全 注意 : 因为 Word 中 插入 的 图 片 保存 为 网 页 时 ， 使 用 的 CSS 在 HTML Help Workshop 中 
不 能 被 识别 ， 所 以 生成 的 CHM 帮助 系统 将 不 能 显示 图 像 。 


3. 目录 文件 


帮助 文件 的 目录 类 似 于 Windows 资源 管理 器 的 左 半 部 分 。 目 录 文 件 包含 帮助 中 的 所 有 
项 目 ， 而 每 个 目录 又 包含 条 目 名 称 、 跳 转 到 帮助 主题 的 捷径 等 内 容 。 当 用 户 在 帮助 文件 的 
目录 页 中 单 击 一 个 条 目标 题 时 ， 与 该 条 目的 标题 相 链接 的 HTML 文件 将 被 打开 。 


4. 关键 字 和 索引 文件 


关键 字 是 用 户 可 能 用 到 的 ， 并 与 一 个 或 多 个 帮助 主题 文件 相关 联 的 词 。 索 引文 件 包含 
若干 关键 字 。 当 用 户 在 编 详 过 的 帮助 文件 里 单 击 索 引 页 ， 并 选择 一 个 关键 字 时 ， 帮 助 文件 
将 显示 与 这 个 关键 字 有 关 的 帮助 主题 列表 。 


30.2 ”准备 帮助 主题 文件 


制作 帮助 系统 最 主要 的 工作 就 是 准备 帮助 主题 文件 。 然 后 将 这 些 主题 文件 通过 HIML 
“585 。 
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Help Workshop 软件 组 织 在 一 起 ， 经 过 编译 得 到 CHM 帮助 文件 。 

下 面 演示 准备 帮助 主题 文件 的 步骤 : 

(1) 创建 一 个 文件 夹 HTML， 将 所 有 的 帮助 主题 文件 放 在 该 文件 夹 中 ， 方 便 统 一 管理 。 
全 提示 : 文件 天 名 称 可 由 用 户 随 意 设置 。 


(2) 在 Word 或 其 他 网 页 制作 软件 中 制作 好 一 个 帮助 主题 文件 ， 如 图 30-2 所 示 为 在 
Dreamweaver 中 创建 的 一 个 帮助 主题 文件 ， 在 该 文件 中 包含 文字 和 图 片 。 


jt 码 | 溉 拆 分 | 国 设计 ee 
Ie TP es 


进 销 存 管理 系统 


He 
> [Ve a hom vlossx ov Ex/i 


图 30-2 ”帮助 主题 文件 


re re | 


(3) 在 如 图 30-3 所 示 的 HTML 文件 中 ， 还 可 根据 需要 创建 到 其 他 HTML 页 面 的 超 链 
接 。 在 编译 为 CHM 帮助 文件 中 ， 单 击 这 些 超 链接 也 可 跳 转 到 指定 的 页 面 。 


进 旨 恒 志 包括 两 个 功 能， 分 别 为: 
引 1 至 入 进 洗 妆 据 ， 可 录入 进 澳 数 据 。 在 录入 进货 数据 时 ， 还 可 根据 需要 增加 商品 信息 。 


进货 据 玫 :浏览 指定 期 间 的 进货 情况 。 
2 销售 
习 精 售 模块 包括 三 个 功能 ， 分 别 为， 


且 
四 
日 和 提 ， 共 所 多 入 铺 生 数量， 如果 久 和 | 
导 浴 格 价格 有 差别 ， 可 答 入 到 “调整 价 ”中 ， :| 


】 博信 所 到 ， 可 按 设 轩 的 日 基期 间 统 计 梢 售 数据 。 :| 
EE Td i 
司 : : 
呵 3. 库存 


因 库 和 模块 包 括 三 个 功能 ， 分 别 为 : 
引 1 在 训 坦 测 ， 撤 代 号 直 询 商 品 的 购 进 、 铂 告 、 库 情况 。 
[Gay Gdiv seetiont) Gy Gy Caney YQ ho vo ov ry ul 


图 30-3 HTML 文件 


(4) 根据 应 用 程序 的 功能 ， 分 别 创建 多 个 不 同 的 HTML 网 页 ， 并 将 这 些 网 页 以 方便 识 
别 的 名 称 保存 到 HTML 文件 夹 中 。 
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30.3 制作 HTML 帮助 系统 


准备 好 所 有 的 帮助 主题 文件 后 ， 就 可 以 使 用 HIML Help Workshop 软件 将 这 些 内 容 组 
织 到 一 起 。 本 节 将 介绍 HTML Help Workshop 软件 的 简单 使 用 方法 。 


30.3.1 创建 项 目 文件 


准备 好 帮助 文件 的 各 主题 文件 后 ， 就 可 以 通过 HTML Help Workshop 将 其 编译 为 一 个 
独立 的 CHM 文件 了 。 首 先 需要 创建 一 个 帮助 项 目 文件 ， 具 体 步 骤 如 下 : 

(1) 启动 HTML Help Workshop， 如 图 30-4 所 示 。 

(2) 单 击 菜单 FileINew 命令 ， 打 开 New 对 话 框 ， 如 图 30-5 所 示 。 


ET HTEL Help Workshop 


ile Yiew Iest Tools Belp 


30-4 【HTML Help Workshop】 窗 口 图 30-5 【New】 对 话 框 
(3) 在 图 30-5 所 示 对 话 框 中 选择 Project， 用 来 新 建 一 个 项 目 。 单 击 OK 按钮 ， 进 入 新 
建 项 目 向 导 ， 如 图 30-6 所 示 。 


(4) 在 向 导 的 第 一 个 对 话 框 中 不 选中 Convert WinHelp project 复 选 枉 ， 直 接 单 击 【 下 


一 步 】 按 钮 进入 如 图 30-7 所 示 对 话 框 ,输入 放置 项 目 文件 的 目录 及 项 目 文件 名 称 ( 也 可 单 
击 Browse 按钮 查找 保存 项 目的 文件 ) 。 


Welcome tothe new priect wizard This wizard Specily the nane of your project fle, and where 
mil halp youlo cieale a new HTML Help proiect youwould lke tio be sresed 


和 30 请 丰 管理 素 统 hd 


Browse... 


sw [FE] a 


图 30-6 新建 项 目 向 导 图 30-7 设置 项 目 名 称 


(5) 单 击 【下 一 步 】 按 钮 打开 如 图 30-8 所 示 对 话 框 。 


(6) 因为 已 经 事先 建 好 了 htm 文件 ,因此 在 图 30-8 所 示 对 话 框 中 选中 HIML file 复 选 
框 ， 单 击 【 下 一 步 】 按 钮 将 打开 如 图 30-9 所 示 的 对 话 框 。 
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Nev Project 一 Eristing Files Nev Project 一 HTML Files 


lfyou have aeadh cealed fs hat vou want 
to inchude in your propct. soecity them below 


厂 HTMLHap table of gaients {hhc} 
TT HTML Help indes thh 


Err 


mw | swlr- sw mw | 


图 30-8 设置 存在 的 文件 图 30-9 选择 HTML 文件 


(7) 在 图 30-9 所 示 对 话 框 中 单 击 Add 按钮 ， 打 开 如 图 30-10 所 示 【 打 开 】 对 话 框 。 

(8) 选择 30.2 节 准 备 好 的 帮助 主题 文件 (可 一 次 选择 多 个 文件 ) ， 单 击 【 打 开 】 按 钮 ， 
选中 的 文件 将 添加 至 如 图 30-11 所 示 的 对 话 框 中 。 在 该 对 话 框 中 单 击 Remove 按钮 ， 可 删 
除 列表 中 选中 的 文件 。 


Nev Project 一 HTML Files 


由 hen 
HTML 悄 千 业 镇 报表 him 


wo | 
文件 名 m，。。「 训 次 Niw” 进 关 表 Mn”" 床 车] EE | 
E22 | 取消 《上 一 步 四 | 下 一 步 op >| 取消 
图 30-10 【打开 】 对 话 框 30-11 添加 文件 


(9) 在 图 30-11 所 示 对 话 框 中 单 击 【 下 一 步 】 按 钮 ， 显 示 如 图 30-12 所 示 对 话 框 ， 单 
击 【 完 成 】 按 钮 ， 新 的 项 目 创建 完成 ， 然 后 进入 如 图 30-13 所 示 的 主 界 面 。 


£7 TEL Holp Workshop 


Nev Project 一 Finish 


图 30-12 【完成 】 对 话 框 图 30-13 创建 的 项 目 
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在 主 界面 的 左 侧 有 3 个 选项 卡 , 分 别 是 Project (项 目 ) 、Contents (目录 ) 和 Index (索引 ) 。 
在 Project 选项 卡 的 左 侧 有 7 个 按钮 ， 可 用 来 进行 项 目 选项 设置 、 添 加 /删除 主题 文件 、 
保存 项 目 、 编 详 项 目 等 操作 。 


30.3.2 ”创建 目录 文件 


对 于 帮助 主题 很 多 的 帮助 文件 ， 编 辑 目录 文件 是 非常 关键 的 工作 。 目 录 文 件 应 该 包含 
一 个 CHM 文件 所 有 的 (目录 〉 主题 ， 而 每 个 目录 又 包含 条 目标 题 〈 名 称 ) 和 该 条 目的 主 
题 文件 ， 要 避免 条 目标 题 与 对 应 的 主题 不 一 致 的 情况 出 现 。 创 建 目标 的 步骤 如 下 : 

(1) 在 图 30-13 所 示 窗 口中 ， 单 击 Contents 选项 卡 ， 将 打开 如 图 30-14 所 示 的 对 话 框 ， 
提示 项 目 还 没有 关联 到 目录 文件 (.hhc) 。 


oo onto canal 了 
em conlenis 


Mh th proleck, Yo Gen ther seaea 


EE 
rt 


Em | csr | 


图 30-14 ”创建 新 的 目录 文件 


(2) 在 对 话 框 中 选择 Create a new contents file 单 选 按钮 ， 并 单 击 OK 按钮 后 ， 打 开 如 
图 30-15 所 示 的 【另存 为 】 对 话 框 。 

(3) 为 新 目录 文件 设置 名 称 和 存放 路 径 ， 并 单 击 【 保 存 】 按 钮 将 目录 文件 保存 。 接 着 ， 
将 进入 目录 编辑 窗口 ， 目 录 编 辑 窗口 的 左 侧 有 11 个 按钮 。 如 图 30-16 所 示 。 


图 30-15 保存 目录 文件 图 30-16 创建 目录 


(4) 单 击 左 侧 的 Insert a page (插入 页 面 ) 按钮 (类 似 资源 管理 器 中 的 文件 ) ， 打 开 如 
图 30-17 所 示 的 对 话 框 ， 向 项 目 中 增加 一 个 页 。 

(5) 在 Entry title 文本 框 中 输入 目录 列表 中 显示 的 内 容 〈 如 此 处 的 “系统 主 界面 ”) ， 
再 单 击 【Addj】 按钮 ， 打 开 如 图 30-18 所 示 对 话 框 。 

(6) 在 对 话 框 的 HIML titles 列表 框 中 选择 要 链接 到 该 目录 项 的 HIML 文件 。 也 可 单 
击 右 下 方 的 Browse 按钮 查找 未 在 列表 框 中 出 现 的 HIML 文件 。 
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Table of Contents Entry 
Gonera | aeaeoal 


Enty er 
[E3373 


EE EE Berove 


los/URLs and theit information typae: 


MamEREhm owe 


[eel ssl 
图 30-17 输入 目录 标题 图 30-18 选择 主题 文件 


(7) 设置 好 以 后 单 击 OK 按钮 返回 上 一 个 对 话 框 ， 可 看 到 目录 项 与 主题 文件 已 经 创建 
了 关联 ， 如 图 30-19 所 示 。 


(8) 单 击 【确定 】 按 钮 ， 完 成 一 个 目录 项 的 制作 。 
(9) 单 击 左 侧 的 Insert a heading (插入 标题 ) 按 钮 (类 似 资 源 管理 器 中 的 文件 夹 )， 


可 采用 相似 的 方法 创建 一 个 标题 (标题 可 不 设置 对 应 的 HTML 网 页 ) 。 使 用 标题 可 对 不 同 
帮助 主题 文件 进行 分 组 ， 在 标题 下 面包 括 目 录 项 。 
最 后 生成 的 目录 结构 如 图 30-20 所 示 。 
Guara | aavenaral F 
Enty te: Available information typoe: 
| 系统 主 界面 
人 AddEdR 
me | me | 


图 30-19 目录 与 帮助 主题 的 链接 图 30-20 帮助 的 目录 


外 技巧 : 标题 可 以 分 为 多 级 ， 要 按照 制作 的 内 容 统一 考虑 。 如 果 觉 得 不 满意 ， 可 以 用 左 侧 


的 箭头 进行 调整 ， 也 可 以 选 定 该 条 目 ， 单 击 筷 标 右键 ， 不 但 可 以 调整 ， 还 可 以 插 
入 标题 、 主 题 或 目录 文件 。 


30.3.3 创建 索引 文件 


索引 文件 Chhk) 也 是 一 个 HTML 文件 ， 它 包含 若干 个 关键 词 ， 当 用 户 打开 CHM 文 
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件 后 ， 单 击 索引 标签 并 输入 一 个 关键 词 时 ，CHM 文件 将 显示 与 这 个 关键 词 有 关 的 主题 列 
表 ， 让 用 户 可 以 非常 方便 地 找到 相关 主题 。 创 建 索引 文件 的 步骤 如 下 : 

(1) 在 主 界面 中 单 击 mdex 选项 卡 ， 系 统 将 弹出 如 图 30-21 所 示 的 对 话 框 ， 提 示 还 没 
有 关联 索引 文件 (.hhk) 。 

(2) 选择 Create a new contents file 单 选 按钮 ， 并 单 击 OK 按钮 打开 如 图 30-22 所 示 的 
对 话 框 ， 输 入 索引 文件 名 称 ， 单 击 【 保 存 】 按 钮 创建 一 个 空白 索引 文件 。 


Yau have not yet associated an ndex[hhkJfle wih Ihis 
project You can eiter creake 3 new index fip or specily an 
existing one 

网 ET 


Open an gvising index fle 


文件 名 he S| ES 
Cancal RD: [ra milssea 可 取消 


图 30-21 新建 索引 图 30-22 ”保存 索引 文件 
(3) 接着 出 现 索引 编辑 窗口 ， 索 引 编辑 窗口 的 左 侧 有 11 个 按钮 ， 如 图 30-23 所 示 。 
(4) 单 击 左 侧 的 Insert a keyWord 按钮 ， 打 开 Index Entry 对 话 框 ， 如 图 30-24 所 示 。 
在 General 选项 卡 的 KeyWord 输入 框 中 输入 关键 词 “ 主 界面 ”。 


图 30-23 ”创建 索引 图 30-24 ”输入 关键 词 


(5) 单 击 下 方 的 Add 按钮， 打开 如 图 30-25 所 示 对 话 框 ， 设 置 与 该 关键 词 相 关联 的 主 
题 文 件 。 然 后 单 击 OK 按钮 返回 上 一 个 对 话 框 ， 再 单 击 【 确 定 】 按 钮 完成 一 个 关键 字 的 设 
置 。 

(6) 用 同样 的 方法 可 设置 其 他 相关 的 关键 字 和 主题 文件 相 链 接 ， 得 到 如 图 30-26 所 示 
的 索引 列表 。 
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Project fle: 


EECEOEETT A 


Fle or UAL: 


图 30-25 设置 索引 的 链接 文件 图 30-26 索引 列表 


30.3.4 设置 帮助 文件 的 选项 


帮助 文件 的 选项 包括 标题 、 起 始 页 面 等 多 项 内 容 。 标 题 是 在 帮助 窗口 标题 栏 中 显示 的 
内 容 ， 起 始 页 面 是 打开 帮助 文件 时 首先 显示 的 页 面 。 设 置 这 些 选项 的 步骤 如 下 

(1) 单 击 Project 选项 卡 。 

(2) 单 击 左 侧 的 Change project options 按钮 ， 打 开 如 图 30-27 所 示 的 对 话 框 。 

(3) 在 Title 文本 框 中 输入 标题 ， 在 Default file 列表 框 中 选择 起 始 页 (也 可 手工 输入 ， 
使 用 相对 路 径 ) ， 如 图 30-28 所 示 。 


emeraa | piles | Copier | Waren Pile 
iu 


emera |piles | cwoile | Nores il 
Jide: 
Defaut fie: 


管理 系统 
Defaut fle: 
Delaul window 


Tm 
Defaut window 并 贡 报表 、 
Lanpuaoe 


[x 国 he 
Eont: 
| 


30-27 选项 


30-28 选择 起 始 页 
(4) 单 击 Compiler 选项 卡 ， 在 下 方 选中 Compile full-text search information 复 选 框 , 使 
编译 4 


成 的 帮助 文件 支持 全 文 搜索 〈 即 可 搜索 帮助 主题 文件 中 包含 的 任意 字符 ) ， 如 


和 
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图 30-29 所 示 。 
(5) 单 击 【 确 定 】 按 钮 ， 完 成 选项 参数 的 设置 ， 回 到 主 窗口 中 ， 即 可 看 到 设置 的 参数 
显示 在 OPTIONS 下 方 ， 如 图 30-30 所 示 。 


Sener | Pikes Corpiler |meeee i1e| 
Whie omaing dpply 
ass Eogess 


Carosbmw [ises | 


le eee 


Gate obinow TOC eheck this raven op TO 


图 30-29 选中 全 文 搜索 图 30-30 ”设置 的 参数 


30.3.5 ”编译 生成 帮助 文件 


将 目录 和 索引 都 设置 完成 后 ， 帮 助 文件 的 大 部 分 工作 就 都 做 好 了 ， 接 着 对 其 进行 编 详 
就 可 生成 帮助 文件 了 。 编 详 操作 及 相关 设置 步骤 如 下 : 

(1) 在 主 界面 中 选择 Project 选项 卡 

(2) 单 击 左 侧 的 Save project file and compile 按钮 ， 将 项 目 文件 全 部 保存 ， 并 编译 为 
CHM 文件 ,编译 过 程 中 , 将 在 主 界面 右 侧 的 窗口 中 显示 编译 的 进度 及 各 项 提示 , 如 图 30-31 
所 示 。 


E22 HTN. Heln Workshon — [Log1]l 


Merosoft HTML Help Compiler 4.74.8702 


Compiling c:Nexcc12007 从 入 门 到 精通 \ 实 讽 \ 第 30 章 
各 | | cemeied re- 刘 销 亩 管理 下 \ 进 销 存 管理 系统 . chm 

局 | | bdau iopczHTML\ 统 主办 而 in 

而 | | papla compie 


Compile tine: 0 minutes, 3 seconde 
11 Topics 

29 Local linke 

0 Internet linke 

1 Graphics 


Created e:Vexcel2007 从 入 门 到 精通 \ 实 例 \ 千 30 章 \ 进 
销 存 管理 系统 . chn。245, 018 bytes 
Compression decreased file by 57,639 bytes. 


图 30-31 编译 结果 
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30.3.6 ”打开 帮助 文件 


编译 生成 的 CHM 文件 可 在 Windows 环境 下 直接 打开 使 用 ， 也 可 通过 链接 在 应 用 程序 
中 使 用 。 

下 面 先 在 HTML Help Workshop 中 查看 帮助 文件 是 否 达到 需要 的 效果 。 

(1) 单 击 菜单 View|Compiled file 命令 ， 打 开 如 图 30-32 所 示 对 话 框 ， 单 击 其 中 的 
Browse 按钮 ， 找 到 需要 查看 的 CHM 文件 。 


图 30-32 ”查看 编译 后 的 文件 
(2) 单 击 View 按钮 ， 即 可 看 到 帮助 文件 ， 如 图 30-33 所 示 。 


及 进 销 存 管 理 系统 


时 立 饥 蚂 


有 加 | 案 310D | 者 @ | 系统 主 界面 


打开 本 系统 ， 将 显示 如 下 图 所 示 的 主 界面 。 


30-33 ”帮助 文件 主 界面 


(3) 单 击 展开 左 侧 的 目录 ， 可 分 别 单 击 对 应 的 主题 查看 。 也 可 在 【索引 】 选 项 卡 中 按 
关键 字 查 看 帮助 主题 。 还 可 在 【搜索 】 选 项 卡 中 可 对 帮助 文件 进行 全 文 检 索 ， 其 使 用 方法 
这 里 不 再 详细 介绍 。 
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30.4 ”给 应 用 程序 挂 接 帮助 


通过 30.3.6 节 的 方法 制作 好 一 个 CHM 帮助 文件 后 ， 还 需要 将 该 帮助 文件 与 应 用 程序 
进行 绑 定 ， 才 能 方便 用 户 使 用 。 

在 Windows 系统 中 , 在 大 多 数 应 用 程序 中 按 Fl 键 将 显示 帮助 。 在 VBA 应 用 程序 中 按 
F1 键 时 , 将 出 现 Excel 的 帮助 系统 。 要 显示 自己 制作 的 帮助 系统 ,还 需要 编写 一 定 的 代码 。 

(1) 将 CHM 帮助 文件 复制 到 与 Excel VBA 应 用 程序 相同 的 一 个 文件 夹 下 ， 以 方便 管 
理 和 程序 的 发 布 。 

(2) 在 VBA 应 用 程序 的 Workbook 对 象 的 Open 事件 中 编写 以 下 代码 : 

Private Sub Workbook Open() 

Application.OnKey "{F1}", "CustHelp" 

End sub 

其 中 , Application 对 象 的 OnKey 方法 设置 当 按 特定 键 或 特定 的 组 合 刍 时 运行 指定 的 过 
程 。 这 里 指定 当 按 Fl 键 时 ， 调 用 CustHelp 过 程 。 

(3) 向 工程 中 插入 一 个 模块 ， 或 在 原 有 模块 中 编写 CustHelp 过 程 的 代码 如 下 : 

Sub CustHelp() 


Application.Help (ThisWorkbook.Path & "\ 进 销 存 管理 系统 .chm") 
End Sub 


其 中 使 用 Application 对 象 的 Help 方法 来 显示 一 个 帮助 主题 ， 帮 助 文件 作为 方法 的 
参数 。 
通过 以 上 步骤 的 设置 ， 在 应 用 程序 中 按 Fl 键 时 就 可 打开 上 节制 作 的 帮助 文件 。 

还 可 以 在 应 用 程序 中 设置 按钮 、 快 捷 键 、 选 项 卡 等 功能 键 来 调用 CustHelp 过 程 ， 从 而 
为 应 用 程序 提供 多 方面 的 帮助 。 
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7 部 分 综合 /VY 用 产 访 到 ?1 


本 书 前 面 用 了 30 章 的 篇 幅 ， 详 细 介绍 了 Excel VBA 开发 时 需要 用 到 的 相关 知识 。 本 
部 分 介绍 在 Excel 2007 中 开发 进 销 存 管理 系统 的 过 程 ， 以 进一步 巩固 前 面 所 学 的 知识 。 
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进 销 存 管理 系统 广泛 应 用 于 商场 、 超 市 、 购 物 中心 等 零售 行业 ， 可 对 商品 的 购 入 、 销 
售 、 库 存 进行 有 效 的 跟踪 管理 。 本 章 将 介绍 用 Excel 制作 小 型 的 进 销 存 管理 系统 ， 可 用 于 
小 型 企业 对 商品 进行 管理 。 


31.1 系统 描述 


本 例 制作 一 个 简单 的 进 销 存 管理 系统 ， 主 要 完成 商品 的 采购 、 销 售 、 库 存 管 理 ， 还 需 
按 销 售 人 员 统 计 销 售 业 绩 。 
进 销 存 管理 系统 中 将 设计 如 图 31-1 所 示 的 模块 。 


录入 进货 数据 


进货 报表 


录入 销售 数据 


进 销售 业绩 
销 
基 
国 
统 存货 统计 
库存 明细 
商品 信息 
数据 
销售 人 员 
图 31-1 系统 功能 模块 
1. 进货 
进货 模块 包括 下 面 两 个 功能 。 


口 录入 进货 数据 : 可 录入 进货 数据 。 在 录入 进货 数据 时 ， 还 可 根据 需要 增加 商品 信息 。 
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口 进货 报表 : 浏览 指定 期 间 的 进货 情况 。 
2. 销售 
销售 模块 包括 下 面 三 个 功能 。 
口 录入 销售 数据 : 录入 商品 货号 后 ， 系 统 自动 从 商品 信息 中 提取 相关 数据 ， 然 后 输 
入 销售 数量 ， 如 果 销 售 价格 与 设 定 的 零售 价格 有 差别 ， 可 输入 到 “调整 价 ” 中 。 


口 销售 报表 : 可 按 设置 的 日 期 期 间 统计 销售 数据 。 

口 销售 业绩 : 按 指定 日 期 期 间 统计 销售 员 的 业绩 。 

3. 库存 

库存 模块 包括 下 面 三 个 功能 。 

口 存货 查询 : 按 货号 查询 商品 的 购 进 、 销 售 、 库 存 情 况 。 

口 存货 统计 : 统计 所 有 库存 商品 的 信息 。 

口 库存 明细 : 按 日 期 期 间 统 计 指定 货号 的 进 、 销 、 存 明细 数据 。 


4. 数据 


数据 模块 包括 下 面 两 个 功能 。 
口 商品 信息 : 录入 或 修改 商品 的 信息 (例如 货号 、 名 称 、 型 号 、 各 种 价格 等 )。 
口 销售 人 员 : 对 销售 人 员 进 行 管理 。 


31.2 表格 设计 


本 系统 使 用 Excel 工作 表 保 存 数据 ， 本 节 将 列 出 一 些 简单 工作 表 的 名 称 及 表格 结构 ， 
对 于 复杂 的 表格 ， 将 在 介绍 各 模块 具体 功能 时 给 出 。 表 格 中 的 数据 将 由 VBA 程序 自动 填充 。 


31.2.1 主 界面 


工作 表 “ 主 界面 ”不 做 具体 的 操作 ， 只 是 显示 一 个 文字 提示 。 将 工作 表 的 名 称 修改 为 
“ 主 界面 ”， 向 工作 表 中 插入 艺术 字 “ 进 销 存 管理 系统 ”， 如 图 31-2 所 示 。 


31-2 主 界 面 


“3 
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为 了 防止 用 户 单 击 选择 工作 表 中 的 单元 格 和 艺术 字 ， 在 工作 表 的 双击 事件 
(BeforeDoubleClick) 和 右 击 事件 (BeforeRightClick) 中 编写 代码 ， 禁 止 响应 用 户 的 这 两 个 
鼠标 操作 ， 具 体 代码 如 下 : 

Private Sub Worksheet BeforeDoubleClick (ByVal Target As Range, Cancel As 

Boolean) 

Cancel = True 

End Sub 

Private Sub Worksheet BeforeRightClick(ByVal Target As Range, Cancel As 

Boolean) 

Cancel = True 

End Sub 


接着 在 【审阅 】 选 项 卡 的 【更 改 】 组 中 ， 单 击 【 保 护 工作 表 】 按 钮 ， 在 弹出 的 对 话 框 
中 输入 保护 密码 。 将 工作 表 保 护 以 后 ， 用 户 将 不 能 选择 工作 表 中 的 单元 格 。 


31.2.2 ”商品 信息 


工作 表 “ 商 品 信息 ”用 来 保存 系统 中 所 有 商品 的 信息 ， 用 户 可 以 在 该 工作 表 中 录入 商 
品 信息 ， 也 可 在 输入 商品 入 库 信 息 时 输入 商品 信息 。 该 工作 表 如 图 31-3 所 示 。 


本 进 朱 存 管理 xlsm Er 
“FN B C D E 下 下 到 
1 | 货号 李 售 | 备注 
1111 | 长虹 29 寸 四 川 1800| 1850] 1900| 
3 /1-113 | 长 虹 袍 调 |1.5P 四 川 1500| 1500[1800 
4 |1-112 ”| 长 虹 34 寸 四 川 2400| 2600| 2800| 
E1121 长 虹 冰 箱 |190 升 四 川 1500| 1600[1700 
6 ,2-111 ”海尔 冰箱 |180 升 ”| 青岛 LT 1700 
了 2-100 | 海尔 空调 |1.5P ”| 青岛 lisso liss0 [si00 
8 


31-3 商品 信息 


31.2.3 ” 销 货 


工作 表 “ 销 货 ” 用 于 保存 销售 商品 的 所 有 信息 ， 用 户 在 “ 销 货 单 ”中 录入 的 数据 将 
保存 在 该 工作 表 中 ， 如 图 31-4 所 示 。 该 表 中 的 数据 由 程序 自动 填充 ， 用 户 不 能 手工 输入 
数据 。 


国 进 特 F 理 xsm Ci 
A rT WE 了 下 下 rm m we rm 

1 货号 | 名 称 | 型 号 | 数量 | 单价 | 全 阁 | 调整 价 | 各 注 | 购 资 人 | 销售 

2 | 2008-4-18 15:54|i-111 | 区 虹 ”|z3 寸 | 1900| 1900| 过 四 

3 | 2008-4-18 15:54|2-100 | 游 尔 到 调 了 .到 四 BT 4200 过 加 

4 


31-4 销 货 
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31.2.4 供 货 


工作 表 “ 供 货 ” 保 存 采购 的 商品 信息 ， 用 户 在 “ 供 货 单 ” 中 录入 的 数据 将 保存 在 该 工 
作 表 中 ， 如 图 31-5 所 示 。 该 表 中 的 数据 由 程序 自动 填充 ， 用 户 不 能 手工 输入 数据 。 


国 进 铺 存 生理 xsm 有 ms Ne me 0 Ex 
| 货号 | 和 名称 号 | 进 价 | 批 价 | 零售 | 数量 | 金 客 供应 商 国 
2008-4-17 15:51]1-112 | 长虹 下 川 | 2400| 2500| 2800| 本 12000| 发 不 公司 目 
| 发 丰 公 司 


2008-4-17 15:51|1-113 | 长 虹 军 调 [1.5P | 1500| 1600|1800 | 7500| 
2008-4-17 15:51|2-111 海尔 冰箱 |130 升 | 青 1400| 1500| 1700| 15|21000| 长 丰 公 司 
2008-4-17 15:51|1-121 | 长 虹 冰 宵 |190 升 | | 1500| 1600l1700 10| 15000| 发 在 公司 
908-4-17 15:51|2-100 霉 尔 宁 调 [1. 5P | 青岛 [1850 [1950 |z100 19|18500| 长 丰 公司 
2008-4-18 15:54|1-111 长 虹 29 寸 “四川 | 1800| 1850| 1900| 10|18000| 长 丰 公 司 


图 31-5 供 货 


31.2.5 ”存货 统计 

工作 表 “ 存 货 统计 ”保存 所 有 存货 商品 的 信息 。 该 表 的 数据 将 跟随 进货 、 销 售 的 情况 
不 断 变化 ， 每 次 查看 前 都 需要 重新 生成 访 表 ， 生 成 该 表 的 VBA 代码 在 后 面 给 出 。 这 里 只 
给 出 其 格式 ， 如 图 31-6 所 示 。 


31-6 ”存货 统计 


31.2.6 ”销售 人 员 


工作 表 “ 销 售 人 员 ” 管 理 公司 所 有 销售 人 员 ， 用 户 可 在 该 工作 表 中 添加 、 编 辑 销售 人 
员 。 该 表 的 结构 如 图 31-7 所 示 。 


国 尖 的 9 这 时 xm 六 
姓名 性 别 年 苍 电话 住址 本 

| 张 = 站 

[过 四 

王 王 


31-7 销售 人 员 


在 录入 销售 数据 时 ， 将 调用 销售 人 员 名 称 。 因 此 ， 需 要 在 该 表 中 定义 一 个 名 称 ， 该 名 
称 包括 “销售 人 员 ” 工 作 表 中 的 姓名 列 的 内 容 。 在 【公式 】 选 项 卡 的 【定义 的 名 称 】 组 中 ， 
“601 。 
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单 击 【定义 名 称 】 按 钮 ， 打 开 如 图 31-8 所 示 的 【新 建 名 称 】 对 话 框 。 


ET | 
确定 “] [ 取 泊 


图 31-8 【新 建 名 称 】 对 话 框 
在 【名 称 】 文 本 框 中 输入 xsry， 在 【引用 位 置 】 文 本 框 中 输入 以 下 公式 : 
=OFFSET (销售 人 员 !SRAS1,1, 0, COUNTR (销售 人 员 !1$A:$A) -1,1) 
以 上 公式 根据 工作 表 中 的 数据 动态 定义 名 称 所 包含 的 数据 。 


名 提示 : 在 本 系统 最 后 完成 时 ， 应 将 各 工作 表 通 过 密码 保护 起 来 ， 密 码 设 为 wyg， 不 知道 
密码 的 普通 用 户 将 不 能 修改 数据 ( 不 建议 用 户 在 表格 中 修改 数据 ) 。 表 格 中 各 项 
数据 的 列 数 不 要 随意 调整 ， 因 为 在 VBA 代码 中 将 按 对 应 单元 格 进行 调用 。 


31.3 设计 功能 区 


本 系统 使 用 Excel 2007 进行 开发 ， 所 以 不 需 设 置 菜单 和 工具 栏 ， 调 用 各 模块 的 功能 都 
集中 到 功能 区 中 。 本 节 主 要 介绍 设计 功能 区 的 方法 。 


31.3.1 设计 功能 区 的 XML 


按 31.2.6 节 的 格式 制作 各 工作 表 ， 将 工作 表 保 存 为 “ 进 销 存 管理 .xlsm”。 接 着 按 以 下 
步骤 设置 功能 区 的 XML 。 

(1) 在 当前 文件 夹 中 创建 一 个 名 为 customUI 的 文件 夹 。 

(2) 打开 【记事 本 】 程 序 ， 输 入 以 下 内 容 : 


<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
<commands> 
<command idMso="FileNew" enabled="false" /> 
<command idMso="FileSaveAs" enabled="false" /> 
<command idMso="FileSaveAsMenu" enabled = "false" /> 
<command idMso="FileOpen" enabled="false" /> 
<command idMso="FilePrintQuick" enabled="false" /> 
<command idMso="FileClose" onAction="MyClose" /> 
<command idMso="MergeCenterMenu" enabled = "false" /> 
</commands> 
<ribbon> 
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<tabs> 
<tab idMso="TabHome" visible="false"/> 
<tab idMso="TabInsert" visible="false"/> 
<tab idMso="TabPageLayoutExcel" visible="false"/> 
<tab idMso="TabFormulas" visible="false"/> 
<tab idMso="TabData" visible="false"/> 
<tab idMso="TabReview" visible="false"/> 
<tab idMso="TabView" visible="false"/> 
<tab idMso="TabDeveloper" visible="false"/> 
<tab idMso="TabAddIns" visible="false"/> 
<tab id="tabJXC" label=" 进 销 存 "” > 
<group id="gpIN" label=" 进 货 "> 
<button id="btIN INPUT" imageMso="ReviewNextChange" 
size="large" label=" 录 入 " onAction="btIN INPUT onAction"/> 
<button id="btIN REPROT" imageMso="RecordsMoreRecordsMenu" 
size="large" label=" 报 表 " onAction="btIN REPORT_ 
onAction"/> 
</group> 
<group id="gpoUT" label=" 销 售 "> 
<button id="btOUT INPUT" imageMso="ReviewPreviousChange" 
size="large" label=" 录 入 " onAction="btOUT _INPUT 
onAction"/> 
<button id="btOUT REPROT" imageMso="RecordsMoreRecordsMenu" 
size="large" label=" 报 表 " onAction="btOUT REPORT 
onAction"/> 
<button id="btOUT RESULTS" imageMso="ControlLayoutstacked" 
size="large" label=" 销 售 业绩 " onAction="btOUT _RESULTS_ 
onAction"/> 
</group> 
<group id="gpSTOCK" label=" 库 存 "> 
<button id="btSTOCK FIND" imageMso="FileDocumentManagement- 
Information" 
size="large" label=" 存 货 查 询 " onAction="btsTOCK_FIND_ 
onAction"/> 
<button id="btSsTOCK SUM" imageMso="AccessFormDatasheet" 
size="large" label=" 存 货 统计 " onAction="btsTOCK_sUM_ 
onAction"/> 
<button id="btSTOCK DETAILS" imageMso="ControlLayoutTabular" 
size="large" label=" 库 存 明细 " onAction="btsTOCK _DETAILS_ 
onAction"/> 
</group> 
<group id="gpDATA" label=" 数 据 "> 
<button id="btDATA COMM" imageMso="SmartArtAddBullet" 
size="large" label=" 商 品 信息 " onAction="btDATA COMM_ 
onAction"/> 
<button id="btDATA SALES" imageMso="DistributionListUpdateMembers" 
size="large" label=" 销 售 人 员 " onAction="btDATA SALES_ 


onAction"/> 
</group> 
</tab> 
</tabs> 
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</ribbon> 
</customUI> 
以 上 XML 代码 首先 禁止 【Office 按钮 】 中 的 部 分 菜单 功能 ， 接 着 隐藏 功能 区 9 个 内 
置 选项 卡 ， 最 后 创建 一 个 名 为 “ 进 销 存 ” 的 选项 卡 。 


外 注意 : 因为 XML 要 区 分 大 小 写 ， 所 以 一 定 要 注意 字母 的 大 小 写 


(3) 执行 菜单 【文件 】| 【保存 】 命 令 ， 在 【另存 为 】 对 话 框 中 的 【保存 类 型 】 下 拉 列 
表 框 中 选择 “所 有 文件 ”， 在 【编码 】 下 拉 列 表 框 中 选择 UTF-8， 将 文件 保存 到 当前 文件 
夹 的 customUI 文件 夹 下 ， 名 称 为 customUIxml。 

(4) 将 工作 短文 件 “ 进 销 存 管理 .xlsm” 重 命名 为 “ 进 销 存 管理 .xlsm.zip”， 使 用 Excel 
工作 夭 变 为 一 个 压缩 文件 。 

(5) 双击 压缩 文件 ， 并 用 WinRar 打开 该 文件 ， 拖 动 当前 文件 夹 下 的 customUI 文件 夹 
至 打开 的 压缩 文件 窗口 ， 如 图 31-9 所 示 。 


图 31-9 将 XML 添加 到 压缩 文件 


(6) 将 图 31-9 所 示 对 话 框 中 的 _rels 文件 夹 拖 到 当前 文件 夹 中 。 

(7) 打开 _rels 文件 夹 中 的 .rels 文件 ， 在 最 后 一 个 Relationship 标记 与 Relationships 标 
记 之 间 添 加 以 下 内 容 ， 将 工作 短文 件 与 customUI 文件 夹 中 的 customUI.xml 文件 之 间 创 建 
关系 。 

<Relationship Id="customUIRelID" 

Type="http://schemas.microsoft .com/office/2006/relationships/ui/extensi 

bility" Target="customUI/customUI.xml" /> 

(8) 保存 并 关闭 .rels 文件 。 

(9) 删除 图 31-9 所 示 对 话 框 中 的 _rels 文件 来， 然后 拖 动 第 7 步 修 改 _rels 文件 夹 到 压 
缩 文件 窗口 中 。 

(10) 关闭 压缩 文件 窗口 ， 将 压缩 文件 “ 进 销 存 管理 .xlsm.zip” 本 
理 .xlsm”。 

(11) 在 Excel 2007 中 打开 “ 进 销 存 管理 .xlsm” 工 作 敌 ， 将 看 到 如 图 31-10 所 示 自 定 
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义 选 项 卡 。 
ES E 欢迎 使 用 : 进 竺 椰 营 理 系统 ep 
起 二 © 
验 国 | 公理 国 | 此 上 国 国 | 上 了 范 
录 报 录 报 销售 。 存 质 。 下 贫 库存 商 : 锯 告 
入 入 雪 “ 业 列 询 统计。 明生 信息 人 员 
| CI 


图 31-10” 自 定义 的 功能 区 


31.3.2 ”设计 功能 区 各 按钮 代码 


设计 制作 好 如 图 31-10 所 示 功 能 区 的 选项 卡 后 ， 还 需要 在 VBE 中 编写 VBA 代码 ， 以 
响应 各 按钮 的 单 击 事件 。 具 体 步 又 如 下 : 

(1) 按 组 合 键 Altr+F11 打开 VBE 环境 。 

(2) 执行 主 菜 单 【 插 入 】|【 模 块 】〗】 命 令 增 加 一 个 标准 模块 。 

(3) 在 【模块 1】 代 码 窗口 中 输入 以 下 过 程 代码 ， 定 义 一 个 全 局 变量 : 

Option Explicit 

Public Const AppName As String = " 进 销 存 管理 系统 " 

(4) 【进货 】 组 中 有 两 个 按钮 ， 用 来 操作 进货 录入 和 进货 报表 两 个 功能 ， 具 体 的 代码 
如 下 : 


Sub btIN_INPUT_onAction(Control As IRibbonControl) ' 进 货 录入 


Sheets (" 供 货 单 ") .select ' 选 择 " 供 货 单 "工作 表 
Range ("b5") .Select "选择 B5 单元 格 

End Sub 

Sub btIN REPORT onAction(Control As IRibbonControl)  ' 进 货 报表 
Sheets ("进货 报表 ") .select ' 选 择 "进货 报表 "工作 表 
Range ("C2") .Select ' 选 择 C2 单元 格 

End Sub 


(5) 【销售 】 组 中 有 3 个 按钮 ， 用 来 操作 销售 录入 、 销 售 报表 和 销售 业绩 三 个 功能 ， 
具体 的 代码 如 下 : 


Sub btOUT INPUT onAction(Control Rs IRibbonControl) ' 销 售 录入 
Sheets (" 销 货 单 ") .Select ' 选 择 " 销 货 单 " 工 作 表 
Range("g9") .Select ' 选 择 G9 单元 格 

End sub 

Sub btoUT REPORT onAction(Control Rs IRibbonControl) ”' 销 售 报表 
Sheets ("销售 报表 ") .Select ' 选 择 "销售 报表 "工作 表 
Range ("C2") .Select '! 选 择 c2 单元 格 

End sub 

Sub btOUT RESULTS onAction(Control Rs IRibbonControl)  ' 销 售 业绩 
Sheets ("销售 业绩 报表 ") .Select ' 选 择 "销售 业绩 报表 "工作 表 
Range ("B2") .Select ' 选 择 B2 单元 格 
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End Sub 


(6) 【库存 】 组 中 有 3 个 按钮 ， 用 来 操作 存货 查询 、 存 货 统计 和 库存 明细 三 个 功能 ， 
具体 的 代码 如 下 : 


Sub btSsTOCK FIND onAction (Control Rs IRibbonControl) ' 存 货 查询 
Sheets ("商品 查询 ") .Select ' 选 择 " 商 品 查 询 " 工 作 表 
Range("d3") .Select ' 选 择 D3 单元 格 

End sub 

Sub btsTOCK SsUM onAction(Control Rs IRibbonControl) "存货 统计 
Sheets (" 存 货 统计 ") . Select 

End Sub 

Sub btSTOCK DETAILS _onRction (Control Rs IRibbonControl) ' 库 存 明细 
Sheets (" 商 品 明细 账 ") .Select "选择 "商品 明细 账 " 工 作 表 
Range ("b2") .Select "选择 B2 单元 格 

End sub 


(7) 【数据 】 组 中 有 两 个 按钮 ， 用 来 操作 商品 信息 和 销售 人 员 两 个 功能 ， 具 体 的 代码 
如 下 : 
Sub btDATA COMM onAction(Control As IRibbonControl) ' 商 品 信息 
Sheets ("商品 信息 ") .Select 
Range ("A1") .End (xlDown) .Offset(1，0) .Select 
End Sub 
Sub btDATA_SALES_onAction(Control Rs IRibbonControl)  ' 销 售 人 员 
Sheets ("销售 人 员 ") .select 
Range ("Al1") .End (xlDown) .Offset(1，0) .Select 
End Sub 


31.4 进货 模块 


进货 模块 包括 两 个 功能 : 录入 进货 数据 和 生成 进货 报表 。 在 录入 进货 数据 的 同时 ， 还 
可 以 录入 商品 信息 。 


31.4.1 商品 供 货 录 


在 进货 时 ， 使 用 工作 表 “ 供 货 单 ”录入 进货 数据 ， 录 入 的 数据 保存 到 “ 供 货 ” 工 作 表 
中 。 该 工作 表 的 结构 如 图 31-11 所 示 。 
在 录入 数据 时 ， 用 户 只 需要 输入 货号 ，Excel 将 自动 参照 “商品 信息 ”工作 表 中 的 资 
料 ， 将 商品 名 称 等 信息 填充 到 表格 右 侧 各 列 中 。 若 录入 的 货号 在 “商品 信息 ”工作 表 中 不 
存在 ， 在 单元 格 B16 中 将 显示 出 来 ， 单 击 【 录 入 商品 信息 】 按 钮 可 录入 商品 信息 。 

下 面 介绍 商品 供 货 录入 表格 的 设计 及 编写 相应 的 代码 。 为 了 简化 代码 ， 在 表格 中 能 用 
Excel 公式 完成 的 功能 尽量 使 用 公式 进行 运算 。 
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时间 :008-5-17 18:34 


零售 | 数量 金额 


合计 
以 下 货号 元 资料 : 5 ;3 3333 


图 31-11 商品 供 货 录 入 


1. 设计 表格 


按 图 31-11 所 示 结 构 制 作 工作 表 。 

在 录入 采购 信息 时 ， 首 先 录 入 供 货 商 的 名 称 ， 系 统 自 动 生成 录入 时 间 。 然 后 逐 行 录入 
货号 ， 系 统 根据 货号 自动 从 “商品 信息 ”工作 表 中 查找 对 应 商品 的 信息 ， 并 显示 在 后 面 的 
单元 格 中 。 如 果 从 “商品 信息 ”工作 表 中 没有 查找 到 对 应 的 商品 信息 ， 表 格 下 方 将 显示 需 
要 录入 的 资料 的 货号 。 为 了 达到 对 应 的 功能 ， 需 在 工作 表 对 应 的 单元 格 设置 公式 。 

(1) 使 单元 格 13 显示 当前 时 间 ， 设 置 公式 如 下 : 

=NOW () 


(2) 在 C6~H6 单元 格 和 J6 单元 格 分 别 设置 以 下 公式 ， 查 表 显 示 商 品 信息 中 的 名 称 、 
型 号 、 产 地 、 进 价 、 批 价 、 零 售 和 金额 。 

=IEF(SB6="","n,VLOOKUP (SB6, 商 品 信息 !SR:SH,2,FRLSE) ) 

=IEF(SB6="","w,VLOOKUP($B6, 商 品 信息 !SRA:SH,3,FRALSE) ) 

=IF(SB6="","",VLOOKUP (SB6, 商 品 信息 !SR:SH,4,FRLSE) ) 

=IEF(SB6="","n,VLOOKUP (SB6, 商 品 信息 !SR:SH,5,FRLSE) ) 

=IF($B6="","",VLOOKUP ($B6, 商品 信 息 !1$A:$H,6,FALSE)) 

=IF ($B6="","" ,VLOOKUP ($B6, 商 品 信息 !1$A:$H,7,FALSE)) 

=IF(F6="","",F6*I6) 

VLOOKUP 函数 的 功能 是 ， 在 表格 或 数据 值 数组 的 首 列 查 找 指定 的 数值 ， 并 由 此 返回 
表格 或 数组 当前 行 中 其 他 列 的 值 。 其 语法 格式 为 : 


VLOOKUP (lookup value, table array,col index num,range lookup) 


其 中 ， 各 参数 的 含义 如 下 面 所 述 。 

口 lookup_value: 为 需要 在 表格 或 数组 第 一 列 中 查找 的 数值 。 可 以 为 数值 或 单元 格 
引用 。 

口 table_array: 为 两 列 或 多 列 数据 。 请 使 用 对 区 域 的 引用 或 区 域名 称 。table_array 第 
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一 列 中 的 值 是 由 lookup_value 搜索 的 值 。 这 些 值 可 以 是 文本 、 数 字 或 罗 辑 值 ， 且 
不 区 分 大 小 写 。table_array 第 一 列 中 的 值 必须 以 升序 排序 ， 否 则 VLOOKUP 可 能 
无 法 返回 正确 的 值 。 

口 col index num: 为 table array 中 待 返回 的 匹配 值 的 序列 号 。Col index num 为 1 
时 ， 返 回 table_array 第 一 列 中 的 数值 ，col_index_num 为 2?， 返 回 table_ array 第 二 
列 中 的 数值 ,以 此 类 推 . 如 果 col_index_num 小 于 1, 该 函数 将 返回 错误 值 #VALUE!， 
如 果 col index_num 大 于 table_array 的 列 数 ， 该 函数 将 返回 错误 值 #REF!。 

口 range_lookup: 为 逻辑 值 , 指定 希望 VLOOKUP 查找 精确 的 匹配 值 还 是 近似 匹配 值 。 
如 果 为 True 或 省 略 ， 则 返回 精确 匹配 值 或 近似 匹配 值 。 也 就 是 说 ， 如 果 找 不 到 精 
确 匹 配 值 ， 则 返回 小 于 lookup_value 的 最 大 数值 。 如 果 Range_lookup 为 False， 将 
返回 精确 匹配 的 值 , 如 果 找 不 到 , 则 返回 错误 值 #N/A。 在 此 情况 下 , table_array 第 
一 列 的 值 不 需要 排序 。 如 果 table_array 第 一 列 中 有 两 个 或 多 个 值 与 lookup_value 
匹配 ， 则 使 用 第 一 个 找到 的 值 。 如 果 找 不 到 精确 匹配 值 ， 则 返回 错误 值 #N/A。 

(3) 在 工作 表 的 7 一 13 行 分 别 复制 上 方 的 公式 。 

(4) 设置 JI4 单元 格 的 公式 如 下 ， 计 算 采 购 的 总 金额 : 

=SUM (J6:J13) 

(5) 在 B16 单元 格 设置 以 下 公式 ， 显 示 “ 商 品 信 息 ” 表 中 没有 信息 的 货号 。 


=" 以 下 货号 无 资料 : "&IF(ISERROR(C6),B6,"")&";"&IF(ISERROR(C7),B7,"")g"; 
"E&IF (ISERROR(C8) ,B8,"")&";"g&IF(ISERROR(C9) ,B9,"") &";"&IF (ISERROR (C10), 
B10,"")&"; "&IF(ISERROR(C11),B11,"")&";"&IF (ISERROR(C12) ,B12,"")&"; "E&IF 
(ISERROR(C13) ,B13,"")g"; " 


(6) 选中 需要 录入 数据 的 单元 格 ， 将 这 些 单元 格 的 锁定 取消 。 将 工作 表 保 护 后 ， 这 些 
单元 格 仍然 可 以 接收 用 户 的 输入 。 


2. 设计 代码 


当 用 户 输入 好 供 货 商品 信息 后 ， 单 击 【 保 存 】 按 钮 即 可 将 输入 的 数据 保存 到 “ 供 货 ” 
工作 表 中 ， 需 为 该 按钮 编写 宏 代 码 。 有 具体 步骤 如 下 : 
(1) 按 组 合 键 Altr+F11 切换 到 VBE 环境 中 。 
(2) 在 【工程 】 资 源 管理 器 窗口 中 双击 工作 表 “ 供 货 ” 打 开 代 码 窗口 ， 编 写 以 下 子 过 
程 保存 录入 的 数据 : 
Sub 保存 供 货 信息 () 
Dim x Rs Integer, i As Integer, j As IntegeL 
Call 手动 计算 
With sheets(" 供 货 ") 
.Unprotect Password:="wyg" 
Se "从 第 2 行 开始 
"判断 第 2 列 的 最 后 一 行 
Do While Not (IsEmpty(.Cells(x，2) .Value) ) 
人 "在 最 后 一 行 加 一 行 即 为 空 行 
Loop 
End With 
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With Sheets (" 供 货 单 ") 
For = 1L To 8 
IE Not IsEmpty(.Cells(5 + i, 2)) Then 


Sheets (" 供 货 ") .Cells(x，1) = -Cells(3，9) ' 时 间 
Sheets (" 供 货 ") .Cells(x, 1) .NumberFormatLocal = "yyyy-m-d 
h:mm;@" 


Sheets (" 供 货 ") .cells (x，11) = .Cells (3，3) “，' 供 应 商 
Por Hm oo 
Sheets (" 供 货 ") .cells(x, j) = .Cells(5 + i, j) 
Next j 
Ee 
End If 
Next i 
-Range("b6:b13") = "" ' 清 除 供 货 单 中 的 数据 
.Range ("i6:i13") = "" 
-Select 
End With 
Call 自动 计算 
With Sheets (" 供 货 ") .Range ("A1") .CurrentRegion 
.Borders.LineStyle = xlContinuous 
.Borders.Weight = xlThin 
End With 
Sheets (" 供 货 ") .Protect Password:="wygn" 
End Sub 


以 上 代码 执行 的 流程 如 图 31-12 所 示 。 


计算 “ 供 货 ” 表 的 最 后 一 行 
保存 到 变量 x 中 


供 货 表 的 最 后 一 行 
否 


保存 “ 供 货 单 ”中 的 数据 到 
“ 供 货 ” 表 对 应 列 
1 
x 增加 1 


了 
处 理 “ 供 货 单 ” 中 的 下 一 行 


结束 
31-12 ”代码 执行 的 流程 图 
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(3) 在 上 面 的 代码 中 调用 了 “手动 计算 ”和 “自动 计算 ” 子 过 程 ， 这 两 个 子 过 程 用 来 


设置 Excel 的 计算 模式 ， 有 具体 代码 如 下 : 


Sub 手动 计算 () 
With Application 
.Calculation = xlCalculationManual 


-MaxChange = 0.001 
End With 
ActiveWorkbook .PrecisionAsDisplayed = True 
End Sub 
sub 自动 计算 () 


With Application 
-Calculation = xlCalculationAutomatic 


.MaxChange = 0.001 
End With 
ActiveWorkbook .PrecisionAsDisplayed = True 


End sub 

(4) 当 录 入 的 货号 在 “商品 信息 ”工作 表 中 不 存在 时 ， 
跳 转 到 “商品 信息 录入 ”表格 ， 该 按钮 的 宏 代码 如 下 : 

Sub 录入 商品 信息 () 


ActiveWindow.SsmallScroll Down:=31 
Range ("B38") .Select 
End sub 


其 中 SmallScroll 方法 用 于 滚动 工作 表 到 指定 位 置 
31.4.2 ”商品 信息 录 


' 设 置 计算 模式 为 手动 
' 设 置 达 代 时 的 最 大 变化 值 


' 设 置 计算 模式 为 自动 


单 击 【 录 入 商品 信息 】 按 钮 将 


"工作 表 向 下 滚动 31 行 
'! 选 择 B38 单元 格 


， 由 上 向 下 滚动 31 行 。 


在 录入 商品 供 货 信息 时 ， 如 果 “ 商 品 信息 ” 表 中 无 货号 对 应 的 商品 ， 则 需要 通过 “ 商 


品 信息 录入 ”部 分 进行 添加 。 

1. 设计 表格 

商品 信息 录入 表格 如 图 31-13 所 示 ， 该 表格 与 “商品 供 货 录入 ”放置 在 同一 工作 表 中 。 
而 记 霄 这 理 em Ew 
57 Pa D 下 下 上 五 h sh 
3 人 
本 需 录 入 资料 的 货号 : ;5 3 3 5 111 
9。 [可 1 各 生生 克 本 和 产 通 十 单价 十 莪 从 十 要 入 二 各 还 


人 人 NT 二 贷 人 二 存 殴 谣 计 | 供 生意 畏 J 


31-13 ”商品 信息 数据 录入 
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2. 设置 公式 


商品 信息 录入 的 公式 比较 简单 ， 只 需要 在 单元 格 B35 中 设置 以 下 公式 ， 就 可 显示 需要 
录入 资料 的 货号 : 


=" 需 录入 资料 的 货号 : "&IEF (ISERROR(C6) ,B6,"")&"; "&IF(ISERROR(C7),B7,"")&"; 
"E&IF (ISERROR(C8) ,B8,"")&";"&IF(ISERROR(C9) ,B9,"")&" ; "&IF(ISERROR(C10) ， 
B10,"")&";"&IF(ISERROR(C11) ,B11,"") &";"&IF (ISERROR(C12), B12,"")&";"&IF 
(ISERROR (C13) ,B13,"")&"; " 
3. 设计 代码 
录入 商品 信息 后 ， 单 击 【 保 存 】 按 钮 ， 输 入 的 数据 将 保存 到 “商品 信息 ”工作 表 中 ， 
为 该 按钮 编写 的 宏 代码 如 下 : 

Sub 保存 商品 信息 () 

Dim x As Integer, i As Integer, j As Integer 

Call 手动 计算 

With sheets ("商品 信息 ") 

x=2 ' 从 第 2 行 开始 
"判断 第 2 列 的 最 后 一 行 


Do While Not (IsEmpty(.Cells(x, 1) .Value) ) 
ee al "在 最 后 一 行 加 一 行 即 为 空 行 


End With 
Sheets ("商品 信息 ") .Unprotect Password:="wyg" 
With sheets(" 供 货 单 ") 
Fori=1To8 
IE Not IsEmpty(.Cells(37 + i, 2)) Then 
For j = LI To 8 
Sheets ("商品 信息 ") .Cells(x，j) = .Cells(37 + i, j + 1) 
Next j 
下面 和 不 江 
End If 
Next 1 
.Range ("B38:145") = "" 
.Select 
End With 
Call 自动 计算 
With Sheets ("商品 信息 ") 
-Range ("A1") .CurrentRegion.Select 
设置 边框 
.Protect Password:="wyg" 
End With 
End Sub 


以 上 代码 首先 在 “商品 信息 ”工作 表 中 查找 最 后 的 一 个 空 行 ， 接 着 将 当前 工作 表 中 录 

入 的 数据 填充 到 “商品 信息 ” 表 的 对 应 单元 格 ， 再 调用 “设置 边框 ” 子 过 程 为 “商品 信息 ” 
工作 表 中 所 有 的 显示 绘制 边框 。 
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“设置 边框 ” 子 过 程 的 代码 很 简单 ， 调 用 其 为 选中 的 区 域 绘制 外 边框 和 内 边框 线 ， 具 
体 代码 如 下 : 
Sub 设置 边框 () 


Selection.Borders.Linestyle = xlContinuous 
Selection.Borders.Weight = xlThin 
End Sub 


用 户 单 击 【 返 回 】 按 钮 将 回 到 “商品 供 货 录入 ”表格 ，【 返 回 】 按 钮 的 VBA 代码 
如 下 : 


Sub 返回 供 货 录入 () 


ActiveWindow.SsmallScroll Down:=-31 
End Sub 


31.4.3 测试 商品 供 货 功 能 


完成 模块 的 设计 后 ， 为 了 检验 其 正确 性 ， 可 使 用 一 些 数据 进行 测试 。 具 体 步骤 如 下 : 
(1) 在 功能 区 【 进 销 存 】 选 项 卡 的 【进货 】 组 中 ， 单 击 【 录 入 】 按 钮 ， 


工作 区 域 将 显 
示 如 图 31-14 所 示 “ 商 品 供 货 录入 ”界面 。 

的 这 全 管理 cm， 欢 馆 使 用 : 过 销 节 管理 系统 一 

9 让 3 lw 国信 
| 录 加 巡 招 全 入 站 站 应 所 吕 全 和 
| 入 要 | 入 雪 Ma | mt HG | 和 a 人 用 
| wt Li3 | 大 村 | 

主 界面 

商品 供 货 录入 


时 间 ，' 2008-4-17 14:16 


货号 | 名 称 | 型 号 | 产地 | 进 价 | 批 价 | 零售 | 数量 | 人 金额 


合计 
以 下 货号 无 资料 : ;1 335353 


录入 丙 品 信息 保存 


MEER Tem | 
图 31-14 商品 供 货 录入 


[可 


在 以 上 表格 中 ， 时 间 将 自动 填 入 ， 如 果 不 正确 ， 可 修改 计算 机 系统 时 间 ， 再 按 快 捷 键 
F9 进行 刷新 。 


(2) 在 “ 供 货 商 ”后 面 输入 相应 的 内 容 ， 然 后 输入 一 个 货号 “1-111”， 系 统 自 动 查 表 
填充 相关 数据 ， 如 图 31-15 所 示 。 


a6l2s 
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供 货 商 ， 长 发 公司 时 间 ，'2008-4-17 14:17 


下 请 王 蕊 四 攻 直 进 价 | 批 价 | 零售 | 数量 金 扬 
1-111 29 十 四 1900 


合计 
以 下 货号 无 资料 : 1 


录入 商品 信息 


图 31-15 录入 货号 
(3) 输入 供 货 数量 后 ， 右 侧 的 金额 将 自动 生成 。 


(4) 接着 再 输入 一 个 货号 “1-222”， 因 为 “商品 信息 ” 表 中 没有 该 货号 的 资料 ， 所 以 
后 面 的 名 称 等 单元 格 显示 为 “#N/A”， 表 格 下 方 也 有 提示 ， 提 醒 用 户 货号 “1-222” 需 要 


零售 


金额 
+ 9000 
7 Er 


以 下 货号 无 资料 : ; 1-222; 3 3 3833 


录入 商品 信息 


图 31-16 不 存在 的 货号 


(5) 单 击 下 方 的 【录入 商品 信息 】 按 钮 ， 滚 动工 作 表 到 下 方 ， 录 入 商品 的 信息 。“ 商 
品 信息 数据 录入 ”的 表格 上 方 也 显示 有 需要 录入 资料 的 货号 ， 在 表格 中 输入 相关 的 信息 ， 
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可 录入 上 面 没有 提示 货号 的 商品 信息 ， 最 后 单 击 【 保 存 】 按 钮 将 商品 信息 保存 到 对 应 的 表 
格 中 ， 如 图 31-17 所 示 。 


商品 信息 数据 录入 


需 录 入 资料 的 省 号 ; ; 1-222 511 531 


[| 货号 | 名 次 | 型 号 | 产地 | 单价 | 束 价 | 雪 
1-222 | 长 虹 手 机 | Wes8 四 川 


图 31-17 录入 商品 信息 


(6) 单 击 【返回 】 按 钮 ， 回 到 “商品 供 货 录入 ”画面 ， 可 以 看 到 ， 货 号 “1-222” 对 应 
的 商品 信息 已 显示 完整 ， 如 图 31-18 所 示 。 


商品 供 货 录入 


间 ，'2008-4-17 14:23 
|- 产地 | 进 价 | 芷 价 | 要 全 
Fh 


人 金 独 
3000 


以 下 货号 无 资料 : :5 5 


录入 商品 信息 


31-18 ”显示 数据 


(7) 单 击 “ 商 品 供 货 录 入 ”中 的 【保存 】 按 钮 ， 将 供 货 信息 保存 到 相应 的 工作 表 中 后 ， 
即 完成 操作 。 如 果 查 看 “商品 信息 ”工作 表 和 “ 供 货 ” 工 作 表 ， 可 看 到 新 添加 的 数据 ， 如 
图 31-19 和 图 31-20 所 示 。 


全 提示 : “ 供 货 ” 工 作 表 的 数据 处 于 隐藏 状态 ， 用 户 不 能 查看 。 
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3006-4-17 16551|1-112 | 区 好 2600| T2000| 
2008-4-17 15:51 请 .5E 一 | 加 75on 


15| 21000| 
15000| 


lo 185ool 
18oon| 


图 31-20 ”新 增 供 货 信息 
31.4.4 进货 报表 


当 用 户 在 功能 区 【 进 销 存 】 选 项 卡 的 【进货 】 组 中 ， 单 击 【 报 表 】 按钮 时 ， 将 显示 进 
货 报 表 。 在 该 报表 中 由 用 户 输入 统计 的 起 止 日 期 ， 程 序 将 按时 间 段 统计 所 有 进货 的 情况 ， 
生成 进货 报表 。 

1. 表格 设计 

首先 制作 如 图 31-21 所 示 的 表 头 ， 其 中 “上 日期” 后面 的 两 个 单元 格 用 来 设置 统计 的 起 
止 日 期 ， 输 入 起 止 日 期 后 ， 单 击 【 生 成 报表 】 按 钮 ， 将 生成 指定 时 期 内 的 进货 详 表 。 


加 过 销 存 管理 xjsm pe 
A 上 c Deh 3 卫 | EN 
em | 进货 报表 


日 期 ，2008-1-1 至 ”2008-5-1 半 成 报表 


2 
3 
一 一 上 货号 | 名 称 [型 号 | 产地 [数量 | 进 价 | ”金额 | 批发 价 | 零售 价 
日 
加 


图 31-21 进货 报表 


2. 编写 代码 


该 报表 主要 通过 VBA 代码 生成 ， 编 写 代码 的 步 又 如 下 。 
(1) 为 【生成 报表 】 按 钮 指定 宏 ， 并 编写 宏 代码 如 下 : 
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Sub 进货 报表 () 
Dim datStart Rs Date, datEnd Rs Date 
IE IsDate(Cells(2，3)) Then 
datstart = DateValue (Cells(2, 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
IE IsDate(Cells(2, 5)) Then 
datEnd = DateValue (Cells(2, 5)) 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
If datstart > datEnd Then 
MsgBox "起 始 日 期 应 小 于 或 等 于 结束 日 期 " 
Else 
生成 进货 报表 
End If 
End Sub 


3)) 


“声明 变量 ， 保 存 起 始 日 期 值 
' 起 始 日 期 格式 正确 

' 保 存 到 起 始 日 期 变量 中 

' 起 始 日 期 格式 错误 


' 退 出 子 过 程 

' 结 束 日 期 格式 正确 
"保存 到 结束 日 期 变量 中 
"结束 日 期 格式 错误 

' 退 出 子 过 程 


' 起 始 日 期 大 于 结束 日 期 
"显示 错误 信息 


"调用 子 过 程 生成 报表 


程序 首先 判断 用 户 输入 的 日 期 格式 ， 如 果 不 正 确 ， 将 弹出 错误 提示 并 退出 子 过 程 。 接 
着 判断 起 始 日 期 是 否 小 于 或 等 于 结束 日 期 ， 最 后 调用 “生成 进货 报表 ” 子 过 程 。 
(2) 检查 日 期 正确 后 ， 将 调用 “生成 进货 报表 ” 子 过 程 生成 进货 报表 ， 该 过 程 流程 


如 图 31-22 所 示 。 


对 “ 供 货 ” 表 按 日 期 排序 


否 
在 日 期 范围 内 
是 


保存 数据 到 “进货 报表 ” 


清除 “进货 报表 ”中 的 数据 


读 取 供 “ 供 货 ” 表 的 一 行 数据 


"6 


设置 “进货 报表 ”的 合计 函数 


设置 “进货 报表 ”单元 格 边框 


31-22 ”生成 进货 报表 流程 图 


第 31 章 ， 进 销 存 管理 系统 


按 图 31-22 所 示 流 程 图 编写 程序 ， 代 码 如 下 : 


Sub 生成 进货 报表 () 
Dim x Rs Integer, j As Integer, rngTemp Rs Range ' 声 明 变 量 
Dim intRow As Integer 
Sheets (" 供 货 ") .Unprotect Password:="wyg" "取消 对 “ 供 货 ”工作 表 的 保护 
Set rngTemp = Sheets (" 供 货 ") .Range ("R2") .CurrentRegion 
"获取 供 货 表 中 的 有 效 数 据 区 域 

zngTemp . Sort Keyl:=Sheets(" 供 货 ") .Range("R2") ，Order1:=xlAscending， 
Header:= _ 

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 

SortMethod:=xlPinYin, DataOption]l:=xlSortNormal 


' 供 货 表 按 货号 排序 
Sheets (" 供 货 ") .Protect Password:="wyg" ' 保 护 工作 表 
With Sheets ("进货 报表 ") 
.Unprotect Password:="wyh" "取消 对 “进货 报表 ”的 保护 
intRow = .Range ("A4") .CurrentRegion.Rows .Count ' 取 得 “进货 报表 ”的 数据 行 数 
.Range(.Cells(5, 1), .Cells(intRow + 4, 10)) .Select ' 选 取 “ 进 货 报表 ” 
的 数据 部 分 
Selection.EntireRow.Delete "删除 表 体 部 分 的 数据 
.Range ("R5") .Select "选择 Rs 单元 格 
: '“ 供 货 ” 表 从 第 2 行 开始 处 理 
j=5 “进货 报表 ”从 第 5 行 开 始 处 理 


Do While Not (IsEmpty (Sheets(" 供 货 ") .Cells(x, 2) .value)) 
If DateValue (Sheets(" 供 货 ") .Cells (x，1)) >= DateValue(.Cells(2, 3)) 


And _ 
DateValue (Sheets (" 供 货 ") .Cells (x, 1)) <= DateValue(.Cells(2, 5)) 
Then 
' 供 货 时 间 大 于 等 于 设置 的 起 始 时 间 
' 且 小 于 等 于 设置 的 结束 时 间 
.Cells(j, 1).NumberFormatLocal = "yyyy-m-d h:mm;@" 
' 设 置 第 1 列 的 为 日 期 格式 


.Cells(j，1) = Sheets(" 供 货 ") .cells (x，1) ' 日 期 
.Cells (j，2) = Sheets(" 供 货 ") .cells (x，2) ' 货 号 
.Cells(j，3) = Sheets(" 供 货 ") .cells (x，3 ' 名 称 
.Cells(j，4) = Sheets(" 供 货 ") .cells (x，4) ' 型 号 
.Cells(j，5) = Sheets(" 供 货 ") .cells (x，5) ' 产 地 
.Cells(j，6) = Sheets(" 供 货 ") .cells (x，9) ' 数 量 
.Cells(j, 7).NumberFormatLocal = "#,##0.00_ " 
' 设 置 进 价 列 的 显示 格式 
.Cells(j，7) = Sheets(" 供 货 ") .cells (x，6) ' 进 价 
.Cells(j, 8).NumberFormatLocal = "#,##0.00_" 
' 设 置 金额 列 的 显示 格式 
.Cells(j，8) = .Cells(j，6) * .Cells(j，7) ' 人 金额 
.Cells(j, 9) .NumberFormatLocal = "#,##0.00_" 
' 设 置 批发 价 列 的 显示 格式 
.Cells(j，9) = Sheets(" 供 货 ") .cells (jj，7) ' 批 发 价 
-Cells(j, 10) .NumberFormatLocal = "#,##0.00 " 
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"设置 零售 价 列 的 显示 格式 
-Cells(j，10) = Sheets(" 供 货 ") .cells(j，8) ' 零 售 价 
:es 
End If 
FP ' 处 理 供 货 表 中 的 下 一 行 


Loop 

.Cells (j，1) = "合计 " 

.Cells(j，8) .NumberFormatLocal = "#,##0.00 " “设置 合计 的 显示 格式 
.Cells(j，8) .FormulaR1C1 = "=SUM(R[" & 5 - j & "]C:R[-1]C)" 


"设置 合计 的 公式 
.Range(.Cells(5，1)，.Ccells(j，10)) .Select "选择 “进货 报表 ”的 数据 部 分 
设置 边框 ' 调 用 子 过 程 为 其 设置 边框 线 
.Select ' 选 择 “ 进 货 报 表 ” 工 作 表 
.Range ("A5") .Select ' 选 择 A5 单元 格 
.Protect Password:="wyg" ' 保 护 该 工作 表 
End With 

End Sub 


为 了 防止 用 户 随意 修改 工作 表 ， 设 计 完 成 后 ， 对 每 个 工作 表 都 设置 了 保护 。 在 程序 中 
对 工作 表 进 行 操作 之 前 ， 需 先进 行 撤销 保护 操作 ， 操 作 完 成 后 ， 再 进行 保护 操作 。 进 行 撤 
销 保护 操作 时 使 用 工作 表 的 Unprotect 方法 ， 保 护 操作 使 用 工作 表 的 Protect 方法 。 


在 “进货 报表 ”中 输入 日 期 值 ， 然 后 单 击 【 生 成 报表 】 按 钮 ， 得 到 如 图 31-23 所 示 的 
进货 报表 。 
[SE 过 傅 厚 管 理 :dsm - 欢迎 使用 :过 生存 管理 系统 ox 
| wr | 一 -= x| 

难于 | 归 司 转 | 总 吾 轩 | 旧 辐 

录 报 | 村 殷 人 销 和 让 汰 有 有 终 库 订 | 商品 久生 

入 训 | 入 可 J 上 | 可 向 钦 计 用 组 | 信忠 人 员 
mm | Ce Cd ms 

3 进货 报表 

日 期 至 ”2008-5-1 生成 报表 
日 期 偶 导 | 

[上 2008-4-17 15:51|1-112 | 发 虹 54 寸 四川 5| 2, 400, 00 | 12, 000, 00 [1,600.00 [7o0 | 
2008-4-17 15:51]1=113 | 长 虹 字 调 由 .5P jz 5[ 1 500.00 | 7. so0. 00 fg50 ET 
2009-4-17 15:51|2-111 | 性 尔 水 御 |L80 开 | 青鸟 15| 1, 400. 00 | 21, 000, 00 | 1.850.00 | 1.900 
2008-4-17 15:51|1-121 | 长 虹 冰 箱 |180 升 四 川 10| 1, 500. 00 | 15, 000. 

2008-4-17 15:51|2-100 ”| 海尔 空调 |1.5P | 青岛 10f1850 18, 500. 00 

2008-4-16B 15:54|1-111 | 长 虹 28 寸 “四川 10| 1, 800.00 | 18, 000. 00 
生计 92, 000, 00 

CRE 

Cen 


图 31-23 ”生成 进货 报表 
31.5 销售 模块 


销售 模块 用 来 管理 销售 相关 的 数据 ， 包 括 录 入 销售 数据 、 查 看 销售 报表 、 查 看 销售 业 
绩 等 功能 。 
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31.5.1 设计 销 货 身 


销 货 单 需要 登记 购买 人 ， 及 其 购买 的 商品 和 数量 ， 为 了 考核 员工 的 销售 业绩 ， 还 需要 
登记 销售 人 员 。 

1. 表格 设计 

表格 如 图 31-24 所 示 。“ 销 售 人 员 ” 设 计 为 一 个 下 拉 列 表 框 ， 用 户 可 直接 选择 销售 人 
员 。 要 达到 这 种 效果 ， 还 需 进 行 以 下 设置 。 
mr er 
i = - - - i 加 
1 商品 销售 录入 
枯 二 :汉王 :下 > 测 下 VE: 到 三 下 2 友 生硬 三 -3 三 


15| 预 交 获 : [ 余 二 : 勿 售 人 员 ，[ 竹本 


图 31-24 ”商品 销售 录入 
选中 I15 单元 格 (销售 人 员 ) ， 在 【数据 】 选 项 卡 的 【数据 工具 】 组 中 ， 单 击 【 数 据 
有 效 性 了 按钮 , 打开 【数据 有 效 性 】 对 话 框 , 在 【设置 选项 卡 中 设置 【来 源 】 选 项 为 “=xsry” 
(在 “销售 人 员 ” 工 作 表 中 定义 的 名 称 ) ， 如 图 31-25 所 示 。 


口 对 有 同样 设置 的 所 有 其 他 单元 格 应 用 这 些 更 改 E) 


ET Ca ] 


图 31-25 【设置 】 选 项 卡 


2. 设计 公式 


在 “ 销 货 单 ”中 ， 根 据 用 户 输入 的 货号 ， 系 统 将 自动 显示 对 应 的 商品 信息 ， 但 需要 为 
各 相关 单元 格 设 置 公式 ， 具 体 公 式 如 下 : 


G3=NOW() 


“GI 


Excel VBA 开发 技术 大 全 


C5=IF ($B5="","",VLOOKUP ($B5, 商品 信息 !1$A: S$H,2,FALSE)) 

D5=IF ($B5="","",VLOOKUP ($B5 ,商品 信息 !SRA:SH,3,EFRLSE) ) 
F5=IF(B5="","",IF($E5<10,VLOOKUP ($B5, 商品 信息 !SRA:SH,7,FRLSE),VLOOKUP ($B5, 
商品 信息 !SR:SH,6,FRLSE) ) ) 

G5=IF(B5="","",IF(SH5>0,E5*H5,E5*F5) ) 

G13=SUM(G5:G12) 

H13=SUM(H5:H12) 

E15=IF(C15=0,"",C15-G13-H13) 


3. 设计 代码 


在 工作 表 中 输入 销售 数据 后 ， 单 击 【 保 存 】 按 钮 可 将 销售 数据 保存 到 “ 销 货 ” 工 作 表 
中 。 该 按钮 的 代码 如 下 : 


Sub 销 货 输入 () 
Dim x As Integer, i As Integer, j As Integer "声明 变量 
Call 手动 计算 "调用 手动 计算 子 过 程 
Sheets (" 销 货 ") .Select ' 选 择 “ 销 货 ” 工 作 表 
站 ' 从 第 2 行 开始 
Do While Not (IsEmpty(Cells(x, 2) .value)) ' 判 断 第 2 列 的 最 后 一 行 
x=x+1 "在 最 后 一 行 加 一 行 即 为 空 行 
Loop 
With sheets(" 销 货 单 ") 
Fori=1To8 ' 逐 行 处 理 销 货 单 中 的 数据 
If Not IsEmpty(.Cells(4 + i, 2)) Then ' 商 品 编号 不 为 空 


Sheets (" 销 货 ") .Cells (x，1) = .Cells(3，7) ' 销 售 时 间 
Sheets (" 销 货 ") .Cells (x，10) = .Cells(3，3) ' 购 货 人 
Sheets (" 销 货 ") .Cells (x，11) = .Cells (15，9) ' 销 售 人 员 


For j = 2 To 9 ' 逐 列 保存 销 货 信 息 
Sheets (" 销 货 ") .cells(x, j) = .Cells(4 + i, jj) 
Next 了 
: ' 处 理 下 一 行 
End If 
Next i 
.Range ("b5:b12") = "" ' 清 除 销 货 单 中 的 部 分 单元 格 


.Range ("e5:el2") = "" 
.Range ("h5:h12") = "" 
.Cells(15, 3) = "" 
Cells(3, 3) = "" 
End With 
Call 自动 计算 ' 调 用 自动 计算 子 过 程 
With Sheets(" 销 货 ") .UsedRange 
.Borders.Linestyle = xlContinuous 
.Borders.Weight = xlThin 
End With 
Sheets (" 销 货 ") .Protect Password:="wyg" 
End Sub 


*620° 


第 31 章 ， 进 销 存 管理 系统 


31.5.2 ”测试 销 货 单 功能 


为 了 检验 代码 的 正确 性 ， 需 要 进行 测试 ， 具 体 步 骤 如 下 : 
(1) 在 功能 区 【 进 销 存 】 选 项 卡 的 【销售 】 组 中 ， 单 击 【 了 录入】 按钮， 工作 区 域 将 显 
示 “ 商 品 销售 录入 ”界面 ， 在 表 中 输入 如 图 31-26 所 示 的 数据 。 


商品 销售 录入 


2008-4-17 15:09 


本 


[Ca00-00 元 


31-26 录入 数据 


(2) 输入 完成 后 ， 单 击 【保存 】 按 钮 ， 将 数据 保存 到 “ 销 货 ” 工 作 表 中 ， 如 图 31-27 


册 jES 国 ii 一 Elise 


录 报 铺 千 存 党 ”库存 杀人 
要 妊 寺 明细 


日 期 
2008-4-19 15:54|1-111 


2008-4-18 15:54|2-100 
2008-4-17 15:09| 


31-27 销 货 数据 


31.5.3 ”销售 报表 


当 用 户 在 功能 区 【 进 销 存 】 选 项 卡 的 【销售 】 组 中 ， 单 击 【报表 】 按 钮 ， 将 显示 销售 
报表 。 在 该 报表 中 由 用 户 输入 统计 的 起 止 日 期 ， 程 序 将 按时 间 段 统计 所 有 进货 的 情况 ， 并 
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生成 销售 报表 。 
1. 表格 设计 


首先 制作 如 图 31-28 所 示 的 表 头 ,在 “日 期 ”后 面 的 两 个 单元 格 输入 统计 的 起 止 日 期 ， 
单 击 【生成 报表 】 按 钮 ， 将 生成 指定 时 期 内 的 销售 报表 。 


大 过 车 竺 理 jsm ep 
[i A B 和 D E 5 有 L 四 
Em 销售 报表 上 
了 日 期 ， 2003-1-1 至 2008-5-1 生成 报表 

3 

生 日 期 贷 - 名 型 数量 人 金 ; 毛利 六 

5 

6 

CE 铺 和 报表 


图 31-28 ”销售 报表 


2. 编写 代码 
该 报表 主要 通过 VBA 代码 生成 ， 与 “进货 报表 ”的 代码 类 似 ， 下 面 将 不 再 给 出 程 
流程 图 和 程序 说 明 。 
(1) 为 【生成 报表 】 按 钮 指定 宏 ， 并 编写 宏 代码 如 下 : 
Sub 生成 销售 报表 () 
Dim datstart Rs Date，datEnd Rs Date  ' 声 明 变量 ,保存 起 始 和 结束 日 期 


IE IsDate(Cells(2, 3)) Then ' 起 始 日 期 格式 正确 
datstart = DateValue (Cells (2，3)) “' 保 存 起 始 日 期 到 变量 

Else ' 起 始 日 期 格式 错误 
MsgBox "日 期 输入 错误 " 
Exit sub ' 退 出 子 过程 

End If 

IE IsDate(Cells(2, 5)) Then ' 结 束 日 期 格式 正确 
datEnd = DateValue (Cells(2, 5)) ' 保 存 结束 日 期 到 变量 

Else ' 结 束 日 期 格式 错误 
MsgBox "日 期 输入 错误 " 
Exit sub ' 退 出 子 过 程 

End If 

If datstart > datEnd Then ' 起 始 日 期 大 于 结束 日 期 
MsgBox "起 始 日 期 应 小 于 或 等 于 结束 日 期 " ”' 显 示 错 误 信息 

Else 
生成 销售 报表 a ' 调 用 子 过 程 生成 销售 报表 

End If 

End sub 


(2) 上 面 的 代码 中 调用 了 子 过 程 “生成 销售 报表 a”， 其 代码 如 下 : 


sub 生成 销售 报表 a() 
Dim x As Integer, j As Integer, rngTemp As Range ' 声 明 变 量 
Dim intRow As Integer 
Set rngTemp = Sheets(" 销 货 ") .Range ("A2") .CurrentRegion 
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"获取 “ 销 货 ” 工 作 表 的 数据 区 域 
rngTemp . Sort Keyl:=Sheets(" 销 货 ") .Range ("A2"),， Orderl:=xlAscending, 
Header:= _ 

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
SortMethod:=xlPinYin, DataOptionl:=xlSortNormal 

' 将 “ 销 货 ” 工 作 表 按 货号 排序 

With sheets ("销售 报表 ") 
.Unprotect Password:="wyh" ' 取 消 对 “销售 报表 ”工作 表 的 保护 
intRow = .Range ("A4") .CurrentRegion.Rows.Count “' 获 取 “ 销 售 报表 ”的 数据 行 数 
.Range(.Cells(5, 1), .Cells(intRow + 4, 9)).Select 

' 选 择 “ 销 售 报表 ”的 数据 部 分 


Selection.EntireRow.Delete ' 删 除数 据 部 分 

.Range ("A5") .Select ' 选 择 As 单元 格 

x=2 ' 销 货 工作 表 当 前 数据 行 
j=5 ' 销 售 报表 当前 数据 行 


Do While Not (IsEmpty (Sheets(" 销 货 ") .Cells(x, 2) .value)) 
IE DateValue (Sheets (" 销 货 ") .Cells (x, 1)) >= DateValue(.Cells(2, 3)) And _ 
DateValue (Sheets (" 销 货 ") .Cells (x, 1)) <= DateValue(.Cells(2, 5)) 


Then 
' 销 货 时间 大 于 等 于 设置 的 起 始 时 间 
' 且 小 于 等 于 结束 时 间 
.Cells(j, 1).NumberFormatLocal = "yyyy-m-d h:mm;@" 
' 设 置 第 1 列 为 日 期 格式 


.Cells(j，1) = Sheets(" 销 货 ") .Cells (x，1) ' 日 期 
.Cells(j，2) = Sheets(" 销 货 ") .Cells (x，2) ' 货 号 
.Cells(j，3) = Sheets(" 销 货 ") .Cells (x，3) ' 名 称 
.Cells(j，4) = Sheets(" 销 货 ") .Cells (x，4) ' 型 号 
.Cells(j，5) = Sheets(" 销 货 ") .cells (x，5) ' 数 量 
.Cells(j，6) = Sheets(" 销 货 ") .cells (x，6) ' 单 价 
.Cells (j，7) = Sheets (" 销 货 ") .Cells (x，7) + Sheets (" 销 货 ") .Cells (x，8) 


' 金 额 
Sheets ("商品 查询 ") .Cells (3，4) = Sheets(" 销 货 ") .Cells (x，2) 
' 将 货号 置 入 “商品 查询 ” 表 中 查询 
.Cells(j，8) = Sheets(" 商 品 查询 ") .Cells (9，4) 
' 从 商品 查询 表 中 查 得 进 价 
“Cella(j, 9) = -Cells(d. 7) cells(j, 8) ' 毛 利润 
3 ' “销售 报 表 ” 增 加 一 行 
End If 
x=x+1 ' 处 理 “ 销 货 ” 工 作 表 的 下 一 行 
Loop 
.Cells (j，1) = "合计 " ' 在 “销售 报表 ”最 后 一 行 添加 “合计 ” 
.Cells (j，7) .FormulaRlC1 = "=SUM(R[" & 5 -js "]C:R[-1]C)" 
' 设 置 金额 合计 的 计算 公式 
.Cells(j, 9).FormulaR1iCl = "=SUM(R[" & 5 -js "]C:R[-1]C)" 
' 设 置 毛利 润 合 计 的 计算 公式 
.Range(.Cells(5, 1), .Cells(j, 9)).select ' 在 “销售 报表 ”中 选中 数据 部 分 
设置 边框 ' 调 用 子 过 程 设置 单元 格 边框 线 
.Select ' 选 择 “ 销 售 报表 ”工作 表 
.Range ("A5") .Select ' 选 择 as 单元 格 
.Protect Password:="wyh" ' 保 护 “ 销 售 报 表 ” 工 作 表 
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End With 
End Sub 
在 “销售 报表 ”日 期 中 输入 值 ， 然 后 单 击 【 生 成 报表 】 按 钮 ， 得 到 如 图 31-29 所 示 的 
销售 报表 。 
的 asse 进 等 存 管 至 Xjsm - 欢迎 使 用 ; 送 箭 下 管理 系统 EN 
| 站 I 回 - ex| 
pF | = 
录 报 录 了 更 千 | 
入 过 入 要 烧 二 9 
"| 
主 界面 
日 期 : 2008-1-1 生成 报表 
货号 | 名 称 | 型 引 | 数量 | 单价 | 金额 | 进 价 | 毛利 润 | 
El17 15:031-111 ”| 长 巡 3 十 2 1900| 3800| 3500 200| 
2009-4-19 15:54j1-111 | 长 虹 2 十 | 1900| 1900| 1900| 100| 
2008-4-18 15:54|2-100 | 海尔 空调 [1. 5P 2100 4200| 3700| 500| 
合计 9900| 800| 


EE 
图 31-29 销售 报表 


31.5.4 ”销售 业绩 报表 
通过 销售 业绩 可 对 员工 的 工作 情况 进行 考核 ， 销 售 业绩 报表 就 是 用 来 统计 指定 的 时 其 
内 某 个 员工 的 业绩 情况 的 。 


1. 表格 设计 
首先 制作 如 图 31-30 所 示 的 表 头 ， 其 中 “销售 员 ” 制 作为 下 拉 列 表 式 ，“ 日 期 ”后 面 
的 两 个 单元 格 用 来 设置 统计 的 起 止 日 期 ， 单 击 【生成 报表 】 按 钮 ， 将 生成 某 个 员工 在 指定 


时 期 内 的 销售 业绩 详 表 。 
大 进 生 和 管 理 XiSmi Er 
[4 A B [a 了 E £ G H I a k 
| 销售 业绩 报表 


4 

2 销售 员 : 地 四 

3 日 期 : 2008-1-1 至 2008-5-l 生成 报表 
a 

-| 日 其 信号 | 名 称 [型 号 | 产地 [数量 [单价 | 爹 宾 | 进 价 [毛利 润 ] 
EE 


图 31-30 ”销售 业绩 报表 


2. 编写 代码 
该 报表 主要 通过 VBA 代码 生成 ， 与 “进货 报表 ”的 代码 类 似 ， 下 面 不 再 给 出 程序 流 


程 图 和 程序 说 明 。 
(1) 为 “生成 报表 ”按钮 指定 宏 ， 并 编写 代码 如 下 : 
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Sub 生成 业绩 报表 () 


Dim datstart Rs Date，datEnd As Date “' 声 明 变量 
If IsDate(Cells(3, 2)) Then ' 检 查 起 始 日 期 
datstart = DateValue (Cells(3, 2)) 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
IE IsDate(Cells(3, 5)) Then ' 检 查 结 束 日 期 
datEnd = DateValue (Cells(3, 5)) 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
If datstart > datEnd Then "起 始 日 期 大 于 结束 日 期 
MsgBox "起 始 日 期 应 小 于 或 等 于 结束 日 期 " 
Exit Sub 
End If 
生成 业绩 报表 a "调用 子 过 程 生 成 业绩 报表 
End Sub 
(2) 上 段 代 码 调用 了 “生成 业绩 报表 a” 子 过 程 ， 其 代码 如 下 : 
Sub 生成 业绩 报表 a () "清除 业绩 表 中 的 数据 
With Sheets ("销售 业绩 报表 ") 
.Unprotect Password:="wyh" ' 取 消 “ 销 售 业 绩 报 表 ” 的 保护 
intRow = .Range("A5") .CurrentRegion.Rows.Count ' 获 取 “ 销 售 业 绩 报 
表 ” 的 数据 行 数 
.Range(.Cells(6, 1), .Cells(intRow + 5, 10)) .Select ' 选 择 数 据 区 域 部 分 
Selection.EntireRow.Delete "删除 数据 区 域 部 分 
.Range ("A6") .Select ' 选 择 R6 单元 格 
x=2 ' 销 货 工作 表 当 前 数据 行 
j = 6 ' 销 售 业绩 报表 当前 数据 行 


Do While Not (IsEmpty (Sheets(" 销 货 ") .Cells (x, 2) .value)) 


IE DateValue (Sheets (" 销 货 ") .Cells (x,1) 


) >= DateValue(.Cells(3，2)) Panda _ 


DateValue (Sheets (" 销 货 ") .Cells (x, 1)) <= DateValue(.Cells(3，5)) And _ 
Sheets (" 销 货 ") . Cells (x，11) = .Cells(2, 2) Then 


' 销 货 时 间 大 于 等 于 设置 的 起 始 时 间 

' 且 小 于 等 于 设置 的 结束 时 间 

' 且 销售 员 等 于 设置 的 销售 人 员 
.Cells(j, 1) .NumberFormatLocal = "yyyy-m-d h:mm;@" 

"设置 第 1 列 为 日 期 格式 
-Cells(j，1) = Sheets(" 销 货 ") .cells (x，1) ' 日 期 
-Cells(j，2) = Sheets(" 销 货 ") .Cells (x，2) ' 货 号 
.Cells(j，3) = Sheets (" 销 货 ") .Cells (x，3) ' 名 称 
.Cells(j，4) = Sheets(" 销 货 ") .Cells (x，4) ' 型 号 
-Cells(j，6) = Sheets(" 销 货 ") .cells (x，5) ' 数 量 
-Cells(j，7) = Sheets (" 销 货 ") .cells (x，6) ' 单 价 
-Cells(j，8) = Sheets (" 销 货 ") .Cells (x，7) + Sheets(" 销 货 ") 
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-Cells(x，8) 

"金额 
Sheets (" 商 品 查询 ") .Cells(3，4) = .Cells(j，2) 

' 将 货号 置 入 “商品 查询 ” 表 

' 从 “商品 查询 ” 表 中 得 到 商品 的 信息 
-Cells(j，5) = Sheets ("商品 查询 ") .cells (8，4) 

' 从 “商品 查询 ” 表 中 查 得 产地 
-Cells(j，9) = Sheets ("商品 查询 ") .Cells(9，4) 

' 从 “商品 查询 ” 表 中 查 得 进 价 


:Cells(j, 10) = .Cells(ij, 8) - .Cells(j, 9) * .celle{(j, 6) 
' 毛 利润 = 销售 金额 - 进 价 * 数 量 
ET "销售 业绩 表 增 加 一 行 
End If 
x=x+1 ' 处 理 销 货 表 的 下 一 行 
Loop 
If j > 6 Then ' 若 业绩 报表 有 数据 
Cellal(je 1) = 合计" !' 在 最 后 一 行 添加 合计 
.Cells(j, 8) .FormulaR1C1 = "=SUM(R[" & 6 - j & "]C:R[-1]C)" 
' 设 置 数量 合计 的 计算 公式 
.Cells(j，9) .FormulaR1C1 = "=SUM(R[" & 6 - j & "]C:R[-1]C)" 
' 设 置 金额 合计 的 计算 公式 
-Cells(j，10) .FormulaR1lC1 = "=SUM(R[" & 6 - j & "]C:R[-1]C)" 
' 毛 利润 
' 设 置 毛利 润 合计 的 计算 公式 
.Range(.Cells(6，1)，.Cells(j，10)).Select ' 选 择 表格 中 的 数据 部 分 
设置 边框 ' 为 数据 部 分 设置 单元 格 边框 线 
End If 
‘Select ' 选 择 销售 业绩 报表 
.Range ("A6") .Select ' 选 择 A6 单元 格 
.Protect Password:="wyh" ' 保 护 工作 表 
End With 
End sub 


选择 销售 员 “ 李 四 ”， 再 输入 起 止 日 期 ， 单 击 【 生 成 报表 】 按 钮 ， 将 得 到 如 图 31-31 
所 示 的 销售 业绩 报表 。 


[ 
-ox 
录 
入 
3 销售 业绩 报表 
销售 员 ， 直 四 
日 2008-1-1 至 2008 生成 报表 
货号 | 名 称 | | 进 价 | 毛 利润 
DE 111 EE 3800| 1900| 200| 
2008-4-18 15:54|1-111 | 长 虹 900| 1900| 1800| 100| 
2008-4-18 15:54|2-100 | 海尔 字 调 |1. 5P | 青 号 4200|1850 ET 
下 计 990p| seoo| sool 
可 EE li ss 


31-31 销售 业绩 报表 结果 
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31.6 库存 模块 


库存 模块 用 来 查询 生成 当前 库存 数据 ， 包 括 按 货 号 查询 单一 商品 信息 的 库存 查询 、 查 
看 所 有 库存 商品 的 库存 统计 和 按 货号 查询 单一 商品 进 、 销 、 存 数据 的 库存 明细 等 功能 。 


31.6.1 商品 查询 

通过 商品 查询 功能 可 查看 某 一 货号 的 商品 的 供 货 、 销 货 及 库存 情况 ， 该 表 不 需要 编写 
VBA 代码 ， 通 过 Excel 的 公式 即 可 完成 相应 的 功能 。 具 体 步骤 如 下 : 

(1) 首先 制作 如 图 31-32 所 示 的 工作 表 ， 用 户 可 在 货号 位 置 输入 内 容 。 


CT = 


图 31-32 ”商品 查询 


(2) 设置 各 单元 格 的 公式 如 下 : 


D6 =VLOOKUP ($D$3, 供 货 ! $B:$J,2,FALSE) 
D7=VLOOKUP ($D$3, 供 货 1 $B:$J,3,FALSE) 
D8=VLOOKUP ($D$3, 供 货 !1 $B:$J,4,FALSE) 
D9=VLOOKUP ($D$3, 供 货 ! $B:$J,5,FALSE) 
D10=VLOOKUP ($D$3, 供 货 !1 $B:$J,6, FALSE) 
D11=VLOOKUP ($D$3, 供 货 !1 $B:$J,7,FALSE) 
D12=SUMIF ( 供 货 !B:B,D3, 供 货 !I:I) 
E12=SUMIF ( 销 货 !B:B,D3, 销 货 !E:E) 
F12=D12-E12 

D13=D9*D12 

E13=E9*E12 

F13=D13-E1l3 

E6、 F6=D6 

E7、F7=D7 

E8、F8=D8 

E9、F9=D9 

E10、F10=D10 

Ell、 Fl11=D11 
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在 货号 中 输入 “1-111”， 得 到 如 图 31-33 所 示 内 容 。 


| i 
主 界 面 i 四 
商品 查询 
请 输入 查询 偶 号 ， | 1-111 

供 货 销 货 库存 
名 称 : 长 虹 ES 3 
型 号 : 29 二 29 寸 2 二 
产 地 : 西川 En Cn 
进 价 : 1800 1800 | 1800 
批 价 : 1850 1850 1850 
至 售 : 1900 1900 1900 
数 入: 3 于 
全 弄 : ¥18,000.00 | ¥5,400.00 | ¥12,600.00 


图 31-33 ”商品 查询 结果 


31.6.2 ”存货 统计 


31.6.1 节制 作 的 商品 查询 模块 可 查询 单 件 商品 的 信息 ， 本 节 以 此 为 基础 ， 编 写 商品 存 
货 统 计 功 能 。 首 先 从 “商品 信息 ”中 取出 一 件 商 品 的 货号 ， 将 该 货号 置 入 “商品 查询 ” 表 
的 货号 位 置 ， 然 后 从 “商品 查询 ”工作 表 中 获取 对 应 的 信息 ， 并 写 入 “存货 统计 ”工作 表 
中 。 对 整个 “商品 信息 ”工作 表 进行 循环 ， 最 后 得 到 “存货 统计 ” 表 。 在 “存货 统计 ” 工 
作 表 的 Activate 事件 中 编写 代码 如 下 : 


Private Sub Worksheet Activate() 


Dim i As Integer, x As Integer ' 声 明 变量 

Sheets ("商品 信息 ") .Select "选择 “商品 信息 ”工作 表 

X = 2 "从 第 2 行 开始 

Do While Not (IsEmpty(Cells(x，1))) :判断 第 2 列 的 最 后 一 行 
x=x+1 "在 最 后 一 行 加 一 行 即 为 空 行 

Loop 

x=XxXx-1 ' 返 回 上 一 行 


With sheets ("商品 查询 ") 
For i= x To 2 Step -1 
.Cells (3，4) = Sheets ("商品 信息 ") .Cells (i，1) ”' 货 号 
Sheets ("存货 统计 ") .cells (i，1) = .Cells(3，4) ”' 货 号 
Sheets ("存货 统计 ") .cells (i，2) = .Cells(6，4) “' 名 称 


Sheets ("存货 统计 ") .cells (i，3) = .Cells (12，4) ' 总 进 量 
Sheets ("存货 统计 ") .cells (i，4) = .Cells (12，5) ' 总 出 量 
sheets ("存货 统计 ") .cells (i，5) = .Cells (12，6) ' 库 存量 
Sheets ("存货 统计 ") .cells (i，6) = .Cells(9，4)  ' 进 价 
Sheets ("存货 统计 ") .cells (i，7) = .Cells(13，6) ' 资 金 
Next 
End With 
Sheets ("存货 统计 ") .Select 1 选择 “存货 统计 ”工作 表 
End Sub 


在 【 进 销 存 】 选 项 卡 的 【库存 】 组 中 ， 单 击 【 存 货 统计 】 按 钮 ， 程 序 在 经 过 一 段 时 间 
的 运算 后 ， 产 生 “ 存 货 统计 ”工作 表 中 的 数据 ， 如 图 31-34 所 示 。 
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ar “六 生 庆生 Xm - 次 凶 使用: 进 生存 芝 避 条 统 ed 
过 -ex 
总 辐 | 她 国 国 | 性 国 居 | 旧 前 
录 报 录 报 振 告 | 存 兴 户 和 库 子 。 疡 己 杀生 
入 雪 入 二 | 到 时 | Se A 
ne bi be a 
偶 寻 [你 ”|[ 名 进 量 [总 出 量 “| 这 存量 “| 皇 认 他 烙 ”人 坟 注 
FE 到 加 | a00| i260 主 中 面 | 
ETEETESL | | 1500| 7509 
1-112 [长虹 5| 引 2400| 12000| 
Terr | 长 好 请 an To 15oo| — 150o0| 
2-111 ”| 海尔 冰箱 15 15| 1400| 21000| 
100 ”海尔 空调 10| 引 shaso 14500| 
中 1 


图 31-34 存货 统计 


31.6.3 ”库存 明细 

在 31.6.1 节 中 设计 制作 的 商品 查询 模块 只 能 看 到 经 过 汇总 的 数据 。 如 果 想 了 解 某 个 商 
品 的 详细 进 、 销 、 存 数据 ， 可 使 用 本 模块 。 

1. 表格 设计 


本 模块 将 能 显示 每 件 商 品 的 进 、 销 、 存 明细 数据 ， 并 模拟 商品 账 页 形式 进行 显示 ， 工 
作 表 如 图 31-35 所 示 。 输 入 货号 后 ， 下 方 自动 显示 商品 名 称 等 信息 ， 设 置 好 起 止 日 期 后 ， 
单 击 【 生 成 账 页 】 按 钮 ， 将 生成 指定 商品 的 详细 数据 。 


加 交情 记 全 再 Wm 
人 日 E eel 日 

1 -= | 商品 明细 账 

2 货号 ，1-111 日 斯 :2006: 至 ”2008-9-1 。 一生 成 卫 页 

3 和 名称 ， 长虹 型 号 ， 2 产地 ， 四川 

| 于 在 


图 31-35 商品 明细 账 


2. 设计 公式 

在 表格 中 ， 输 入 货号 后 ， 将 通过 VLOOKUP 公式 ， 显 示 出 对 应 货号 的 商品 信息 ， 设 置 
公式 如 下 : 

B3=VLOOKUP ($B$2, 供 货 1 $B:$J,2,FALSE) 

E3=VLOOKUP ($B$2, 供 货 ! $B:$J,3,FALSE) 

H3=VLOOKUP ($B$2, 供 货 !1 $B:$J,4,FALSE) 

3. 设计 代码 

该 报表 主要 通过 VBA 代码 生成 ， 首 先 读 入 进货 数据 和 销 货 数据 ， 然 后 通过 设置 公式 
计算 出 存货 数据 ， 有 具体 代码 如 下 。 

(1) 为 【生成 账 页 】 按 钮 指定 宏 ， 并 编写 代码 如 下 : 

Dim j As Integer ' 声 明 模块 级 变量 ， 保 存 报表 当前 行 

sub 生成 商品 明细 账 () 
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Dim intRow Rs Integer "声明 变量 ， 保 存 表格 行 数 
Dim datStart Rs Date，datEnd As Date  ' 声 明 变 量 ,保存 起 始 、 结 束 日 期 
If IsDate(Cells(2, 5)) Then ' 检 查 起 始 日 期 
datstart = DateValue (Cells(2, 5)) 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
If IsDate(Cells(2, 7)) Then ' 检 查 结束 日 期 
datEnd = DateValue (Cells(2, 7)) 
Else 
MsgBox "日 期 输入 错误 " 
Exit Sub 
End If 
IE datstart > datEnd Then "检查 起 始 日 期 是 否 大 于 结束 日 期 
MsgBox "起 始 日 期 应 小 于 或 等 于 结束 日 期 " 
Exit Sub 
End If 
Sheets ("商品 明细 账 ") .Unprotect Password:="wyh" 
' 取 消 “ 商 品 明细 账 ”工作 表 的 保护 
With Sheets ("商品 明细 账 ") 
intRow = .Range("R5") .CurrentRegion.Rows.Count 
"获取 “商品 明细 账 ”中 的 数据 行 数 
.Range(.Cells(7, 1), .Cells(intRow + 5，10)) .Select 


' 选 择 报表 的 数据 部 分 
Selection.EntireRow.Delete ' 清 除 商品 明细 账 中 的 数据 
.Range ("A7") .Select 
End With 
读 入 进货 数据 ' 调 用 子 过程 获 取 进货 数据 
读 入 销售 数据 ' 调 用 子 过程 获 取 销售 数据 
计算 存货 ' 调 用 子 过 程 计 算 库 存 数据 


End Sub 


程序 中 首先 设置 模块 级 变量 j， 用 来 记录 生成 的 “商品 明细 账 ” 数 据 行 数 。 因 为 在 该 
子 过 程 中 将 调用 几 个子 过 程 对 “商品 明细 账 ” 中 的 数据 进行 处 理 ， 所 以 通过 模块 级 变量 ， 
可 共享 正在 处 理 的 行 数 。 

(2) “ 读 入 进货 数据 ” 子 过 程 的 功能 是 从 “ 供 货 ”工作 表 中 逐 行 读 入 数据 进行 判断 ， 
并 将 满足 要 求 的 数据 写 入 “商品 明细 账 ” 工 作 表 中 。 其 详细 代码 如 下 : 

Sub 读 入 进货 数据 () 


Dim x As Integer "声明 变量 

With sheets ("商品 明细 账 ") 

x=2 ' 供 货 表 的 当前 行 

j=7 ' 商 品 明细 账 的 当前 行 (模块 级 变量 ) 


Do While Not (IsEmpty (Sheets(" 供 货 ") .Cells (x, 2) .value)) 

IE DateValue (Sheets (" 供 货 ") .Cells(x, 1)) >= DateValue(.Cells(2, 5)) And _ 
DateValue (Sheets (" 供 货 ") .Cells (x, 1)) <= DateValue(.Cells(2, 7)) And _ 
Sheets (" 供 货 ") .Cells(x, 2) = .Cells(2, 2) Then 

' 供 货 日 期 大 于 等 于 设置 的 起 始 日 期 
' 且 小 于 等 于 设置 的 结束 日 期 
' 且 供 货 表 中 的 货号 等 于 设置 的 货号 
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-Cells (j，1) .NumberEFormatLocal = "yyyy-m-d h:mm;@" 


"设置 第 1 列 为 日 期 格式 
.Cells(j，1) = Sheets(" 供 货 ") .cells(x，1) "日 期 
.Cells(j，2) = Sheets(" 供 货 ") .cells(x，11) "供应 商 
.Cells(j，3) = Sheets(" 供 货 ") .cells(x，9) ' 数 量 
-Cells(j, 4).NumberFormatLocal = "#,##0.00_" 
' 设 置 进 价 的 显示 格式 
.Cells (j，4) = Sheets(" 供 货 ") .Cells(x，6) ' 进 价 
-Cells(j, 5).NumberFormatLocal = "#,##0.00_ " 
' 设 置 金额 的 显示 格式 
.Cells(j, 5) = .Cells(j, 3) * .Cells(j, 4) ' 金 额 
本 "商品 明细 账 增加 一 行 
End If 
x=X+1 ' 处 理 供 货 表 中 的 下 一 行 数据 
Loop 
End With 
End sub 


该 子 过 程 比较 简单 ， 不 再 画 流程 图 。 程 序 中 主要 对 “ 供 货 ”工作 表 中 的 数据 进行 判断 ， 
如 果 数 据 在 指定 的 日 期 内 ， 且 为 指定 的 货号 ， 则 将 数据 复制 到 “商品 明细 账 ” 工 作 表 的 进 
货 单元 格 中 。 

(3) “ 读 入 销售 数据 ” 子 过 程 的 功能 是 从 “ 销 货 ” 工 作 表 中 逐 行 读 入 数据 进行 判断 ， 
并 将 满足 要 求 的 数据 写 入 “商品 明细 账 ” 工 作 表 中 。 其 详细 代码 如 下 : 

sub 读 入 销售 数据 () 


Dim x As Integer ' 声 明 变量 
With Sheets ("商品 明细 账 ") 
本 ' 销 货 工作 表 当 前 数据 行 


Do While Not (IsEmpty (Sheets(" 销 货 ") .Cells (x, 2) .value)) 

If DateValue (Sheets (" 销 货 ") .Cells(x, 1)) >= DateValue(.Cells(2, 5)) And _ 
DateValue (Sheets (" 销 货 ") .Cells (x, 1)) <= DateValue(.Cells(2, 7)) And _ 
Sheets (" 销 货 ") .Cells(x, 2) = .Cells(2, 2) Then 

' 销 货 日 期 大 于 等 于 设置 的 起 始 日 期 

' 且 小 于 等 于 设置 的 结束 日 期 

' 且 销 货 货号 等 于 设置 的 货号 
.Cells(j, 1).NumberFormatLocal = "yyyy-m-d h:mm;@" 

' 设 置 第 1 列 为 日 期 格式 
-Cells(j，1) = Sheets(" 销 货 ") .cells (x，1) ' 日 期 
.Cells(j，2) = Sheets(" 销 货 ") .cells (x，10) ”' 购 货 人 
.Cells(j，6) = Sheets(" 销 货 ") .Cells (x，5) ' 数 量 
.Cells(j, 7).NumberFormatLocal = "#,##0.00_ " 

' 设 置 单价 的 显示 格式 
.Cells(j，7) = Sheets(" 销 货 ") .cells (x，6) ' 单 价 
.Cells(j, 8).NumberFormatLocal = "#,##0.00_ " 


' 设 置 金额 的 显示 格式 
.Cells(j，8) = Sheets (" 销 货 ") .Cells (x，7) + Sheets (" 销 货 ") .Cells (x，8) 
"金额 
了 "商品 明细 账 增加 一 行 
End If 
天 "处 理 销 货 的 下 一 行 
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Loop 
End With 
End Sub 


(4) “计算 存货 ” 子 过 程 的 流程 图 如 图 31-36 所 示 。 


对 “商品 明细 账 ” 表 按 日 期 排序 


设置 首 行 结存 数据 
结存 数量 = 进货 数量 - 销售 数量 
结存 金额 = 进货 金额 - 销售 数量 * 进 货 单价 
结存 单价 = 结存 金额 /结存 数量 


读 取 供 “ 供 货 ” 表 的 一 行 数据 


到 表 结 尾 


下 


此 行 是 销售 


结存 金额 = 结存 数量 * 上 期 结存 单价 


昌 
结存 金额 = 上 期 结存 金额 + 本 期 进货 金额 


结存 单价 = 结存 金额 /结存 数量 


设置 “商品 名 细 账 ”的 合计 函数 


1 
[设置 “商品 名 细 几 ”单元 格 边框 


31-36 计算 存货 流程 图 


通过 “ 读 入 进货 数据 ”和 “ 读 入 销售 数据 ”两 个 子 过 程 处 理 后 ，“ 商 品 明细 账 ” 中 已 
经 有 了 需要 的 全 部 数据 ， 但 数据 的 排列 方式 为 全 部 显示 完 进货 数据 后 ， 再 显示 销售 数据 ， 
这 样 显示 不 符合 账 页 的 要 求 ， 这 时 将 所 有 数据 按 日 期 排序 之 后 即 可 。 
接着 通过 “结存 数量 = 上 期 结存 数量 + 进货 数量 -销售 数量 ”公式 ， 计 算出 结存 数量 。 
根据 流程 图 编写 “计算 存货 ” 子 过 程 的 代码 如 下 : 
Sub 计算 存货 () 
Dim x Rs Integer, rngTemp Rs Range 


With Sheets ("商品 明细 账 ") 


Set rngTemp = .Range("A7") .CurrentRegion ' 获 取 商 品 明细 账 的 数据 区 域 
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ngTemp .Sort Keyl:=.Range("A7"), Orderl:=xlAscending, Header:= _ 
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= 


xlTopToBottom, _ 

SortMethod:=xlPinYin，DataOptionl:=xlSortNormal ' 对 该 区 域 按 日 期 进行 排序 
下 "将 模块 级 变量 j 减 1， 获 得 数据 行 数 
-Cells(7，9) = .Cells(7，3) - .Cells(7，6) “结存 数量 = 进货 数量 - 销售 数量 
.Cells(7，11) .NumberFormatLocal = "#,##0.00 " ' 设 置 金额 单元 格 显示 格式 
:Cells(7, 11) = (.Cells(7, 3) - .Cells(7, 6)) * .Cells(7, 4) 


:结存 金额 = 结存 数量 * 进 货 单价 
.Cells (7，10) .NumberFormatLocal = "#,##0.00 " ' 设 置 单价 单元 格 显示 格式 
:Cells(7, 10) = .Cells(7, 11) / .Cells(7, 9) 

"单价 = 结存 金额 / 结存 数量 


For 工 二 8 To 


.Cells(x，9) = .Cells(x - 1, 9) + .Cells(x, 3) - .Cells(x，6) 
' 结 存 数量 
.Cells (x，11) .NumberFormatLocal = "#,##0.00 " “' 设 置 金额 单元 格 显示 格式 
IE IsEmpty(.Cells(x，3)) Then  ' 若 进货 数量 为 空 ， 则 为 销售 
:Cells (x 11) = aCealls(i, 9) '* ,Cells(x = 1 10) 


' 结 存 金 额 = 结存 数量 + 上行 的 单价 
Else “' 若 进货 数量 不 为 室 ， 则 为 进货 
.Cells(x, 11) = .Cells(x - 1, 11) + .Cells(x, 5) 
' 结 存 金 额 = 上 行 结存 金额 + 进货 金额 


End If 
.Cells (x, 10) .NumberFormatLocal = "#,##0.00_" ' 设 置 结存 单价 显示 格式 
‘Cells(x, 10) = .Cells(x, 11) / .Cells(x, 9) ' 结 存单 价 = 结 存 金 额 / 
结存 单价 
Next 
.Cells (x，1) = "合计 " ' 最 后 一 行 设 为 “合计 ” 
.Cells(x，3) = "=SUM(R[" & 7 - x & "]C:R[-1]C)"' 设 置 进货 数量 合计 的 计算 公式 


.Cells (x，5) .NumberFormatLocal = "#,##0.00_ " ' 设 置 进货 金额 合计 的 显示 格式 
.Cells (X，5) .FormulaR1C1 = "=SUM(R[" & 7 - x & "]C:R[-1]C)" 

' 设 置 进 货 金 额 合计 的 计算 公式 
.Cells(x，6) = "=SUM(R[" & 7 - x & "]C:R[-1]C)"' 设 置 销售 数量 合计 的 计算 公式 
.Cells (x，8) .NumberFormatLocal = "#,##0.00 " “设置 销售 金额 合计 的 显示 格式 
.Cells (x，8) .FormulaRlC1 = "=SUM(R[" & 7 - x & "]C:R[-1]C)" 

' 设 置 销 售 金额 合计 的 计算 公式 
.Cells (x，9) = "=SUM(R[" & 7 - x & "]C:R[-1]C)"' 设 置 结存 数量 合计 的 计算 公式 
.Cells (x，11) .NumberFormatLocal = "#,##0.00_ "设置 结存 金额 合计 的 显示 格式 
.Cells (x，11) .FormulaRlC1 = "=SUM(R[" & 7 - x & "]C:R[-1]C)" 

' 设 置 结存 金额 合计 的 计算 公式 

.Cells (x，10) .NumberFormatLocal = "#,##0.00_"' 设 置 结存 单价 的 显示 格式 
.Cells (x，10) = .Cells(x，11) / .Cells (x，9) ' 结 存单 价 = 结 存 金额 /结存 数量 
-Range(.Cells(7，1)，.Cells(x，11)) .Select ' 选 择 “ 商 品 明细 账 ”的 数据 部 分 


设置 边框 ' 设 置 单元 格 的 边框 线 
.Select ' 选 择 “ 商 品 明 细 账 ”工作 表 
.Range ("A7") .Select ' 选 择 A7 单元 格 

End With 


Sheets ("商品 明细 账 ") .Protect Password:="wyh" ' 保 护 “ 商 品 明细 账 ” 工 作 表 
End sub 


输入 货号 ,设置 好 起 始 日 期 后 ， 单 击 【 生 成 账 页 】 按 钮 ， 生 成 的 商品 明细 账 如 图 31-37 
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所 示 。 
CE 
入 村 | 入 可 
口 
i 商品 阴 细 账 
货号 ， 1-111 日 期 2008-1-1 至 ”2008-5-1 。 全 成败 页 
名 称 ， 长 虹 型 号 29 四 川 
进货 销售 委 经 存 
日 客户 | 数量 | 单价 金额 ”| 数量 金额 | 数量 | 单价 金额 
4 3 发 公司 1 900. 00 | 3, 800.00 -2| 
2008-4-19 15:;54| 1 1,900.00 | 1900.00 -3| 
三 到 :54| 长 丰 公 司 10| 1, 800.00 | 18, 000. 00 7[ 2 571. 43 | 18, 000, 00 | 
合计 10| 18, 000. 00 引 5, 700. 00 2| &, 000. 00 | 18, 000. 00 


31-37 ”商品 明细 账 


在 【 进 销 存 】 选 项 卡 的 【数据 】 组 中 的 两 个 按钮 用 来 设置 辅助 数据 ， 这 两 个 工作 表 的 
数据 不 需要 编写 VBA 代码 ， 由 用 户 直接 输入 数据 即 可 。 
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附录 A VBA 程序 调试 技巧 


对 于 一 个 应 用 程序 ， 开 发 人 员 将 花费 很 多 时 间 在 调试 工作 上 。 有 时 按 设 计 要 求 编写 的 
一 段 代 码 ， 通 常 都 包含 着 很 多 错误 ， 这 时 就 需要 通过 调试 来 找 出 代码 中 的 错误 ， 并 将 这 些 
错误 修复 ， 使 代码 最 终 能 够 实现 预期 的 功能 。 


A.1 VBA 程序 的 模式 


VBA 程序 有 3 种 模式 : 设计 时 、 运 行 时 和 中 断 模 式 。 为 了 测试 和 调试 一 个 程序 ， 需 要 
了 解 在 当前 时 间 程 序 处 于 这 3 种 模式 中 的 哪 一 种 。 
在 设计 时 使 用 VBA 可 编写 应 用 程序 的 代码 。 而 在 运行 时 是 运行 应 用 程序 。 在 中 断 模 
式 下 ， 程 序 的 执行 被 暂停 ， 用 户 能 够 检测 和 修改 相关 变量 的 数据 。 在 中 断 模式 时 ，VBE 标 
题 栏 中 将 显示 “[ 中 断 ]” 的 提示 文字 。 
下 面 列 出 这 3 种 模式 的 特征 以 及 在 这 3 种 模式 间 转 换 的 技巧 。 
口 设计 时 : 创建 应 用 程序 的 大 部 分 工作 是 在 设计 时 完成 的 。 可 设计 窗 体 、 编 写 代 码 。 
可 设置 断 点 和 创建 监视 表达 式 ， 不 能 运行 代码 或 使 用 调试 工具 。 要 切换 到 运行 时 ， 
可 单 击 标准 工具 栏 中 的 【运行 子 过 程 /用 户 窗 体 】 按 钮 或 按 F5 键 ) 。 要 切换 到 中 
断 模式 ， 可 单 击 菜单 【调试 】|【 逐 语句 】 命 令 〈 或 按 F8 键 ) 。 
口 运行 时 : 在 应 用 程序 控制 下 ， 可 与 应 用 程序 间 进 行 交互 。 此 时 可 查看 程序 代码 ， 
但 不 能 修改 代码 。 要 切换 回 设计 时 ， 可 单 击 工具 栏 中 的 【重新 设置 〗 按 钮 。 要 切 
换 到 中 断 模 式 ， 可 单 击 【 中 断 】 按 钮 。 
口 中 断 模式 : 在 运行 应 用 程序 时 暂停 执行 。 可 在 同一 点 查看 和 编辑 代码 ， 检 测 或 修 
改 数据 ， 重 新 启动 应 用 程序 ， 结 束 运 行 或 继续 运行 。 要 切换 到 运行 时 ， 可 单 击 工 
有 具 栏 中 的 【继续 】 按 钮 (在 中 断 模式 中 ，【 运 行 】 按 钮 变 成 了 【继续 】 按 钮 〉。 
要 切换 到 设计 时 ， 可 单 击 工 具 栏 中 的 【重新 设置 】 按 钮 。 
可 在 设计 时 设置 断 点 和 监视 表达 式 ， 但 其 他 调试 工具 仅 在 中 断 模式 下 工作 。 
在 VBA 代码 执行 过 程 中 ， 按 ESC 键 可 终止 执行 ， 
将 程序 挂 起 ， 并 打开 如 图 A-1 所 示 的 对 话 框 。 
在 图 A-1 所 示 对 话 框 中 有 4 个 按钮 ， 其 作用 分 别 为 
以 下 4 个 方面 。 
口 继续 : 单 击 该 按钮 可 以 恢复 代码 执行 。 如 果 遇 到 
错误 ， 该 按钮 将 变 为 禁止 使 用 状态 。 
口 结束 : 如 果 这 次 不 想 排除 故障 ， 则 单 击 该 按钮 ， 图 A-1 程序 挂 起 
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VBA 将 终止 代码 执行 。 

口 调试 : 单 击 该 按钮 进入 中 断 模式 ， 代 码 窗口 将 出 现 ，VBE 将 加 亮 过 程 执行 时 停止 
处 的 代码 行 。 可 以 检查 、 调 试 、 中 断 或 者 逐 句 执行 代码 。 

口 帮助 : 单 击 该 按钮 查看 在 线 帮助 ， 解 释 导 致 该 错误 信息 的 原因 。 


A2 设置 断 点 


在 设计 和 中 断 模式 下 都 可 以 设置 断 点 ， 当 程序 执行 到 断 点 语句 时 ， 则 中 断 执 行 ， 这 时 
处 于 中 断 模式 。 

如 果 事 前 预料 到 某 部 分 代码 将 出 现 问 题 ， 可 在 该 代码 前 面 暂停 执行 代码 ， 然 后 通过 逐 
语句 执行 ， 发 现 出 问题 的 具体 代码 。 

例如 ， 在 第 31 章 的 例子 中 ， 在 【工程 】 资 源 管理 器 窗口 中 双击 “存货 统计 ”工作 表 ， 
打开 该 工作 表 的 事件 代码 。 在 代码 窗口 中 找到 要 设置 断 点 的 位 置 ， 单 击 菜单 【调试 1 1【 快 
速 断 点 】 命 令 (或 按 F9 键 ) 设置 断 点 。VBE 将 在 页 边 的 空白 处 显示 一 个 红色 的 圈 ， 并 将 
设置 断 点 的 代码 用 红 底 白字 显示 出 来 ， 如 图 A-2 所 示 。 


进 销 存 管理 .xl1zm LSheet4d 《代码 )] 
编 E) ” 视 攻 QW) 手 入 WD 档 式 (Q) 痛 试 D) 运行 B) 工具 中 外接 程序 A 全) 向 
ETT ER 


图 A-2 设置 断 点 
全 技巧 :用 和 鼠标 单 击 代码 窗口 左 侧 的 页 边 ， 可 快速 地 设置 断 点 。 


设置 好 断 点 后 ， 返 回 Excel。 在 【 进 销 存 】 选 项 卡 的 【库存 】 组 中 ， 单 击 【 存 货 统计 】 
按钮 ,将 执行 设置 断 点 处 的 代码 ， 当 执行 到 断 点 处 将 中 断 程序 执行 。 在 中 断 的 代码 窗口 中 ， 
将 要 被 执行 的 语句 左 侧 页 边 上 显示 一 个 黄色 箭头 ,语句 显示 为 黄 底 黑 字 。 
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这 时 ， 可 多 次 选择 菜单 【调试 】|【 逐 语句 】 命 令 〈 或 按 F8 键 ) ， 逐 条 语句 执行 断 点 
下 方 的 代码 ， 观 察 是 否 有 出 错 地 方 。 


全 注意 : 过 程 运行 结束 后 ， 设 置 的 断 点 语句 仍然 是 加 亮 显示 的 ，VBA 不 会 自动 删除 断 点 。 


通过 单 击 菜单 【调试 | 清除 所 有 断 点 】 命 令 (或 按 ShiftrCtrl+F9 组 合 键 ) 将 清除 程 
序 中 所 有 的 断 点 。 


全 技巧 : 关闭 工作 短 后 ， 设 置 的 所 有 断 点 都 将 自动 清除 。 


A.3 代码 调试 运行 方式 


当 程 序 进行 中 断 模式 后 ， 可 通过 多 种 方式 执行 一 条 语句 、 一 个 过 程 或 执行 指定 区 域 的 
代码 ， 这 些 命令 都 在 【调试 】 菜 单 中 提供 。 通 过 这 些 方式 执行 部 分 VBA 代码 ， 以 了 解 程 
序 执行 的 路 径 ， 观 察 代码 执行 的 顺序 是 否 与 设计 过 程 一 致 。 

常用 的 调试 运行 方式 有 以 下 几 种 。 


口 
口 


逐 语 句 : 一 次 执行 一 个 语句 〈 按 程序 流程 逐个 语句 执行 ) 。 

逐 过 程 : 与 “ 逐 语句 ”相似 。 只 有 在 当前 的 语句 含有 一 个 对 过 程 的 调用 时 ， 两 者 
才 会 有 差异 。“ 逐 过 程 ” 是 将 过 程 视 为 一 个 基本 单位 来 执行 ， 执 行 完 一 个 语句 后 
下 继续 执行 下 一 个 语句 。 不 过 ， 下 个 被 显示 的 语句 ， 就 是 当前 过 程 中 的 下 一 个 语 
句 ， 不 会 因为 当前 语句 为 一 过 程 调用 而 有 所 改变 。 

跳出 : 执行 当前 执行 点 所 在 函数 中 剩余 未 执行 的 行 。 下 个 被 显示 的 语句 是 紧 随 在 
该 过 程 调用 后 的 语句 。 所 有 在 当前 与 最 后 的 执行 点 间 的 代码 都 会 被 执行 。 

运行 到 光标 处 : 当 应 用 程序 处 于 中 断 模式 时 ， 可 以 在 代码 中 选 定 想 执行 到 哪 一 行 
语句 才 停止 ， 然 后 单 击 菜单 【调试 〗】|【 运 行 到 光标 处 】 命 令 ， 这 样 ， 应 用 程序 将 
会 从 当前 语句 执行 到 选 定 的 语句 ， 从 而 “ 跳 过 ”不 感 兴趣 的 代码 部 分 ， 例 如 ， 大 
型 循环 或 认为 不 会 出 错 的 大 部 分 语句 等 。 

设置 下 一 条 语句 : 在 调试 或 试验 一 个 应 用 程序 时 ， 可 以 在 当前 过 程 中 的 任意 行 选 
定 一 个 语句 ， 然 后 选择 菜单 【调试 】|【 设 置 下 一 条 语句 】 命 令 来 跳 过 某 些 代码 段 
〈 例 如， 包含 已 知 错误 的 代码 段 ) 。 这 样 ， 可 继续 跟踪 其 他 问题 。 或 者 想 返 回 到 
当前 语句 前 面 的 语句 ， 以 便 使 用 不 同 的 变量 值 或 属性 值 对 那 部 分 代码 进行 测试 。 
显示 下 一 条 语句 : 单 击 菜单 【调试 】|【 显 示 下 一 条 语句 】 命 令 ， 可 将 光标 移 到 下 
一 行 会 被 执行 的 程序 。 如 果 已 在 执行 一 个 错误 处 理 程 序 的 代码 但 不 能 确认 将 执行 
的 下 一 语句 ， 这 个 特征 是 很 方便 的 。 


A.4 监视 表达 式 


程序 中 的 许多 错误 是 由 变量 获得 未 预期 的 值 而 引用 的 ， 如 出 现 程序 最 终结 果 不 正 确 的 
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逻辑 错误 ， 可 能 是 变量 的 值 在 运算 过 程 中 出 了 问题 。 如 果 程 序 运 行 时 需要 变量 的 值 为 数值 
型 ， 但 变量 为 字符 ， 也 将 中 断 程 序 。 

如 果 过 程 中 使 用 了 一 个 值 经 常 变化 的 变量 ， 在 调试 程序 时 ， 和 暂停 程序 查看 该 变量 是 否 
为 需要 的 值 ， 可 排查 程序 的 逻辑 错误 VBA 提供 了 一 个 特别 的 监视 窗口 ， 通 过 该 窗口 的 设 
置 可 监视 变量 或 表达 式 在 运行 时 的 值 。 

1. 添加 监视 


添加 监视 表达 式 的 步骤 如 下 : 
(1) 在 代码 窗口 中 选择 准备 监视 的 变量 。 
(2) 单 击 菜单 【调试 】|【 添 加 监视 】 命 令 , 打开 【添加 监视 】 对 话 框 ， 如 图 A-3 所 示 。 


图 A-3 【添加 监视 】 对 话 框 


【添加 监视 】 对 话 框 包含 下 述 3 部 分 内 容 。 

口 表达 式 : 显示 需要 监视 的 变量 或 表达 式 〈 也 可 在 该 文本 框 中 输入 ) 。 

口 上 下 文 : 指定 包含 该 变量 的 过 程 名 和 模块 名 。 

口 监视 类 型 : 设置 监视 变量 的 方式 。 选 中 【监视 表达 式 】 选 项 按钮 ， 在 中 断 模式 时 
能 够 在 监视 窗口 查看 该 变量 的 值 。 选 中 【 当 监 视 值 为 真 时 中 断 】 选 项 按钮 ， 当 监 
视 变 量 的 值 为 真 ( 非 零 ) 时 VBA 将 中 断 过 程 。 选 中 【 当 监 视 值 改变 时 中 断 】 选 项 
按钮 ， 只 要 程序 执行 改变 了 监视 变量 或 表达 式 的 值 ， 程 序 就 会 停止 运行 。 

名 技巧: 选中 【 当 监 视 值 为 真 时 中 断 】 选 项 按钮 时 ， 一 般 将 监视 表达 式 定义 为 一 个 逻辑 表 

达 式 ， 如 “i=5”。 


(3) 单 击 【 确 定 】 按 钮 ， 添 加 一 个 监视 表达 式 到 【监视 窗口 】 列 表 框 中 ， 如 图 A-4 
所 示 。 


图 A-4 监视 窗口 


且 技 巧 : 也 可 以 在 过 程 执行 中 断 之 后 添加 监视 表达 式 。 
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在 图 A-4 所 示 的 【监视 窗口 】 列 表 框 中 单 击 选中 一 个 监视 表达 式 ， 按 Delete 键 可 将 该 
监视 表达 式 清除 。 


2. 使 用 快速 监视 


在 没有 定义 监视 表达 式 时 ， 如 果 要 查看 一 个 表达 式 的 值 ， 可 以 使 用 快速 监视 。 有 具体 操 
作 方 法 如 下 : 

(1) 在 中 断 模式 下 ， 将 光标 放 在 变量 名 或 表达 式 内 部 。 

(2) 单 击 菜单 【调试 】| 【快速 监 视 】 命 令 (或 按 Shift+F9 组 合 键 )》， 将 打开 如 图 A-5 
所 示 的 【快速 监视 】 对 话 框 。 


图 A-5 【快速 监视 】 对 话 框 
(3) 单 击 【添加 】 按 钮 ， 可 将 表达 式 添 加 到 【监视 窗口 】 列 表 框 中 。 


A.5 使 用 本 地 窗口 


【本 地 窗口 】 列 表 框 显示 当前 过 程 范围 内 所 有 变量 的 值 。 当 执行 由 一 个 过 程 切换 到 另 
一 过 程 时 ，【 本 地 窗口 】 列 表 框 的 内 容 将 转变 为 仅 反应 适用 于 当前 过 程 的 变量 。 

【本 地 窗口 】 列 表 框 如 图 A-6 所 示 ， 共 包括 下 述 3 列 。 

口 表达 式 ， 显 示 当 前 过 程 里 声明 的 变量 名 称 。 第 一 行 显示 的 是 “模块 ”变量 ， 单 击 

前 面 的 加 号 ， 就 可 以 查看 是 否定 义 有 模块 级 变量 。 

全 注意 ; 全 局 变量 不 会 在 “本 地 ”窗口 中 显示 。 

口 值 : 在 该 列 显示 变量 的 当前 值 。 在 调试 程序 时 ， 可 通过 该 列 修改 对 应 变量 的 值 。 

口 类 型 ， 显 示 每 个 声明 变量 类 型 。 

在 【本 地 窗口 】 右 上 角 有 个 三 个 点 的 按钮 ， 单 击 该 按钮 将 打开 【调用 堆栈 】 对 话 框 ， 
如 图 A-7 所 示 。 


A-6 【本 地 窗口 】 列 表 框 A-7 调用 堆栈 
在 【调用 堆栈 】 窗 口中 显示 所 有 调用 的 活动 过 程 列表 。 使 用 该 对 话 框 调 试 峰 套 程序 时 
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在 图 A-4 所 示 的 【监视 窗口 】 列 表 框 中 单 击 选中 一 个 监视 表达 式 ， 按 Delete 键 可 将 该 
监视 表达 式 清除 。 


2. 使 用 快速 监视 


在 没有 定义 监视 表达 式 时 ， 如 果 要 查看 一 个 表达 式 的 值 ， 可 以 使 用 快速 监视 。 有 具体 操 
作 方 法 如 下 : 

(1) 在 中 断 模式 下 ， 将 光标 放 在 变量 名 或 表达 式 内 部 。 

(2) 单 击 菜单 【调试 】| 【快速 监 视 】 命 令 (或 按 Shift+F9 组 合 键 )》， 将 打开 如 图 A-5 
所 示 的 【快速 监视 】 对 话 框 。 


图 A-5 【快速 监视 】 对 话 框 
(3) 单 击 【添加 】 按 钮 ， 可 将 表达 式 添 加 到 【监视 窗口 】 列 表 框 中 。 


A.5 使 用 本 地 窗口 


【本 地 窗口 】 列 表 框 显示 当前 过 程 范围 内 所 有 变量 的 值 。 当 执行 由 一 个 过 程 切换 到 另 
一 过 程 时 ，【 本 地 窗口 】 列 表 框 的 内 容 将 转变 为 仅 反应 适用 于 当前 过 程 的 变量 。 

【本 地 窗口 】 列 表 框 如 图 A-6 所 示 ， 共 包括 下 述 3 列 。 

口 表达 式 ， 显 示 当 前 过 程 里 声明 的 变量 名 称 。 第 一 行 显示 的 是 “模块 ”变量 ， 单 击 

前 面 的 加 号 ， 就 可 以 查看 是 否定 义 有 模块 级 变量 。 

全 注意 ; 全 局 变量 不 会 在 “本 地 ”窗口 中 显示 。 

口 值 : 在 该 列 显示 变量 的 当前 值 。 在 调试 程序 时 ， 可 通过 该 列 修改 对 应 变量 的 值 。 

口 类 型 ， 显 示 每 个 声明 变量 类 型 。 

在 【本 地 窗口 】 右 上 角 有 个 三 个 点 的 按钮 ， 单 击 该 按钮 将 打开 【调用 堆栈 】 对 话 框 ， 
如 图 A-7 所 示 。 


A-6 【本 地 窗口 】 列 表 框 A-7 调用 堆栈 
在 【调用 堆栈 】 窗 口中 显示 所 有 调用 的 活动 过 程 列表 。 使 用 该 对 话 框 调 试 峰 套 程序 时 
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特别 有 用 ， 可 将 各 过 程 之 间 的 相互 调用 的 关系 显示 出 来 。 
A.6 使 用 立即 窗口 


【立即 窗口 】 列 表 框 就 像 一 张 草 稿 纸 ， 可 以 用 它 来 测试 程序 语句 ， 或 了 解 变量 的 值 。 
可 使 用 下 列 两 种 方法 在 【立即 窗口 】 列 表 框 中 显示 信息 : 
口 在 应 用 程序 代码 中 加 入 Debug.Print 语句 : 可 在 【立即 窗口 】 列 表 框 输出 内 容 ， 
口 在 中 断 模式 下 : 在 【立即 窗口 】 列 表 框 中 输入 使 用 Print 方法 的 语句 来 输出 内 容 。 
进入 中 断 模式 后 ， 可 把 焦点 移 到 【立即 窗口 】 列 表 框 中 ， 输 入 Print 方法 ， 后 面 跟 上 任 
何 有 效 的 表达 式 ， 包 括 属性 的 表达 式 ， 然 后 按 Enter 键 将 在 下 方 显示 出 运算 的 结果 。 


全 技巧 : 在 【立即 窗口 〗 列 表 框 中 ， 可 输入 “? ” (问号 ) 来 代替 Print 方法 。 


。640 。 


Excel VBA 开发 技术 大 全 


特别 有 用 ， 可 将 各 过 程 之 间 的 相互 调用 的 关系 显示 出 来 。 
A.6 使 用 立即 窗口 


【立即 窗口 】 列 表 框 就 像 一 张 草 稿 纸 ， 可 以 用 它 来 测试 程序 语句 ， 或 了 解 变量 的 值 。 
可 使 用 下 列 两 种 方法 在 【立即 窗口 】 列 表 框 中 显示 信息 : 
口 在 应 用 程序 代码 中 加 入 Debug.Print 语句 : 可 在 【立即 窗口 】 列 表 框 输出 内 容 ， 
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何 有 效 的 表达 式 ， 包 括 属性 的 表达 式 ， 然 后 按 Enter 键 将 在 下 方 显示 出 运算 的 结果 。 


全 技巧 : 在 【立即 窗口 〗 列 表 框 中 ， 可 输入 “? ” (问号 ) 来 代替 Print 方法 。 
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为 了 统一 文字 符号 的 编码 标准 ， 让 不 同 厂 牌 机 型 的 计算 机 都 能 使 用 同一 套 标 准 化 的 信 
息 交 换 码 ， 美 国 国家 标准 局 特别 制定 了 ASCII 码 (America Standard Code for Information 
0 美国 信息 交换 标准 码 ) ， 作 为 数据 传输 的 标准 码 。 早 期 使 用 7 个 位 来 表示 英 
字母 、 数 字 0 一 9 及 其 他 符号 ， 现 在 则 使 用 8 个 位 ， 共 可 表示 256 个 不 同 的 文 字 与 符号 。 


在 VBA 程序 中 ,使 用 函数 ASC 可 获得 字母 对 应 的 ASCI 码 ; 使 用 函数 CHR 可 将 ASCII 
码 转换 为 对 应 的 字母 。 

ASCII 码 | 控制 字符 AS 到 es ASCII 码 字符 
000 让 Ga 096 2 
001 097 a 
002 [| 098 b 
0o03 | EX | oo | # | 099 < 
004 ET EE 100 d 
005 | END | oo7 | % | 101 e 
006 Ee | 102 f 
007 | BEL | 0%39 | ~ | 103 g 
oo8 | Bs | oo | CC | 104 h 
o9 | Hr | oo | ，) | 105 i 
o0 | IF | oo | * | 106 j 
ol | vr | % | + | 107 k 
o2 | FF | oo | , | 108 1 
o3 | cc | % | 一 | 109 m 
014 一 110 
015 i 111 0 
016 0 112 p 
017 1 113 q 
018 2 114 六 
019 3 115 S 
020 4 116 t 
021 5 117 u 
022 118 V 
023 2 119 W 
024 8 120 XxX 
025 9 121 y 
026 122 z 
027 123 { 
028 124 | 
029 125 } 
030 126 ~ 
031 2 [w| 


